Salvando o conteúdo da tabela de um Banco de Dados em um arquivo de texto.

Descrição:

Como posso salvar a tabela de um Banco de Dados em um arquivo de texto?

Solução:

Para isto, pode-se criar um Relatório, configurar uma Consulta, e utilizar o método Export(); ou então, pode-se escrever o script a seguir na aplicação:

set cs = Screen.Item("Query1").GetADORecordset()
table = cs.GetString(2, , , vbNewLine)
Set aux = CreateObject("Scripting.FileSystemObject")

Set aux1a = aux.CreateTextFile("C:\Text1.txt", True)
aux1a.Close

Set aux1 = aux.OpenTextFile("C:\Text1.txt",8)
aux1.WriteLine table
aux1.Close
Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 0 / 5. Count: 0

Leave a Reply

Your email address will not be published.Required fields are marked *