Quer exportar os dados de uma tabela para um arquivo Texto ou gerar um DBF ?

Se você estiver usando a DAO e precisa gerar um arquivo texto ou um arquivo DBF com os dados de sua tabela, vai precisar de apenas algumas linhas de código para fazer este serviço.

Na verdade a linha que faz todo o serviço tem a seguinte sintaxe:

db.Execute "SELECT tbl.fields INTO  [dbms type; DATABASE=path].[arquivo_nome] FROM [table]" 

Onde:

  1. tbl.fiedls - são os campos da tabela que quer exportar
  2. dbms type -  é o tipo de arquivo que deseja gerar :  Dbase III , Text , Excel 4.0 (5.0, 7.0, 8.0) ;Paradox ; Lotus; Fox Prox, etc..
  3. DATABASE=path - a localização do arquivo a ser gerado
  4. arquivo_nome - é o nome do arquivo a ser gerado
  5. table - o nome da tabela de onde os dados serão extraídos

Nosso projeto irá abrir o banco de dados Biblio.mdb e exportar os dados da tabela Authors para um arquivo texto. Vamos ao projeto: 

1-) Inicie um  novo projeto no Visual Basic  e no formulário padrão insira um botão de comando.

2-) A seguir inclua o seguinte código no evento Click do botão de comando: Para gerar um arquivo texto. O arquivo Schema.INI será automaticamente gerado no diretório do arquivo texto a ser gerado.

Private Sub Command1_Click()
Dim db As Database
Set db = Workspaces(0).OpenDatabase("c:\teste\biblio.mdb")

db.Execute "Select * into [Text; DATABASE=" & "C:\teste].[teste.txt] FROM [authors]"

End Sub

Para gerar um arquivo no padrão DBF altere o código para:

Private Sub Command1_Click()
Dim db As Database
Set db = Workspaces(0).OpenDatabase("c:\teste\biblio.mdb")

db.Execute "Select * into [Dbase III; DATABASE=" & "C:\teste].[teste.dbf] FROM [authors]"

End Sub

Gostou ??? por enquanto ,  é só ...