Ho scritto due righe di codice per fare una connessiona ad un db Access ma all'evento command1_click() mi da questo errore:
Errore di run-time
'-2147024769(8007007f)':
Errore di automazione
Impossibile trovare la procedura specificata
Premetto che nell'IDE va tutto bene e riesco a leggere i dati del db, appena faccio il pacchetto, installo e eseguo la mini applicazione spunta l'errore!
Ho usato la creazione guidata dei pacchetti di installazione di VB6.
Questo è il codice (nei riferimenti del progetto ho messo MS ActiveX Data Objects Recordset Library 2.8 e MS ActiveX Data Objects Library 2.7):
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim s() As String
Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Rubrica.mdb"
rs.Open "SELECT id, nome , cognome FROM Rubrica ORDER BY cognome ASC", cn, 1
cmbSeleziona.AddItem ""
While rs.EOF = False
cmbSeleziona.AddItem (rs("id").Value & " - " & rs("nome").Value)
rs.MoveNext
Wend
rs.Close
cn.Close
End Sub
Grazie per l'aiuto