Ciao ho iniziato un nuovo progetto e stavo creando il modulo per la connessione al database che ho impostato cosi':
'dichiaro l' oggetto CN come pubblico
Public cn As ADODB.Connection
'costruisco una funzione per connetermi al database
Public Function Connetti() As Boolean
'richiamo in caso di errore una funzione di gestione errori
On Error GoTo MessaggioErrore
'setto CN
Dim Database
Set cn = New ADODB.Connection
'creo la variabile Database per il path
Database = App.Path & "\" & "Rubrica.mdb"
'qui dichiaro che cursore usare, quello client
cn.CursorLocation = adUseClient
'il provider ovvero Access 2000
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'apro la connessione chiamando la variabile database
cn.Open Database, Admin
Connetti = True
'data questa condizione posso uscire dalla funzione
Exit Function
'funzione di gestione errori
MessaggioErrore:
MsgBox "Errore di apertura " & Database & vbNewLine & Err.Description, vbCritical, "Errore nell' apertura del Database"
Connetti = False
End Function
a questo punto nell' evento Form_load chiamo la funzione:
Private Sub Form_Load()
'chiamo la funzione che mi connette al database
Connetti
End Sub
e mi esce questo errore:
'TIPO DEFINITO DALL' UTENTE NON DEFINITO e si blocca alla dichiarazione Public cn As ADODB.Connection
Mi sapete aiutare?
Rispondi quotando
