Clipper On Line • Ver Tópico - Dbf x Mysql

Dbf x Mysql

Discussão sobre SQL

Moderador: Moderadores

 

Dbf x Mysql

Mensagempor Ricardo Sales Ribeiro » 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
Ricardo Sales
Fortaleza-Ce
lodara53@yahoo.com.br
lodara53@hotmail.com
Avatar de usuário

Ricardo Sales Ribeiro
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 282
Data de registro: 13 Jul 2004 18:06
Cidade/Estado: Fortaleza-Ceara
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Dbf x Mysql

Mensagempor JoséQuintas » 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:

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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9259
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 vezes

Dbf x Mysql

Mensagempor fladimir » 29 Jul 2016 14:40

Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


DESKTOP CONSOLE Harbour 3.4.0dev (4541270) (2016-06-28 07:05) | Console | MINGW | DBF | CDX | FastReport | MySQL
DESKTOP VISUAL... Harbour 3.2 | MinGW | Xailer 4.0.2 | MariaDB Nativo | Outros via ADO | FastReport
MOBILE Android/IOS e WEB - Outros
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2108
Data de registro: 15 Nov 2006 19:21
Curtiu: 16 vezes
Mens.Curtidas: 98 vezes




Retornar para SQL

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro