Dbf x Mysql

[Ricardo Sales Ribeiro]

Boa Noite

Não sei se é o lugar certo para essa pergunta, mas vamos lá, qualquer coisa transfiram para o lugar certo.

Preciso de um programa ou rotina para converter arquivos dbf para sql.
Ou como proceder.

Atenciosamente

[JoséQuintas]

Já sabe trabalhar com MySQL?
Então é só fazer.
É só pensar em funcionar primeiro, e depois pensar em como agilizar.

Como inclui no mysql? INSERT INTO TABELA ( campos ) VALUES ( valores )

Então é fazer igual.
Apenas como idéia básica, não testado, digitei no post:

Código: Selecionar todos

cStringCampos := ""
cStringValores := ""
DO WHILE .NOT. Eof()
   oStru := dbStruct()
   FOR nCont = 1 TO Len( oStru )
      cStringCampos += oStru[ nCont, F_NAME ] + ", "
      DO CASE
      CASE oStru[ F_TYPE ] == "N" ; cStringCampos +=  Str( FieldGet( nCont ) )
      CASE oStru[ F_TYPE ] == "C" ; cStringCampos += [']  + FieldGet( nCont ) ) + [']
      CASE oStru[ F_TYPE ] == "D" ; cStringCampos += ['] + Transform( FieldGet[ nCont ], "@R 9999-99-99" ) + ['] 
      ENDCASE
     cStringValues += cStringCampos + ", "
   NEXT
   // remover ", " final
   cStringCampos := Substr( cStringCampos, Len( cStringCampos ) - 2 )
   cStringValores := Substr( cStringCampos, Len( cStringCampos ) - 2 )
   cSql := "INSERT INTO tabela ( " + cStringCampos + " ) VALUES ( " + cStringValores + ")"
   cnMySql:Execute( cSql )
   SKIP
ENDDO

Tudo depende do que vai usar pra trabalhar com MySQL.
É usar a mesma coisa pra incluir.

[fladimir]

http://pctoledo.com.br/forum/viewtopic. ... sql#p85130
http://www.xailer.com/download?en&file=106

[]´s