|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Exportar os dados de uma tabela para um arquivo texto ou DBF (usando DAO)
|
 |
|
|
|
Postada em 25/8/2003 por Ð@®l@n
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
fonte: www.macoratti.net
|
|
|
|
|
