Con VB6 Esporta tabella Access in File.txt

[Massimo Moretti]

Ho scritto questo messaggio ieri, ma probabilmente, non chiaro è stato spostato nel forum di ACCESS.

Qualche esperto può darmi un aiuto?

Ho realizzato un'applicazione con VisualBasic 6
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_V
B.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]

il crossposting è vietato dal regolamento

Originariamente inviato da Massimo Moretti
Ho scritto questo messaggio ieri, ma probabilmente, non chiaro è stato spostato nel forum di ACCESS.

la discussione è stata spostata nel forum db dato che ti riferivi solo all'esportazione da access: infatti hai modificato il primo messaggio successivamente

la prossima volta segnalaci il 3d, oppure scrivici in pvt (lo puoi fare tranquillamente per questioni non tecniche. anche questo è scritto nel regolamento) e provvederemo a modificare.