[VB6-access] scrivere in un file txt

[fux_vr]

io devo scriver in un file txt tutta la mia tabella

finora ho scritto cio'

Private Sub Comando63_Click()
Open "C:\fileprova.txt" For Output As #1 ' Apre il file perl'output.
Write #1, "Salve gente"

End Sub

come faccio a sciver i dati della tabella per un tot di record che non sono definiti???

[fux_vr]

risp

[XVincentX]

Semplice, per ogni write che fai corrisponde ad una riga. Se per esempio devi mettere una tabella di database intero, fai una cosa cosi

recordset.movefirst
do
write #1, recordset.fields("campo1").value, recordset.fields("campo2").value '(e prosegui cosi)
recordset.movenext
loop until recordset.eof

Come vedi ogni write corrisponde ad una riga del file txt, e ogni riga può avere colonne infinite.
Sono molto versatili!

[fux_vr]

grazie 1000 perfetto non so il significato di del codice che ho scritto ma funziona perfettamente.

unica cosa mi mette i campi tra " " e con la , tra un campo e altro come scrivo per far tutto di seguito???

adesso fa cosi

"mario","rossi","luca","bianchi"

io voglio che mi scriva cosi'
mariorossilucabinachi

[Brainjar]

Usa print al posto di write per eliminare gli apici.
Concatena i campi in una unica stringa e salva quest'ultima.

Dim sRiga As String 
recordset.movefirst
do
sRiga = Trim(recordset.fields("campo1").value) & Trim(recordset.fields("campo2").value) '(e prosegui cosi)
print #1, sRiga 
recordset.movenext
loop until recordset.eof

Ciao,

[fux_vr]

con questo mi da errore di sintassi sulla riga

sRiga = Trim(recordset.fields("campo1").value) & Trim(recordset.fields("campo2").value)

naturalmente ho cambiato i campi come prima. che prima funzionava

[Brainjar]

Io ho provato il codice che ti ho postato e funziona correttamente.

Dim sRiga As String
Dim Campo As Field
sRiga = ""

For Each Campo In rs.Fields
    sRiga = sRiga & Trim(Campo.Value) '(e prosegui cosi)
Next Campo

Hai fatto la dichiarazione di sRiga ?

naturalmente ho cambiato i campi come prima. che prima funzionava

Controlla, deve funzionare.

Ciao,