Ciao ragazzi
ho un problema che non riesco a capire assolutamente, anche perchè quello vi andro' a spiegare l'ho sempre fatto, ed è sempre andato bene.
Sto costruendo una rubrica molto semplice, con Cognome, Nome etc etc.
Utilizzo questi codici per inserire i record in DB Access:
Private Sub Aggiungi()
Dim DB As ADODB.Connection
Dim T As ADODB.Recordset
Dim strCnn As String
Set DB = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Rubrica\Prova2(B).mdb"
DB.Open strCnn
Set T = New ADODB.Recordset
T.LockType = adLockOptimistic
T.Open "Prescriz", DB, , , adCmdTable
T.AddNew
T("Nome") = txt(0).Text
T("Cognome") = txt(1).Text
T("Indirizzo") = txt(2).Text
T.Update
T.Close
DB.Close
Come potete bene vedere è un codice semplice ma molto utile, che serve essenzialmente quando si hanno DB Access
Il problema sorge quando io clicco il pulsante che comanda il codice vi ho appena indicato, e l'errore è:
"Errore di run-time '-2147024770 (8007007e)'"
"Impossibile trovare il modulo specificato"
L'eerore viene evidenziato in questa riga:
DB.Open strCnn
La cosa strana che questo tipo di codice mi è sempre servito in qualsiasi sistema operativo, ma do oggi "Mistero della Vita" non funziona piu'
Nei riferimenti del Progetto ho inserito
-) Microsoft DAO 3.6 Object Library
-) Microsoft ADO Data Control 6.0 (SP4) (OLEDB)
-) Microsoft Activex Data Object 2.0 Library
Il sistema operativo è XP
AIUTATEMI VI PREGO, GARZIE A TUTTI VR-CLAUDIO
Rispondi quotando
