Search the Community

Boa noite, estou querendo mudar duas propriedade em uma única linha usando update. Assim: UPDATE PRODUTO SET PRODES='TESTE 1 CONCLUIDO, TESTE 2 CONCLUIDO' WHERE PROCOD=1,2 PROCOD - É UMA IDENTIDADE DE CADA UM 1 E 2 É UMA PRODUTO DIFERENTE. PRODES - É O NOME QUE COMPOE O CAMPO QUERO ALTERAR O PRODUTO 1 E 2 UTILIZANDO A MESMA LINHA DE UPDATE, É PQ IREI TER QUE FAZER ISSO EM VARIOS PRODUTOS AQUI. DA MANEIRA UPDATE 1 PO 1 DEMORA MUITO.

Boas... Amigos, tenho um Cadastro de Unidades (Peças, Quilos, Unidades, Metros...) no qual os meus clientes podem e devem editar para atender as suas necessidades. Nunca tive problemas usando os Arquivos Dbfs, porém agora com a SQL, não mostra a Unidade que está cadastrada. reparem nas duas imagens abaixo. Para os Arquivos .DBFs, utilizo assim as funções da dBCombo: REDEFINE DBCOMBO oLby[1] VAR CUNID ID 34 OF oFld:aDialogs[ 1 ] ; COLORS CLR_HBLUE, CLR_CREME WHEN wNIVEL > 6 ; ALIAS "UNI" ; ITEMFIELD "UNID" ; LISTFIELD "UNID" oLby[1]:Del(1) Já para a SQL : REDEFINE DBCOMBO oLby[1] VAR CUNID ID 34 OF oFld:aDialogs[ 1 ] ; COLORS CLR_HBLUE, CLR_CREME WHEN wNIVEL > 6 ; ALIAS dbQry1 ; ITEMFIELD "UNID" ; LISTFIELD "UNID" oLby[1]:Del(1) Reparem que a única mudança é na chamanda do Alias. Por favor, alguém sabe como resolver esse problema ? Obrigado .

Boa tarde amigos... Até o momento, o meu aprendizado sobre SQL vai indo de vento em popa, porém uso somente como Localhost. Gostaria de iniciar o meu aprendizado, instalando o "MeuDb" num Servidor Remoto e acessá-lo através do IP. Sei que isso é possível, porém não tenho a minima idéia de como realizar tal tarefa. Não querendo abusar, alguém ensina o caminho das pedras ? Obrigado.

Boa tarde Eu uso o SQLRDD no meu projeto principal para coletar dados e gerar relatórios auxilares e pequena atualizações no ERP da empresa, agora vou precisar monta um outro sistema de Coletar de dados e emissão de relatorios mas não poderei usar o SQLRDD. Qual a melhor maneira de fazer isso para conectar no Oracle e no SQLServer ? alguém tem algum exemplo. no meu sistema mesmo usando o SQLRDD procuro usar para incluir, alterar e exlcuir os comando SQL já conforme rotina function grava_dados(_acao,_atabela,_aCampo,_adados, _alias, _logs) __logs := iif(_logs=nil,"N",_logs) &&& Não vai gravar log por um periodo __alias := iif(_alias=nil,_aTabela,_alias) __qtdeReg := len(_aCampo) __tabela := _atabela __acao := _acao if __acao = "I" if _sql() _idLanc := pega_idlanc() cSql := "INSERT INTO "+ __TABELA +" (" for i = 1 to __qtdeReg __Campo := _aCampo[i] cSql += __Campo +", " next cSql += "idlanc" cSql += ") VALUES ( " for x = 1 to __qtdeReg __Dados := _aDados[x] cSql += SR_cDBValue( __Dados ) +", " next cSql += SR_cDBValue( _idlanc )+") " __atual := ajusta_type_dados(__dados) _log_item += "Coluna :"+__Campo+" > Conteudo ["+rtrim(__atual)+"]. "+chr(13)+chr(10) proc_sql(cSql) &__tabela->( SR_DBRefresh() ) else dbselectarea(__alias) if appendrec() for i = 1 to __qtdeReg __Campo := _aCampo[i] __Dados := _aDados[i] if __logs = "S" __atual := ajusta_type_dados(__dados) _log_item += "Coluna :"+__Campo+" > Conteudo ["+rtrim(__atual)+"]. "+chr(13)+chr(10) endif &__alias->&__campo := __dados next if __logs = "S" _log_item += "Coluna : idlanc > Conteudo ["+rtrim(_idlanc)+"]. "+chr(13)+chr(10) endif &__alias->idlanc := _idlanc endif &__alias->( dbcommit() ) &__alias->( dbunlock() ) endif elseif __acao = "A" if _sql() dbselectarea(__alias) _idlanc := &__alias->idlanc cSql := "UPDATE "+ __TABELA +" SET " for i = 1 to __qtdeReg __Campo := _aCampo[i] __Dados := _aDados[i] if i = __qtdereg cSql += __Campo +" = " + SR_cDBValue( __Dados ) +" " else cSql += __Campo +" = " + SR_cDBValue( __Dados ) +", " endif __atual := ajusta_type_dados(__dados) __anterior := ajusta_type_campo(__dados,__campo) if __atual <> __anterior _log_item += "Coluna :"+__Campo+" > de ["+rtrim(__anterior)+"] para ["+rtrim(__atual)+"]. "+chr(13)+chr(10) endif next cSql += "WHERE nrecno ="+SR_cDBValue( mRegistro )+" " proc_sql(cSql) &__alias->( SR_DBRefresh() ) else dbselectarea(__alias) if travareg() _idlanc := &__alias->idlanc for i = 1 to __qtdeReg __Campo := _aCampo[i] __Dados := _aDados[i] if __logs = "S" __atual := ajusta_type_dados(__dados) __anterior := ajusta_type_campo(__dados,__campo) if __atual <> __anterior _log_item += "Coluna :"+__Campo+" > de ["+rtrim(__anterior)+"] para ["+rtrim(__atual)+"]. "+chr(13)+chr(10) endif endif &__alias->&__campo := __dados next endif &__alias->( dbcommit() ) &__alias->( dbunlock() ) endif elseif __acao = "X" dbselectarea(__alias) _idlanc := &__alias->idlanc if _sql() cSql := "DELETE FROM "+__tabela + " " cSql += "WHERE nRecno = "+SR_cDBValue( mRegistro ) + " " proc_sql(cSql) &__alias->( SR_DBRefresh() ) else dbselectarea(__alias) if travareg() &__alias->( dbdelete() ) endif &__alias->( dbcommit() ) &__alias->( dbunlock() ) * &__alias->( dbSkip(0) ) endif if __logs = "S" for i = 1 to __qtdeReg __Campo := _aCampo[i] __Dados := _aDados[i] __atual := ajusta_type_dados(__dados) _log_item += "Coluna :"+__Campo+" > Conteudo ["+rtrim(__atual)+"]. "+chr(13)+chr(10) next endif else if _sql() dbselectarea(__alias) _idlanc := &__alias->idlanc cSql := "UPDATE "+ __TABELA +" SET " for i = 1 to __qtdeReg __Campo := _aCampo[i] __Dados := _aDados[i] if i = __qtdereg cSql += __Campo +" = " + SR_cDBValue( __Dados ) +" " else cSql += __Campo +" = " + SR_cDBValue( __Dados ) +", " endif __atual := ajusta_type_dados(__dados) __anterior := ajusta_type_campo(__dados,__campo) if __atual <> __anterior _log_item += "Coluna :"+__Campo+" > de ["+rtrim(__anterior)+"] para ["+rtrim(__atual)+"]. "+chr(13)+chr(10) endif next cSql += "WHERE nrecno ="+SR_cDBValue( mRegistro )+" " proc_sql(cSql) &__alias->( SR_DBRefresh() ) else dbselectarea(__alias) if travareg() _idlanc := &__alias->idlanc for i = 1 to __qtdeReg __Campo := _aCampo[i] __Dados := _aDados[i] if __logs = "S" __atual := ajusta_type_dados(__dados) __anterior := ajusta_type_campo(__dados,__campo) if __atual <> __anterior _log_item += "Coluna :"+__Campo+" > de ["+rtrim(__anterior)+"] para ["+rtrim(__atual)+"]. "+chr(13)+chr(10) endif endif &__alias->&__campo := __dados next endif &__alias->( dbcommit() ) &__alias->( dbunlock() ) * &__alias->( dbSkip(0) ) endif endif __tab := __alias if __logs = "S" log_cones(__acao, __tabela, _idLanc ) endif dbselectarea(__tab) return .t. e passo os parâmetro desta forma grava_dados("A","cfg_prog", { "dtimpcte", "hrimpcte" }, { mdtHoje, mhrHoje }, alias(), "N") ta meio confuso mas ele monta certinho para gravar tanto em tabelas DBF quando em tabelas SQL. mas meu foco seria como fazer isso sem o SQLRDD. se alguem tiver algum exemplo...

SQLite Editor (freeware): - Gerenciamento de banco de dados SQLite - Importação em lote de tabelas DBF, exportação para MariaDB/MySQL - SQL Runner, SQL Assistente, etc. Download, Screenshots: https://www.ozs.es/wp/sqlite-editor/ Video (SQL Assistente): https://www.youtube.com/watch?v=gx2QcjHaMRE As ferramentas: SQLite Editor e DBF Editor (xaDbu: DBF, ADS/ADT...) também estão integradas em: - xEdit: Editor xBase profissional (freeware) - Xailer

Boa Tarde Amigos!!! Estou pedindo um socorro aos amigos, preciso deixar de usar banco de dados DBF´s da vida... ja tentei outras vezes mas não foi para frente... então, se alguem puder por favor me ajudar... tipo enviar um fonte simples de exemplo de como abrir bando dados, inserir, alterar, excluir... qual RDD SQL usar, de preferencia nativo fivewin... desde já contando sempre com vcs eu agradeço e louva a Deus... Obgdão!!!! ronecoura@gmai.com

Bom dia! agora estou tentando usar SQL mas nem consigo compilar. gera este erro ai. Eu add ao projeto (xDev) a lib libmysql.lib sqllib_xHB_121.lib. Mas mesmo assim dá este erro... Alguem Sabe o que esta faltando...

Olá a todos do five Gostaria desaber se alguem tem alguma idéia de como poderia nesta função adicionar a opção de salvar o banco também em SQL. Tipo no commit salvando em 2 bancos um em DBF e SQL. repl lograd with vlograd repl cidade with vcidade repl bairro with vbairro repl estado with vestado repl abrevi with vabrevi dbcommit() ....."script de sql " return Desde já me encontro a disposição. Muito obrigado