Visual Basic 6 - Inserire Dati di File TXT in MDB

Per quanto ne so su DAO (poco o niente) non mi risulta che possa leggere un database Access formato 2002/2003.
Al massimo, con il driver 3.60 di DAO puoi leggere il formato 2000.

Con ADO ed il Jet 4.0, invece, puoi leggere qualsiasi versione dalla '97 fino alla 2007/2010.

Vedi tu cosa ti conviene fare.

Fare un calderone con ADO + DAO presto o tardi la paghi (più presto che tardi), te ne accorgerai.
Tra l'altro che senso ha imparare entrambe le sintassi?
Per me nessuno.

Ok.recepito.
Quindi torno al Thread "Creare MDB con commandbutton" e riprovo.

Ciao

Creato il Database.MDB ora punto a caricare i dati del file.TXT

Private Sub cmdInsertMDB_Click()
Dim dbase As String, nFileNum As Integer
Dim nFileName As String, sText As String, sNextLine As String, lLineCount As Long
Dim Riga As String, Dati As String, Stringa As String,Filtro as String
With CommonDialog1
  .DialogTitle = "Seleziona il file da caricare"
  .Filter = "File di testo (*.txt) |*.txt| File Documento (*.doc) |*.doc|"
  .FilterIndex = 1 'scelta posizionata su doc
  .ShowOpen
End With

nFileName = CommonDialog1.FileName

With CommonDialog2
  .DialogTitle = "Seleziona il database"
  .Filter = "Database (*.mdb) |*.mdb| File DBF (*.dbf) |*.dbf|"
  .FilterIndex = 1 'scelta posizionata su mdb
  .ShowOpen
End With

dbase = CommonDialog2.FileName

nFileNum = FreeFile
Open nFileName For Input As nFileNum

Do While Not EOF(nFileNum)
  Line Input #nFileNum, Riga
  Dati = Trim(left(Riga, 8))
  Stringa = Trim(Mid(Riga, 12, Len(Riga) - 11))
  Filtro = Trim(Mid(Riga, 155, Len(Riga) - 154))
  AddRecordSql dbase, Dati, Stringa, Filtro
Loop

Close nFileNum

End Sub

Finito di caricare i dati ora devo inserirli nell' MDB..usando ADOX.

Sub AddRecordSql(dDataBase As String, Dati As String, Stringa As String,Filtro ad String)
  'routine sql che punta dDataBase, aggiunge la Dati,Stringa e Filtro
 

'  routine da finire

End Sub

Fatto questo passo alla Ricerca_Dati_in_MDB.