PC Toledo

Enviado: **28 Mar 2008 17:48**

Amigos...

Que tal os mais espertos na área, começarem a estudar uma forma de postar exemplos práticos e fáceis de como trabalhar com os arquivos para SQL (se é assim que se diz) no XHB/Clipper. Qual a forma mais fácil de migrar de DBF para relacional SQL.

Seria interessante cada um postar seus modos de utilização, como criar um arquivo, como abrir, como gravar, excluir um registro ou ler.

Hoje, todos sabem, utilizamos no Clipper para criar arquivos a rotina:

Código: Selecionar todos

IF .NOT. FILE("BANCOS.DBF")
   CREATE ESTRUT

   VCAMPO="CODIGO"
   VTIPO ="N"
   VCOMP =2
   VDEC  =0
   DBAPPEND()
   REPLACE FIELD_name WITH VCAMPO
   REPLACE FIELD_type WITH VTIPO
   REPLACE FIELD_len  WITH VCOMP
   REPLACE FIELD_dec  WITH VDEC

   VCAMPO="DESCRICAO"
   VTIPO ="C"
   VCOMP =30
   VDEC  =0
   DBAPPEND()
   REPLACE FIELD_name WITH VCAMPO
   REPLACE FIELD_type WITH VTIPO
   REPLACE FIELD_len  WITH VCOMP
   REPLACE FIELD_dec  WITH VDEC

   CREATE BANCOS FROM ESTRUT
   ERASE ESTRUT.DBF
ENDIF

... e para consultar registros:

Código: Selecionar todos

SELE 1
USE BANCOS SHARED ALIAS BANCAI
SET INDEX TO BNKCC
SET ORDER TO 1

TCONTALCTO=CODIGO
TNOME=DESCRICAO

SELE BANCAI
DBSEEK(TCONTALCTO)
@10,22 SAY TCONTALCTO
@11,22 SAY TNOME

... e para gravar:

Código: Selecionar todos

      SELE BANCAI
      DBGOTO(posireg)
      DBRLOCK()
      REPLACE CODIGO       WITH TCONTALCTO
      REPLACE DESCRICAO WITH TNOME
      DBCOMMIT()
      DBUNLOCK()

Ao começarmos a trabalhar com banco de dados mais confiável e com possibilidade de maior segurança, estaremos a mais um passo na frente.

Creio que será uma boa idéia, principalmente se essas idéias vierem à tona por parte dos mais afinados no ramo da programação Clipper.

Saudações a todos...

Erasmo Andrioli
Sorriso-MT (BRASIL)

Enviado: **29 Mar 2008 08:15**

EANDRIOLI escreveu:Amigos...

Que tal os mais espertos na área, começarem a estudar uma forma de postar exemplos práticos e fáceis de como trabalhar com os arquivos para SQL (se é assim que se diz) no XHB/Clipper. Qual a forma mais fácil de migrar de DBF para relacional SQL.

Tem exemplos em Postgres e MySQL no contrib do xharbour.
Uma dica:
Quem desenvolveu o drive de acesso ao Mysql do xharbour foi o Rodrigo Moreno.
Ele parou e mudou para Postgres, nas palavras dele está totalmente funcional e bastante "estável".
Mas ja li algumas vezes relatos de pessoas usando com exito o drive para Mysql.
Tem exemplos inclusive de como importar de dbf para sql.

Saudações
Itamar M. Lins Jr.

Enviado: **31 Mar 2008 10:15**

Eu estou testando ADORDD para acessar o Oracle.
Vc pode usar o mesmo para acessar vários outros BD.

Olá...

Bom... desenvolvi duas DLLs em Delphi (chamadas a partir da aplicação Clipper) para ler, incluir, alterar, excluir e até fazer um "dbedit" visual...

Gostaria de compartilhar essas DLLs e assim você e outros usuários poderiam ter uma idéia melhor do que eu fiz para acessar as tabelas no MySQL...

Há alguma forma de fazer isso aqui no "Clipper on-line"?^

Amiguinho

Na sessão codigo fonte disponibilizei um Gerador de .ASP, de uma analisada em como os comandos funcionam e voce tera uma base de como usar comandos SQL ou como eles são formatados para se fazer uma adição a tabelas ou manutenção.

link

PC Toledo

Como migrar de DBF para SQL???

Como migrar de DBF para SQL???

Re: COMO MIGRAR DE DBF PARA SQL???