|
|
Postada em 12/01/2006 11:55 hs
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
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
|
|
Postada em 12/01/2006 12:30 hs
Vê se resolve! Dim rSt As New ADODB.Recordset
Dim Sql As String
Sql = "SELECT * From NomeDaTabela"
rSt.Open Sql, Db, adOpenStatic, adLockPessimistic
Open "C:Backup.txt" For Output As 1#
Do While Not rSt.RecordCount
If (rSt.EOF Or rSt.BOF) Then Exit Do
Print #1, rSt!Campo1 & "," & rSt!Campo2
rSt.MoveNext
Loop
Close #1
MsgBox "Cópia de segurança efetuada para ¨" & rSt.RecordCount & "¨ registros!"
rSt.Close
Set rSt = Nothing
|
|
|
|
|
|
Postada em 13/01/2006 06:05 hs
O exemplo do Daniel até que funcionou, só que ele coloca linhas em branco entre os registros como fazer para ele não pular as linhas. |
|
|
|
|
|
Postada em 13/01/2006 07:05 hs
Grato pela ajuda senhores problema resolvido foi só colocar um (;) no final da linha |
|
|
|
