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