[VB6] Creare un file CSV a partire da un Recordset

[Sballerio]

Ciao a tutti, ho un problema nel creare un CSV con vb 6. In realtà ho idea di come realizzarlo ma non conoscendo bene la sintassi vb mi trovo un po' in difficoltà...anzi senza un po'.

Devo creare un file CSV a partire da un recordset

'scorro recordset e genero file
Do While Not rs.State = adStateClosed
    'vorrei usare il metodo GetRow per prendere la riga

    'trasformare la riga in stringa con GetString

    'aggiungere la riga ad un Array

    rs.MoveNext
Loop

'a questo punto ho un Array con il contenuto del rs e la prima riga è l'intestazione del CSV
'dovrei stamparlo con il FileScriptingObject riga per riga in c:/Programmi per esempio

Questo è tutto, credo che la logica sia corretta ma fatemi sapere se sbaglio.
Potrei direttamente stampare riga per riga anche dentro il ciclo con FileScriptingObject ora che ci penso, purtroppo non so COME farlo.
Help, anche un link ad una guida, qualcosa

Io cmq continuo a provare

[oregon]

Calma ... intanto cosi'

Do While Not rs.State = adStateClosed

non controlli affatto quando il recordset si conclude perche' non si chiude da solo.
Semmai ottieni una condizione di EOF che e' quella che devi testare

Do While Not rs.Eof

E poi, non devi usare alcun metodo di sorta ... dentro al ciclo hai a disposizione tutti i campi del record che ti servono, che so, ad esempio

rs.Fields("Nome").Value

e li scrivi semplicemente nel file. Per scrivere, puoi usare semplicemente la Open ... Print # ... senza il FileSystemObject ...

Piu' o meno cosi'

Open "File.csv" For Output As #1
Do While Not rs.State = adStateClosed
    Print #1, rs.Fields("Cognome").Value & "," & rs.Fields("Nome").Value
    rs.MoveNext
Loop
Close #1

[Sballerio]

Ti ringrazio per la risposta, lo provo e ti faccio sapere

Grazie

[kalosjo]

Con il metodo getstring però puoi mettere tutto in una stringa direttamente...

 
  strq = "select * from tabella"
  rs.Open strq, conn
  stringa = rs.GetString(adClipString, -1, ";", vbCrLf, "")

Ti restituisce una stringa con tutto quello che estrai da tabella con campi separati da ; senza bisogno di fare un ciclo.
Basta che la scrivi nel file e il gioco è fatto.

Prima devi verificare che il recordset non sia in EOF.