[VB.NET] attaccarsi ad un .mdb

[Pirelli72]

Certo ad esempio:

 Dim con As OleDb.OleDbConnection
 Dim da As OleDb.OleDbDataAdapter
 Dim ds As New DataSet
 Dim query As System.Data.OleDb.OleDbCommand


Public Sub estrai(ByVal id As Integer)
con = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Data\TuoDatabase.mdb")
           con.Open()

            query = New System.Data.OleDb.OleDbCommand
                        query.Connection = con
                        query.CommandType = CommandType.Text
                        query.Parameters.AddWithValue("@id", id)
                        query.CommandText = "SELECT * FROM TuaTabella WHERE id=@id"
                        da = New OleDb.OleDbDataAdapter(query)
                        da.Fill(ds, "Nome")

'Numero dei record trovati
Dim count as Integer = ds.Tables("Nome").Rows.Count
'Primo record
Dim valore as string = CType(ds.Tables("Nome").Rows(0).Item("NomeColonna"), String)

 
 End Sub