[VB6] Esportare tabella access in file .txt

[Massimo Moretti]

Qualche esperto può darmi un aiuto?

Avevo bisogno di salvare una tabella di Access in un file.txt, ci sono riuscito, ma nel file.txt salvato, i campi sono separati da spazi, mentre avrei bisogno di separli con tabulazioni.

'*****************************
Private Sub Salva_Click()
'SALVA IN UN FILE TXT
Dim Stringa, Tutti, Cerca As String
Dim rs As New ADODB.Recordset

If DataCombo1.Text = "Tutti" Then
Cerca = ""
Tutti = Cerca
sost_Tutti = "%' and Tutti like '%"
Trova = Replace(Tutti, " ", sost_Tutti)

Stringa = "Select * from Tbl_Running where Runner like '%" & Trova & "%'"
Else
Stringa = "Select * from Tbl_Running where Runner = '" & DataCombo1.Text & "'"
End If
'Set rs = New ADODB.Recordset
rs.Open Stringa, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programmi\Running_VB\Running_VB.mdb", adOpenKeyset, adLockOptimistic, adCmdText
Open "C:\Programmi\Running_vb\Running_vb_Excel.txt" For Output As #1
Print #1, "DATA", "RUNNER", "km", "tempo", "SPEED", "tempo", "km", "MODALITA ALLEN", "FCA", "METEO", "SCARPA", "PERCORSO"
rs.MoveFirst
Do Until rs.EOF

Data = rs.Fields("Data").Value
RUNNER = rs.Fields("Runner").Value
km = rs.Fields("Km").Value
Time = rs.Fields("Time").Value
SPEED = rs.Fields("Speed").Value
TEMPO_KM = rs.Fields("TEMPO_KM").Value
Modalita_Allenamento = rs.Fields("Modalita_Allenamento").Value
FC_Arrivo = rs.Fields("FC_Arrivo").Value
Condizioni_Meteo = rs.Fields("Condizioni_Meteo").Value
SCARPA = rs.Fields("Scarpa").Value
Tipo_Percorso = rs.Fields("Tipo_Percorso").Value
rs.MoveNext
Print #1, Data, RUNNER, km, Time, SPEED, TEMPO_KM, Modalita_Allenamento, FC_Arrivo, Condizioni_Meteo, SCARPA, Tipo_Percorso
Loop
rs.Close
Set rs = Nothing
Close #1
prompt$ = "Il File Running_vb_Excel.txt è stato salvato in: C:\Programmi\Running_vb\"
Reply = MsgBox(prompt$, vbInformation, "RUNNING vb -Creato file con dati Atleta " & DataCombo1.Text & "-")

End Sub
'**************************


Grazie

[MMarzia]

occhio ai titoli..

[Melly]

non vorrei sbagliare ma credo che basti aggiungere un vbtab quando vai a scrivere sul file ad es

Print #1, Data & vbtab RUNNER & vbtab km & vbtab Time & vbtab SPEED & vbtab TEMPO_KM & vbtab Modalita_Allenamento & vbtab FC_Arrivo & vbtab Condizioni_Meteo & vbtab SCARPA & vbtab Tipo_Percorso

stessa cosa per quando inserisci i nomi dei campi

[cassano]

in vb6 c'era una funzione che permetteva di salvare direttamente l'intero recordset sull hd del pc o in formato testo o xml

[Massimo Moretti]

OK, Grazie Melly, funziona, era proprio quello che mi serviva