Toki ha scritto:
Ciao Fausto,
'namespaces da importare
Imports System.Data;
Imports System.Data.OleDb;
'codice per interrogare MS Access
Dim connection as new OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=c:\DBpazienti\dibi.mdb")
Dim sql As String = "SELECT * FROM anagrafe ORDER BY cognome"
Dim dtAdapter as new OleDbDataAdapter(sql, connection)
Dim dtSet as DataSet = new DataSet()
dtAdapter.Fill(dtSet, "anagrafe")
Dim anagrafeDataTable as DataTable = dtSet.Tables("anagrafe")
Dentro anagrafeDataTable hai i records estratti.
Salve. Eccomi di nuovo ad approfittare......
Ho implementato il codice quà sopra modificandolo leggermente (vedi sotto)
Dim connection As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "DATA SOURCE=c:\DBpazienti\dibi.mdb")
Dim sql As String = "SELECT * FROM anagrafe ORDER BY cognome"
Dim dtAdapter As New OleDb.OleDbDataAdapter(sql, connection)
Dim dtSet As DataSet = New DataSet()
dtAdapter.Fill(dtSet, "anagrafe")
Dim anagrafeDataTable As DataTable = dtSet.Tables("anagrafe")
connection.Close()
Visto che la cosa non funziona ho qualche domanda.
1) Le istruzioni "imports" non funzionano. Le ho omesse ho aggiunto da "reference" sistem.data ma non ho trovato system.data.oledb, La domanda è: E' possibile che il tutto funzioni senza imports ?
2) Per quel poco che ho fatto in passato con access ricordo che,a alla fine, facevo, prima di .CLOSE qualcosa del tipo .UPDATE. Esiste istruzione corrispondente ? Perchè non mi trovo la tabella con i dati ordinati ? Dove sbaglio ?
Grazie