ciao , questo è un pikkolo esempio in DAO ke potrebbe essere riadattato anke a ADO, praticamente il codice importa da un file .txt il nome e cognome di ogni riga, i primi 15 caratteri sono x il nome dal 15 a 30 sono x il cognome.Originariamente inviato da katrina
Salve a tutti.
Devo analizzare dei file di testo, estrapolarne i dati, costruire delle tabelle di 4 colonne e visualizzare le tabelle in un form.
Un controllo Dataset potrebbe essere utile?
Se sì, come usarlo?
Grazie
per la visualizzazione/stampa potresti utilizzare un datagrid , meno bello sicuramente del listview ma + semplice da utilizzare.
codice:Dim nom As String Dim cog As String Private Sub Command1_Click() Open App.Path & "\dati.txt" For Input As #1 While Not EOF(1) Line Input #1, lineoftext$ With Data1.Recordset .MoveFirst .AddNew nom = Mid(lineoftext$, 1, 14) cog = Mid(lineoftext$, 15, 30) .Fields("nome") = nom .Fields("cognome") = cog .Update .MoveNext End With Wend Close #1 End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & ("\db.mdb") Data1.RecordSource = "Tabella1" End Sub![]()

Rispondi quotando