BACKUP - EXPORTAR/IMPORTAR BD

Direto da sessão dicas:

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:

tbl.fiedls - são os campos da tabela que quer exportar
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..
DATABASE=path - a localização do arquivo a ser gerado
arquivo_nome - é o nome do arquivo a ser gerado
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:     esteiblio.mdb")

db.Execute "Select * into [Text; DATABASE=" & "C:     este].[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:     esteiblio.mdb")

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