|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Exportar tabela para um arquivo texto (usando controle DATA)
|
 |
|
|
|
Postada em 25/6/2002 por Jonas
Private Sub cmdGerarArquivoTexto_Click()
Dim Linha As String
Open App.Path & " exto.txt" For Output As #1
Data1.Recordset.MoveMin
Do While Not Data1.Recordset.EOF
Linha = ""
Linha = Data1.Recordset.Fields(0) & _
Space(4 - Len(Data1.Recordset.Fields(0))) 'Usa-se o Space para as colunas estarem sempre alinhadas no txt
Linha = Linha & Data1.Recordset.Fields(1) & _
Space(20 - Len(Data1.Recordset.Fields(1)))
Print #1, Linha
Data1.Recordset.MoveNext
Loop
Close #1
MsgBox "Arquivo gerado com êxito." & Chr(13) _
& "Foram gerados " & pBar.Max & " registros.", vbInformation
Data1.Refresh
End Sub
|
|
|
|
|
