Errore con oggetto dichiarato WithEvents (era: errore)

[Manuweb]

Salve ragazzi.Devo fare alcune modifiche ad un programma(nn l'ho fatto io) ma quando lo lancio(da vb) mi da il seguente errore

object does not source automation events

su questa riga

Public WithEvents rdsDatiVecchi As Recordset

che devo fare?

[sebamix]

il titolo

[sebamix]

Che librerie hai incluso nel progetto? ADO o DAO?

[Manuweb]

Scusami ma cosa intendi di preciso?
lo so ke sono un po quindi potresti spiegarti meglio perfavore?
grazie

[sebamix]

Sembra che l'oggetto che vuoi utilizzare withevents non supporti gli eventi.
Vai nel menu progetto->riferimenti e vedi se è incluso ADO o DAO.

[Manuweb]

era inclusa DAO 3.6 object library e ActiveX data object 2.6

[sebamix]

Proverei a togliere semplicemente il withevents, ma non vorrei che sia stato incluso erroneamente DAO invece di ADO.
Che codice usi per connetterti al database?

[Manuweb]

Public Sub ApriDataBase()

Set GlobalDB = New Connection
GlobalDB.CursorLocation = adUseClient
GlobalDB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & PercorsoGlobale & "\DataBase\Macellazioni.mdb;"

End Sub

L'unica modifica ke devo a fare a questo prog. è il percorso del db,ma non riesco a provarlo e a creare l'eseguibile.

[Manuweb]

ho tolto la libreria DAO ora va.Sapresti dirmi come inserire il percorso \\snap\share1\database\file.mdb in quella funzione?

[sebamix]

Erroneamente è stato incluso anche DAO. Siccome sia DAO che ADO un oggetto Recordset ma solo ADO supporta gli eventi si faceva un po' di confusione.

PercorsoGlobale="\\snap\share1\database\file.mdb"

GlobalDB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & PercorsoGlobale & ";"