Access 2007, Late Binding

[Christoph Jüngling]

Nachdem ein bekannter Redner vor einiger Zeit mal ein Konzept vorgeschlagen hatte, mittels "late binding" einige Fallstricke der Verweise zu umgehen, habe ich das auch mal probiert, z.B. so:

Code: Alles auswählen

#If EARLY_BINDING Then
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
#Else
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")
#End If

Das funktioniert auch wunderbar, bis ich auf die Idee kam, dass Objekte ja auch Events werfen können. Also habe ich deklariert - bzw. wollte deklarieren:

Code: Alles auswählen

#If EARLY_BINDING Then
    Private WithEvents rsData As ADODB.Recordset
#Else
    Private WithEvents rsData As Object
#End If

Und saudummerweise mag VBA bei dem Typ "Object" offenbar keine Events fangen, was natürlich das ganze schöne Konzept wieder in Frage stellt.

Hat jemand eine Idee, wie man das lösen kann?

Thx,

Chris

[Josef Pötzl]

Hallo!

WithEvents kann man nicht für Late-Binding-Variablen verwenden. Du könntest zur Not eine eigene Klasse zu Kapselung erstellen und darin über COM-Methoden auf die Ereignisse reagieren. ich bezweifle aber, dass sich dieser Aufwand lohnt.

Als Prinzip-Beispiel:

LateBindingEventBridge.zip

(89.71 KiB) 3977-mal heruntergeladen

.. LateBindingEventBridge.dll ist eine VB6-COM-dll, für die Kapselung der COM-Methoden.

mfg
Josef

[Christoph Jüngling]

Danke für den Tipp. Ich fürchte aber, um die Verweise wird man doch nicht herum kommen.

[Josef Pötzl]

Es geht theoretisch schon ohne ADODB-Verweise, ist aber um einiges aufwendiger.