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: 279
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.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 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”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para SQL

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro