Grazie LadyBlu!
Premetto che nel modulo, dal mnu Progetto>Riferimenti ho flaggato il 'Microsoft ActiveX Data Object 2.8 Library'
Ecco il codice:
Mentre nel form: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
Devo forse inserire un Oggetto 'data' del form...? Al momento il form è completamente vuoto (a parte lo script che ho postato...)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
Grazie in anticipo per il Vs aiuto...![]()

Rispondi quotando