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- 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
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
