Clipper On Line • Ver Tópico - Dbf x Mysql
Mudar para estilo Clássico
Discussão sobre SQL
Postar uma resposta

Dbf x Mysql

19 Jul 2016 18:34

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

Dbf x Mysql

29 Jul 2016 11:44

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:
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.

Dbf x Mysql

29 Jul 2016 14:40

http://pctoledo.com.br/forum/viewtopic.php?f=55&t=14567&p=85130&hilit=dbf2sql#p85130
http://www.xailer.com/download?en&file=106

[]´s
Postar uma resposta