Grazie LadyBlu!
Premetto che nel modulo, dal mnu Progetto>Riferimenti ho flaggato il 'Microsoft ActiveX Data Object 2.8 Library'
Ecco il 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 = C:\database\databaseOK.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
Mentre nel form:
codice:
Private Sub Form_Load()
Call connetti
Rs.Open "SELECT * FROM tblOspiti" ' apre il recordset leggendo tutti i campi dalla tabella
' tblOspiti
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
Devo forse inserire un Oggetto 'data' del form...? Al momento il form è completamente vuoto (a parte lo script che ho postato...)
Grazie in anticipo per il Vs aiuto... 
Rispondi quotando
