How to bind events (AXEventSink?) to ADODB_Recordset, ADODB_Connection objects?

[ale...@mail.ru]

First thanks to Dolphin team who shipped Dolphin smalltalk with an ADO
package.

So the problem. AXEventSink was created to do subj. work as I know.
How to bind AXEventSink instance to ADODB_Recordset object?

Looks like this:
adoConn := ADODB_Connection new.
eventObj := AXEventSink target: adoConn sourceTypeInfo: <WHAT I NEED
TO CODE HERE???>

Thanks you all for answers.

[Udo Schneider]

Alex,

> So the problem. AXEventSink was created to do subj. work as I know.
> How to bind AXEventSink instance to ADODB_Recordset object?
>
> Looks like this:
> adoConn := ADODB_Connection new.
> eventObj := AXEventSink target: adoConn sourceTypeInfo: <WHAT I NEED
> TO CODE HERE???>

The following should work:

ADODBLib sourceInterfaces. "This gives you all the the source (event)
interfaces for this TypeLin. On my PC this gives
a Set(a TKindDispatchAnalyzer('ConnectionEvents') a
TKindDispatchAnalyzer('RecordsetEvents'))"

adoConn := ADODB_Connection new.
sink := AXEventSink target: adoConn sourceTypeInfo: (ADODBLib at:
'ConnectionEvents') .
sink connect: adoConn.

CU,

Udo

[ale...@mail.ru]

Thank you very much, Udo, it's works!