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
Moderador: Moderadores
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
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes