Imports System.Data Module Module1 Public Dbazienda As New OleDb.OleDbConnection 'Crea una connessione, come in VB6 Public Sql As String 'La variabile che contiene la Query di selezione Public Stringa As String 'La variabile che contiene la Query di selezione Public DatSet As New DataSet 'Il DataSet, un oggetto che non esiste in VB6, che contiene la copia della tabella nel database Public DatAdpter As OleDb.OleDbDataAdapter 'Il DataAdapter e' il vettore che contiene le modifiche effettuate al record nel dataset e le sposta nel record del database, e viceversa. Public BindSrc As New BindingSource 'Questo e' l'oggetto magico che rende tutto cosi' semplice. La, o il? boh... BindingSource Public Function ApriDatabase() As Boolean Dbazienda.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = Archivio.mdb" Try Dbazienda.Open() ApriDatabase = True Catch MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, _ MsgBoxStyle.Critical, "Connessione Fallita") ApriDatabase = False End Try End Function |