Originariamente inviato da michelepi
Ho un file di testo con nome e cognome di alcuni clienti.
Il nome inizia sulla colonna 1 e finisce a 15.
Il cognome inizia a 15 e finisce a 30.

Qualcuno mi sa dire come posso importarlo in un db tramite visual basic. Mi potete fare un'esempio, grazie.
:di56:
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
se hai bisogno del sorgente (progetto vb con db) te lo mando via mail cosi te lo provi di persona, ovvio ke il mio è solo un esempio.