:: FILOWEB.it: Connettersi a Access

 
		dal menù Progetto > Riferimenti



scegliere Microsoft ActiveX Data Object 2.X library



ora inserite un modulo nel vostro progetto

e copiateci dento questo codice



codice:

Option Explicit



public Cn As new ADODB.Connection

public Rs As new ADODB.Recordset



Sub connetti()

   With Cn

      .ConnectionString = " Provider = Microsoft.Jet.OleDB.4.0;"  & _

                          " Data source = F:\Documents and Settings\PereGallo\Documenti\merceologia.mdb" 

                          ' nella prima riga si specifica il provider

                          ' nella seconda il percorso al db

      .ConnectionTimeout = 5 ' numero dei secondi di timeout

      .CursorLocation = adUseClient ' tipo di cursore

      .Mode = adModeShareDenyNone ' nessuna limitazione

      .Open ' apertura ricordarsi di chiuderla

   End With

   With Rs

      .ActiveConnection = Cn '  imposta a che connessione si riferisce

      .LockType = adLockOptimistic '  imposta il tipo di lock

   End With

End Sub







ora la connessione è avvenuta e avete libero accesso al database

per accedere ai dati dovete usare l' oggetto RS

per visualizzarli ho usato un datagrid



codice:

Private Sub Form_Load()

   Call Connetti

   Rs.Open " SELECT * FROM TBTessuti"  '  apre il recordset leggendo tutti i campi dalla tabella

                                     '  TBTessuti

   Set DataGrid1.DataSource = Rs     ' riempie la vostra griglia coi dati del recorset

End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

   Rs.Close

   Cn.Close

End Sub