USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página