Importar arquivo DBF para MySql

[wmsei]

Srs. boa noite,
Estamos migrando nosso sistema de Clipper/Harbour para Xailer usando MySql, alguém uma rotina pronta para fazer essa importação desses arquivos?
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Xailer 3.0.2

[emeasoft]

Wagner, bom dia:
í‰ fácil, veja o exemplo como aprendizado que o Cassiano postou aqui:
http://www.xailer.com/forum/index.php?t ... =17474&amp ;start=0&
Depois é só vocíª fazer um DO WHILE ARQ->(!EOF) no seu DBF e
repassar os dados para a tabela do MySql.
Aproveite e conheça o MariaDb do exemplo.
Estamos usando ele em vez do MySql.
Qualquer coise retorne.
Abraços
Mário Angelini

[emeasoft]

Exemplo como transferir dados de MeuArq.DBF para Tabela1:
Exemplo:
USE MeuArq NEW SHARED ALIAS MArq
::_Sm:BeginTrans()
DBGOTOP()
DO WHILE MArq->(!EOF())
::_Sm:Execute( "INSERT INTO Tabela1 (C01,C02,C03,C04,C13) VALUES ('"+;
MArq->C01+"','"+;
MArq->C02+"','"+;
MArq->C03+"','"+;
MArq->C04+"','"+;
MArq->C13+"')" )
MArq->(DBSKIP())
ENDDO
::_Sm:CommitTrans()
OBS: _Sm = cVarName do DataSource

[wmsei]

Mário boa noite,
Estou usando o exemplo do Cassiano, fiz algumas mudanças para minha necessidade, crio o banco, crio as tabelas, mas quando vou inserir os registros não inseri, segue abaixo parte do codigo, se puder me ajudar, fico muito agradecido.

::oDB:BeginTrans()
::dbfCli:GoTop()
DO While !::dbfCli:Eof()
::oDB:Execute("INSERT INTO CLIENT(CODIGO, NOME, IMAGEM, ENDERECO, NUMERO, COMPLEMENT, CONTATO, CPF_CGC, INS_IDE,"+;
"CONTRIICMS, REGICMS, BAIRRO, CIDADE, CODCID, ESTADO, CODUF, CEP, NASCIMENTO, CATEGORIA, CODIGO, CODAUX,"+;
"TEL1, TEL2, FAX, TAG, OBS, SEXO, PAIS, END_COM ,NUM_COM ,BAI_COM, CID_COM, CMU_COM, EST_COM, CES_COM,"+;
"CEP_COM, COM_COM, CON_COM, EMPRESA, FON_COM, EMAIL_COM, TEMPO_EMP, SALARIO, EST_CIVIL, PAI, MAE, CONJUGE,"+;
"AVALISTA, PROFISSAO, REF1, REF2, REF3, REGIAO, VENDEDOR, POTENCIAL, FANTASIA, TRANSP, CREDITO, LIMITE,"+;
"BOCAZEDA, DATA_BOCA, DATA_LIB, USUBLOQ, USUDESB, DATA,TIPO, E_MAIL, EMAILNFE, CUSTO, DATA_XP, DATA_XR, PRECO,"+;
"COND_VENDA, ULT_COMPRA, OBS1, OBS2, ABC, BASE_AUX, VALOR_AUX, VALOR_AUXC, PERCE_AUX, TRANSFERE, SUFRAMA)"+;
"VALUES (::dbfCli:CODIGO, ::dbfCli:NOME, ::dbfCli:IMAGEM, ::dbfCli:ENDERECO, ::dbfCli:NUMERO,"+;
"::dbfCli:COMPLEMENT, ::dbfCli:CONTATO, ::dbfCli:CPF_CGC, ::dbfCli:INS_IDE, ::dbfCli:CONTRIICMS,"+;
"::dbfCli:REGICMS, ::dbfCli:BAIRRO, ::dbfCli:CIDADE, ::dbfCli:CODCID, ::dbfCli:ESTADO, ::dbfCli:CODUF,"+;
"::dbfCli:CEP, ::dbfCli:NASCIMENTO, ::dbfCli:CATEGORIA, ::dbfCli:CODIGO, ::dbfCli:CODAUX, ::dbfCli:TEL1,"+;
"::dbfCli:TEL2, ::dbfCli:FAX, ::dbfCli:TAG, ::dbfCli:OBS, ::dbfCli:SEXO, ::dbfCli:PAIS, ::dbfCli:END_COM,"+;
"::dbfCli:NUM_COM, ::dbfCli:BAI_COM, ::dbfCli:CID_COM, ::dbfCli:CMU_COM, ::dbfCli:EST_COM,"+;
"::dbfCli:CES_COM, ::dbfCli:CEP_COM, ::dbfCli:COM_COM, ::dbfCli:CON_COM, ::dbfCli:EMPRESA, ::dbfCli:FON_COM,"+;
"::dbfCli:EMAIL_COM, ::dbfCli:TEMPO_EMP, ::dbfCli:SALARIO, ::dbfCli:EST_CIVIL, ::dbfCli:PAI, ::dbfCli:MAE,"+;
"::dbfCli:CONJUGE, ::dbfCli:AVALISTA, ::dbfCli:PROFISSAO, ::dbfCli:REF1, ::dbfCli:REF2, ::dbfCli:REF3,"+;
"::dbfCli:REGIAO, ::dbfCli:VENDEDOR, ::dbfCli:POTENCIAL, ::dbfCli:FANTASIA, ::dbfCli:TRANSP,"+;
"::dbfCli:CREDITO, ::dbfCli:LIMITE, ::dbfCli:BOCAZEDA, ::dbfCli:DATA_BOCA, ::dbfCli:DATA_LIB,"+;
"::dbfCli:USUBLOQ, ::dbfCli:USUDESB, ::dbfCli:DATA,::dbfCli:TIPO, ::dbfCli:E_MAIL, ::dbfCli:EMAILNFE,"+;
"::dbfCli:CUSTO, ::dbfCli:DATA_XP, ::dbfCli:DATA_XR, ::dbfCli:PRECO, ::dbfCli:COND_VENDA,"+;
"::dbfCli:ULT_COMPRA, ::dbfCli:OBS1, ::dbfCli:OBS2, ::dbfCli:ABC, ::dbfCli:BASE_AUX, ::dbfCli:VALOR_AUX,"+;
"::dbfCli:VALOR_AUXC, ::dbfCli:PERCE_AUX, ::dbfCli:TRANSFERE, ::dbfCli:SUFRAMA) ")
::dbfCli:Skip()
ENDDO
::oDB:CommitTrans()

Desde já agradeço.
Wagner

[Cassiano de Oliveira]

Wagner habilita pra mostrar as mensagens de erro e veja o que aparece...
Vc rodou com o debug pra acompanhar o conteúdo das variáveis?
Qualquer coisa se vc não conseguir, posta um mini projeto e uma tabela DBF q
usou no mesmo e manda o CREATE da tua tabela no MySQL que verificamos.
[]´s
"Wagner" wrote in message news:52631884$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Mário boa noite,
Estou usando o exemplo do Cassiano, fiz algumas mudanças
para minha necessidade, crio o banco, crio as tabelas, mas
quando vou inserir os registros não inseri, segue abaixo
parte do codigo, se puder me ajudar, fico muito agradecido.
::oDB:BeginTrans()
::dbfCli:GoTop()
DO While !::dbfCli:Eof()
::oDB:Execute("INSERT INTO CLIENT(CODIGO, NOME,
IMAGEM, ENDERECO, NUMERO, COMPLEMENT, CONTATO, CPF_CGC,
INS_IDE,"+;
"CONTRIICMS, REGICMS, BAIRRO, CIDADE,
CODCID, ESTADO, CODUF, CEP, NASCIMENTO, CATEGORIA, CODIGO,
CODAUX,"+;
"TEL1, TEL2, FAX, TAG, OBS, SEXO, PAIS,
END_COM ,NUM_COM ,BAI_COM, CID_COM, CMU_COM, EST_COM,
CES_COM,"+;
"CEP_COM, COM_COM, CON_COM, EMPRESA,
FON_COM, EMAIL_COM, TEMPO_EMP, SALARIO, EST_CIVIL, PAI, MAE,
CONJUGE,"+;
"AVALISTA, PROFISSAO, REF1, REF2, REF3,
REGIAO, VENDEDOR, POTENCIAL, FANTASIA, TRANSP, CREDITO,
LIMITE,"+;
"BOCAZEDA, DATA_BOCA, DATA_LIB, USUBLOQ,
USUDESB, DATA,TIPO, E_MAIL, EMAILNFE, CUSTO, DATA_XP,
DATA_XR, PRECO,"+;
"COND_VENDA, ULT_COMPRA, OBS1, OBS2, ABC,
BASE_AUX, VALOR_AUX, VALOR_AUXC, PERCE_AUX, TRANSFERE,
SUFRAMA)"+;
"VALUES (::dbfCli:CODIGO, ::dbfCli:NOME,
::dbfCli:IMAGEM, ::dbfCli:ENDERECO, ::dbfCli:NUMERO,"+;
"::dbfCli:COMPLEMENT, ::dbfCli:CONTATO,
::dbfCli:CPF_CGC, ::dbfCli:INS_IDE, ::dbfCli:CONTRIICMS,"+;
"::dbfCli:REGICMS, ::dbfCli:BAIRRO,
::dbfCli:CIDADE, ::dbfCli:CODCID, ::dbfCli:ESTADO,
::dbfCli:CODUF,"+;
"::dbfCli:CEP, ::dbfCli:NASCIMENTO,
::dbfCli:CATEGORIA, ::dbfCli:CODIGO, ::dbfCli:CODAUX,
::dbfCli:TEL1,"+;
"::dbfCli:TEL2, ::dbfCli:FAX,
::dbfCli:TAG, ::dbfCli:OBS, ::dbfCli:SEXO, ::dbfCli:PAIS,
::dbfCli:END_COM,"+;
"::dbfCli:NUM_COM, ::dbfCli:BAI_COM,
::dbfCli:CID_COM, ::dbfCli:CMU_COM, ::dbfCli:EST_COM,"+;
"::dbfCli:CES_COM, ::dbfCli:CEP_COM,
::dbfCli:COM_COM, ::dbfCli:CON_COM, ::dbfCli:EMPRESA,
::dbfCli:FON_COM,"+;
"::dbfCli:EMAIL_COM, ::dbfCli:TEMPO_EMP,
::dbfCli:SALARIO, ::dbfCli:EST_CIVIL, ::dbfCli:PAI,
::dbfCli:MAE,"+;
"::dbfCli:CONJUGE, ::dbfCli:AVALISTA,
::dbfCli:PROFISSAO, ::dbfCli:REF1, ::dbfCli:REF2,
::dbfCli:REF3,"+;
"::dbfCli:REGIAO, ::dbfCli:VENDEDOR,
::dbfCli:POTENCIAL, ::dbfCli:FANTASIA, ::dbfCli:TRANSP,"+;
"::dbfCli:CREDITO, ::dbfCli:LIMITE,
::dbfCli:BOCAZEDA, ::dbfCli:DATA_BOCA,
::dbfCli:DATA_LIB,"+;
"::dbfCli:USUBLOQ, ::dbfCli:USUDESB,
::dbfCli:DATA,::dbfCli:TIPO, ::dbfCli:E_MAIL,
::dbfCli:EMAILNFE,"+;
"::dbfCli:CUSTO, ::dbfCli:DATA_XP,
::dbfCli:DATA_XR, ::dbfCli:PRECO, ::dbfCli:COND_VENDA,"+;
"::dbfCli:ULT_COMPRA, ::dbfCli:OBS1,
::dbfCli:OBS2, ::dbfCli:ABC, ::dbfCli:BASE_AUX,
::dbfCli:VALOR_AUX,"+;
"::dbfCli:VALOR_AUXC, ::dbfCli:PERCE_AUX,
::dbfCli:TRANSFERE, ::dbfCli:SUFRAMA) ")
::dbfCli:Skip()
ENDDO
::oDB:CommitTrans()
Desde já agradeço.
Wagner

[wmsei]

Cassiano boa noite,
Antes de mais nada obrigado pela ajuda. Fiz conforme postado anteriormente, mas não consegui encontrar o erro, estou postando o DBF e o create.

CREATE TABLE `client` (
`CODIGO` CHAR(6) NOT NULL,
`NOME` VARCHAR(60) NULL DEFAULT NULL,
`IMAGEM` VARCHAR(100) NULL DEFAULT NULL,
`ENDERECO` VARCHAR(60) NULL DEFAULT NULL,
`NUMERO` INT(5) NULL DEFAULT NULL,
`COMPLEMENT` VARCHAR(50) NULL DEFAULT NULL,
`CONTATO` VARCHAR(35) NULL DEFAULT NULL,
`CPF_CGC` VARCHAR(19) NULL DEFAULT NULL,
`INS_IDE` VARCHAR(15) NULL DEFAULT NULL,
`CONTRIICMS` CHAR(1) NULL DEFAULT NULL,
`REGICMS` CHAR(1) NULL DEFAULT NULL,
`BAIRRO` VARCHAR(20) NULL DEFAULT NULL,
`CIDADE` VARCHAR(39) NULL DEFAULT NULL,
`CODCID` INT(7) NULL DEFAULT NULL,
`ESTADO` CHAR(2) NULL DEFAULT NULL,
`CODUF` INT(2) NULL DEFAULT NULL,
`CEP` CHAR(9) NULL DEFAULT NULL,
`NASCIMENTO` DATE NULL DEFAULT NULL,
`CATEGORIA` VARCHAR(20) NULL DEFAULT NULL,
`CODAUX` CHAR(6) NULL DEFAULT NULL,
`TEL1` VARCHAR(14) NULL DEFAULT NULL,
`TEL2` VARCHAR(14) NULL DEFAULT NULL,
`FAX` VARCHAR(14) NULL DEFAULT NULL,
`TAG` BLOB NULL,
`OBS` MEDIUMTEXT NULL,
`SEXO` CHAR(1) NULL DEFAULT NULL,
`PAIS` VARCHAR(20) NULL DEFAULT NULL,
`END_COM` VARCHAR(50) NULL DEFAULT NULL,
`NUM_COM` INT(5) NULL DEFAULT NULL,
`BAI_COM` VARCHAR(20) NULL DEFAULT NULL,
`CID_COM` VARCHAR(39) NULL DEFAULT NULL,
`CMU_COM` INT(7) NULL DEFAULT NULL,
`EST_COM` CHAR(2) NULL DEFAULT NULL,
`CES_COM` CHAR(2) NULL DEFAULT NULL,
`CEP_COM` VARCHAR(9) NULL DEFAULT NULL,
`COM_COM` VARCHAR(50) NULL DEFAULT NULL,
`CON_COM` VARCHAR(50) NULL DEFAULT NULL,
`EMPRESA` VARCHAR(35) NULL DEFAULT NULL,
`FON_COM` VARCHAR(14) NULL DEFAULT NULL,
`EMAIL_COM` VARCHAR(100) NULL DEFAULT NULL,
`TEMPO_EMP` VARCHAR(16) NULL DEFAULT NULL,
`SALARIO` DECIMAL(15,2) NULL DEFAULT NULL,
`EST_CIVIL` VARCHAR(10) NULL DEFAULT NULL,
`PAI` VARCHAR(35) NULL DEFAULT NULL,
`MAE` VARCHAR(35) NULL DEFAULT NULL,
`CONJUGE` VARCHAR(35) NULL DEFAULT NULL,
`AVALISTA` VARCHAR(35) NULL DEFAULT NULL,
`PROFISSAO` VARCHAR(35) NULL DEFAULT NULL,
`REF1` VARCHAR(54) NULL DEFAULT NULL,
`REF2` VARCHAR(54) NULL DEFAULT NULL,
`REF3` VARCHAR(54) NULL DEFAULT NULL,
`REGIAO` VARCHAR(20) NULL DEFAULT NULL,
`VENDEDOR` CHAR(3) NULL DEFAULT NULL,
`POTENCIAL` DECIMAL(15,2) NULL DEFAULT NULL,
`FANTASIA` VARCHAR(50) NULL DEFAULT NULL,
`TRANSP` CHAR(6) NULL DEFAULT NULL,
`CREDITO` DECIMAL(15,2) NULL DEFAULT NULL,
`LIMITE` DECIMAL(15,2) NULL DEFAULT NULL,
`BOCAZEDA` BLOB NULL,
`DATA_BOCA` DATE NULL DEFAULT NULL,
`DATA_LIB` DATE NULL DEFAULT NULL,
`USUBLOQ` VARCHAR(30) NULL DEFAULT NULL,
`USUDESB` VARCHAR(30) NULL DEFAULT NULL,
`DATA` DATE NULL DEFAULT NULL,
`TIPO` CHAR(1) NULL DEFAULT NULL,
`E_MAIL` VARCHAR(100) NULL DEFAULT NULL,
`EMAILNFE` VARCHAR(100) NULL DEFAULT NULL,
`CUSTO` CHAR(4) NULL DEFAULT NULL,
`DATA_XP` DATE NULL DEFAULT NULL,
`DATA_XR` DATE NULL DEFAULT NULL,
`PRECO` CHAR(1) NULL DEFAULT NULL,
`COND_VENDA` CHAR(3) NULL DEFAULT NULL,
`ULT_COMPRA` DATE NULL DEFAULT NULL,
`OBS1` VARCHAR(20) NULL DEFAULT NULL,
`OBS2` VARCHAR(20) NULL DEFAULT NULL,
`ABC` CHAR(5) NULL DEFAULT NULL,
`BASE_AUX` CHAR(6) NULL DEFAULT NULL,
`VALOR_AUX` DECIMAL(15,4) NULL DEFAULT NULL,
`VALOR_AUXC` DECIMAL(15,4) NULL DEFAULT NULL,
`PERCE_AUX` DECIMAL(9,4) NULL DEFAULT NULL,
`TRANSFERE` CHAR(1) NULL DEFAULT NULL,
`SUFRAMA` CHAR(9) NULL DEFAULT NULL,
PRIMARY KEY (`CODIGO`),
INDEX `NOME` (`NOME`),
INDEX `CPFCNPJ` (`CPF_CGC`),
INDEX `NASCIMENTO` (`NASCIMENTO`),
INDEX `FANTASIA` (`FANTASIA`),
INDEX `CATEGORIA` (`CATEGORIA`)
)
COLLATE='latin1_swedish_ci'
ENGINE=InnoDB;

Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Xailer 3.0.2

Attached files clie.DBF (20.8 KB)Â clie.FPT (1.1 KB)Â

[wmsei]

Cassiano boa noite,
Alterei a tabela de inserção mas o erro continua o mesmo, saberia me dizer que erro é esse?
Em anexo mensagem de erro.
Grato pelo retorno e atenção
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Xailer 3.0.2

[Cassiano de Oliveira]

Wagner não veio o anexo...
[]´s
"Wagner" wrote in message news:5265ba2b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Alterei a tabela de inserção mas o erro continua o mesmo,
saberia me dizer que erro é esse?
Em anexo mensagem de erro.
Grato pelo retorno e atenção
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Xailer 3.0.2

[Cassiano de Oliveira]

Wagner disponibilizei um projeto completo que migra DBFs para SQL baseado na
tua tabela, acredito q dentro em breve será liberado pela equipe Xailer,
enquanto isto postei tb no fórum do Toledo.
[]´s
Cassiano.
"Cassiano de Oliveira" wrote in message news:[email=5265c5ed@svctag-j7w3v3j....]5265c5ed@svctag-j7w3v3j....[/email]
Wagner não veio o anexo...
[]´s
"Wagner" wrote in message news:5265ba2b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Alterei a tabela de inserção mas o erro continua o mesmo,
saberia me dizer que erro é esse?
Em anexo mensagem de erro.
Grato pelo retorno e atenção
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Xailer 3.0.2

[wmsei]

Cassiano boa noite,
Antes de mais nada obrigado pela ajuda.
Desculpe te incomodar, mas baixei o projeto Xailer Open DBF2SQL Conversor para MariaDB / MySQL, ao compilar da o seguinte erro:
Quote:
A compilar: DBF2SQL.prg...
A compilar: DBF2SQL.rc...
A compilar: frmPrincipal.prg...
A compilar: libMsgs.prg...
Error: O nome do diretório é inválido.
A compilar: Xailer_Open_DBF2SQL.prg...
5 Files, 0 Warnings, 1 Errors
Compilar tempo: 1.23s Linkar tempo: 0s Tempo total: 1.24s

Nesse libMsgs.prg não tem nada, se retiro do projeto diz que a função MsgEdit() não existe. Preciso de alguma lib para parar esse erro?
Grato.
Wagner Monteiro dos Santos
Xailer 3.1.0

[wmsei]

Cassiano boa noite,
Ontem ao testar a inserção, mudei a tabela para inserção deu o erro que esta no arquivo em anexo e agora apareceu o seguinte erro:
Quote:
tmysqlrecords:dbstruct(0)
tmysqlrecords:queryall(261)
tmysqlrecords:open(192)
tsqltable:open(318)
(b)xdataset(36)
tsqltable:_lopen(0)

Pelo seu exemplo mudei a tabela que DATA oDT INIT AppData:oDS:Table('contatos') para a que queria atualizar, voltei para a tabela "contatos" do seu exemplo, mas mesmo assim continua dando o mesmo erro.
No exemplo que vocíª disponibilizou havia dito que alguns campos definidos nas tabelas poderiam entrar em conflito com o xailer, seria esse o problema?
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Xailer 3.1.0

Attached files

[Cassiano de Oliveira]

Desculpe é que faltou o arquivo libMsgs.prg que fica em outra pasta.
Segue em anexo.
[]´s
"Wagner" wrote in message news:52670fb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Antes de mais nada obrigado pela ajuda.
Desculpe te incomodar, mas baixei o projeto Xailer Open
DBF2SQL Conversor para MariaDB / MySQL, ao compilar da o
seguinte erro:
Quote:
> A compilar: DBF2SQL.prg...
> A compilar: DBF2SQL.rc...
> A compilar: frmPrincipal.prg...
> A compilar: libMsgs.prg...
> Error: O nome do diretório é inválido.
> A compilar: Xailer_Open_DBF2SQL.prg...
> 5 Files, 0 Warnings, 1 Errors
> Compilar tempo: 1.23s Linkar tempo: 0s Tempo total:
> 1.24s
Nesse libMsgs.prg não tem nada, se retiro do projeto diz
que a função MsgEdit() não existe. Preciso de alguma lib
para parar esse erro?
Grato.
Wagner Monteiro dos Santos
Xailer 3.1.0
--

Attached files libMsgs.rar (11.6 KB)Â

[wmsei]

Cassiano boa noite,
Estou tentando fazer a inserção dos itens de maneira diferente que vocíª fez no seu exemplo DBF2SQL, banco conectado, tabela aberta, mas quando mando inserir aparece essa mensagem:
Quote:
#1: MariaDB:INSERT INTO GRUPOS(CODIGO, DESCRICAO, CREDEB, OPERAC,IPMF, TOTAL_AUX, TOTAL_IND, RAZAO, CUSTO)VALUES (::dbfGrp:CODIGO, ::dbfGrp:DESCRICAO, ::dbfGrp:CREDEB, ::dbfGrp:OPERAC,::dbfGrp:IPMF, ::dbfGrp:TOTAL_AUX, ::dbfGrp:TOTAL_IND, ::dbfGrp:RAZAO, ::dbfGrp:CUSTO)
You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near '::dbfGrp:CODIGO, ::dbfGrp:DESCRICAO, ::dbfGrp:CREDEB, ::dbfGrp:OPERAC,::dbfGrp:I' at line 1 [# 1064]
No procedimento: FRMAGENDA:FORMINITIALIZE Linha: 107

Procurei nos fóruns mas não consegui encontrar nada que ajudasse.
Tens alguma ideia do que pode ser?
Segue parte do projeto que faz essa inserção.

::oDB:BeginTrans()
::dbfGrp:GoTop()
do while !::dbfGrp:eof()
MsgAlert("Grupo :"+::dbfGrp:CODIGO+" ==> "+::dbfGrp:DESCRICAO)
::oDB:Execute("INSERT INTO GRUPOS(CODIGO, DESCRICAO, CREDEB, OPERAC,"+;
"IPMF, TOTAL_AUX, TOTAL_IND, RAZAO, CUSTO)"+;
"VALUES (::dbfGrp:CODIGO, ::dbfGrp:DESCRICAO, ::dbfGrp:CREDEB, ::dbfGrp:OPERAC,"+ ;
"::dbfGrp:IPMF, ::dbfGrp:TOTAL_AUX, ::dbfGrp:TOTAL_IND, ::dbfGrp:RAZAO, ::dbfGrp:CUSTO) ")
::dbfGrp:SKIP()
enddo
::oDB:CommitTrans()

onde dbfGrp é um dataSet da tabela GRUPOS.DBF
Mais uma vez obrigado pela ajuda
Wagner Monteiro dos Santos
Xailer 3.1.0
Windows 7

[Cassiano de Oliveira]

Wagner,
Pelo que pude analisar parece que o problema esta na CONCATENAí‡íƒO entre o
comando SQL e o conteúdo das variáveis...
De uma analisada na mudança que eu fiz no teu código... como não sei o TIPO
das variáveis, SUBENTENDI que poderiam ser todas do tipo CARACTER, se sim,
poderia ficar da maneira abaixo:
::oDB:BeginTrans()
::dbfGrp:GoTop()
do while !::dbfGrp:eof()
MsgAlert("Grupo :" + ::dbfGrp:CODIGO + " ==>" + ::dbfGrp:DESCRICAO)
::oDB:Execute("INSERT INTO GRUPOS(CODIGO, DESCRICAO, CREDEB, OPERAC,
IPMF, TOTAL_AUX, TOTAL_IND, RAZAO, CUSTO) "+;
" VALUES (" + IF( Valtype(::dbfGrp:CODIGO) == 'N',
STR(::dbfGrp:CODIGO), ::dbfGrp:CODIGO) + ", " +;
::dbfGrp:DESCRICAO + "," + ;
::dbfGrp:CREDEB + "," + ;
::dbfGrp:OPERAC + "," + ;
::dbfGrp:IPMF + "," + ;
::dbfGrp:TOTAL_AUX + "," + ;
::dbfGrp:TOTAL_IND + "," + ;
::dbfGrp:RAZAO + "," + ;
::dbfGrp:CUSTO + ") ")
::dbfGrp:SKIP()
enddo
::oDB:CommitTrans()
[]´s
Cassiano.
"Wagner" wrote in message news:526da921$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Estou tentando fazer a inserção dos itens de maneira
diferente que vocíª fez no seu exemplo DBF2SQL, banco
conectado, tabela aberta, mas quando mando inserir aparece
essa mensagem:
Quote:
> #1: MariaDB:INSERT INTO GRUPOS(CODIGO, DESCRICAO,
> CREDEB, OPERAC,IPMF, TOTAL_AUX, TOTAL_IND, RAZAO,
> CUSTO)VALUES (::dbfGrp:CODIGO, ::dbfGrp:DESCRICAO,
> ::dbfGrp:CREDEB, ::dbfGrp:OPERAC,::dbfGrp:IPMF,
> ::dbfGrp:TOTAL_AUX, ::dbfGrp:TOTAL_IND, ::dbfGrp:RAZAO,
> ::dbfGrp:CUSTO) You have an error in your SQL syntax; check the
> manual that corresponds to your MariaDB server version for
> the right syntax to use near '::dbfGrp:CODIGO,
> ::dbfGrp:DESCRICAO, ::dbfGrp:CREDEB,
> ::dbfGrp:OPERAC,::dbfGrp:I' at line 1 [# 1064]
> No procedimento: FRMAGENDA:FORMINITIALIZE Linha:
> 107
Procurei nos fóruns mas não consegui encontrar nada que
ajudasse.
Tens alguma ideia do que pode ser?
Segue parte do projeto que faz essa inserção.
::oDB:BeginTrans()
::dbfGrp:GoTop()
do while !::dbfGrp:eof()
MsgAlert("Grupo :"+::dbfGrp:CODIGO+" ==>
"+::dbfGrp:DESCRICAO)
::oDB:Execute("INSERT INTO GRUPOS(CODIGO, DESCRICAO,
CREDEB, OPERAC,"+;
"IPMF, TOTAL_AUX, TOTAL_IND, RAZAO,
CUSTO)"+;
"VALUES (::dbfGrp:CODIGO,
::dbfGrp:DESCRICAO, ::dbfGrp:CREDEB, ::dbfGrp:OPERAC,"+ ;
"::dbfGrp:IPMF, ::dbfGrp:TOTAL_AUX,
::dbfGrp:TOTAL_IND, ::dbfGrp:RAZAO, ::dbfGrp:CUSTO) ")
::dbfGrp:SKIP()
enddo
::oDB:CommitTrans()
onde dbfGrp é um dataSet da tabela GRUPOS.DBF
Mais uma vez obrigado pela ajuda
Wagner Monteiro dos Santos
Xailer 3.1.0
Windows 7