[VB6] esportare da db a txt

[michelepi]

Salve,

Public Function esporta()

Dim rs As New ADODB.Recordset 'Recordset
Dim conn As New ADODB.Connection 'Connessione
Dim stringaconn As String 'Stringa Connessione
Dim strsqls As String


'Seleziono il db
Set conn = New ADODB.Connection
stringaconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\ProgettiVB\ProvaTesto\Provatesto.mdb"
conn.Open stringaconn

strsqls = "select * from prova" 'Seleziono tabella

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsqls, conn, adOpenStatic, adLockReadOnly 'Eseguo strsqls

End Function

Con questo codice seleziono i records di una tabella, e fin qui ok. Ora non riesco a capire come posso inserire i records in un file di testo, inserendo tra un campo e l'altro un tot di spazi.
Grazie

[xegallo]

linguaggio e versione i titoli

[michelepi]

Scusamiiiiiiiiiiiiiiiiiii, ma la testa che stai sbattendo è la mia? Scherzo.

Allora sono riuscito ad aggiungere la scrittura sul file di testo

Public Function esporta()

Dim rs As New ADODB.Recordset 'Recordset
Dim conn As New ADODB.Connection 'Connessione
Dim stringaconn As String 'Stringa Connessione
Dim strsqls As String


'Seleziono il db
Set conn = New ADODB.Connection
stringaconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\ProgettiVB\ProvaTesto\Provatesto.mdb"
conn.Open stringaconn

strsqls = "select * from prova" 'Seleziono tabella

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsqls, conn, adOpenStatic, adLockReadOnly 'Eseguo strsqls


Dim s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\ProgettiVB\ProvaTesto\testo.tx t", ForWriting, True)

rs.MoveFirst
Do While Not rs.EOF
s = f.WriteLine(rs!Nome)
s = s & f.WriteLine(rs!Cognome)

rs.MoveNext
Loop

f.Close
Set f = Nothing
Set fs = Nothing

End Function

Il problema è che io vorrei far scrivere nome poi spazi fino ad arrivare alla posizione 15 e poi cognome e andare a capo.

Invece nel file di testo lui mi scrive
Antonio
Rossi
Angelo
Bianchi

Io invece vorrei Antonio spazi fino a posizione 15 Rossi poi a capo
Angelo spazi Bianchi

Ti ringrazio

Ops, visual basic 6. Ciao

[Sypher]

Originariamente inviato da michelepi
Scusamiiiiiiiiiiiiiiiiiii, ma la testa che stai sbattendo è la mia? Scherzo.

Allora sono riuscito ad aggiungere la scrittura sul file di testo

Public Function esporta()

Dim rs As New ADODB.Recordset 'Recordset
Dim conn As New ADODB.Connection 'Connessione
Dim stringaconn As String 'Stringa Connessione
Dim strsqls As String


'Seleziono il db
Set conn = New ADODB.Connection
stringaconn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\ProgettiVB\ProvaTesto\Provatesto.mdb"
conn.Open stringaconn

strsqls = "select * from prova" 'Seleziono tabella

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsqls, conn, adOpenStatic, adLockReadOnly 'Eseguo strsqls


Dim s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\ProgettiVB\ProvaTesto\testo.tx t", ForWriting, True)

rs.MoveFirst
Do While Not rs.EOF
s = f.WriteLine(rs!Nome & Space(15 - Len(rs!Nome)) & rs!Cognome)

rs.MoveNext
Loop

f.Close
Set f = Nothing
Set fs = Nothing

End Function

Il problema è che io vorrei far scrivere nome poi spazi fino ad arrivare alla posizione 15 e poi cognome e andare a capo.

Invece nel file di testo lui mi scrive
Antonio
Rossi
Angelo
Bianchi

Io invece vorrei Antonio spazi fino a posizione 15 Rossi poi a capo
Angelo spazi Bianchi

Ti ringrazio

Ops, visual basic 6. Ciao

[michelepi]

s = f.WriteLine(rs!Nome & Space(15 - Len(rs!Nome)) & rs!Cognome)
Spazio 15 - lunghezza di rs!Nome?

Grazie, perfetto