Передача открытого ADODB.Connection

[Antonariy]

Откываю соединение в одной дллке, передаю в другую через публичное свойство, но при открытии в ней рекордсета с этим соединением, вылетает ошибка "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона " и т.д. Версии ADO в обоих библах одинаковые.

Открытое соединение не передается в принцыпе чтоли?

[Andrey Fedorov]

Открытое соединение не передается в принцыпе чтоли?

Ну из DLL-ки в Exe-шник передается без проблем. Значит и между DLL-ками должно. Смотри что у тебя там накрученно...

[Antonariy]

Да ничего!

Код: Выделить всё

Dim lConnection As ADODB.Connection

Private Property Set IPlugin_Connection(RHS As Object) 'публичное write only св-во интерфейса
    Set lConnection = RHS
End Property

Private Function GetRecordset(scmd As String, rs As ADODB.Recordset) As String 'ф-я окрытия рекордсета
    On Error GoTo ErrorHandler
    Set rs = New ADODB.Recordset
    rs.CursorLocation=adUseClient
    rs.Open scmd, lConnection, adOpenStatic, adLockBatchOptimistic 'тут-то и вылазит
    Set rs.ActiveConnection = Nothing
    Exit Function
ErrorHandler:
    GetRecordset = "Error: GetRecordset - " & Err.Description
End Function

И вся любовь касаемо ADO...

[Andrey Fedorov]

И вся любовь касаемо ADO...

Ну не знаю - дай более полный примерчик, например как в том что я приложил - там все работает...

[Antonariy]

Посмотрел. Совсем не то.
Могу выслать свой велосипед из http://bbs.vbstreets.ru/viewtopic.php?t=20121
Глюк как раз оттуда.

[Andrey Fedorov]

Посмотрел. Совсем не то.
Могу выслать свой велосипед из http://bbs.vbstreets.ru/viewtopic.php?t=20121
Глюк как раз оттуда.

Может не весь лисапед, а только подправишь тот проект что я тебе выслал под то как у тебя. То есть чтобы было проще здесь разобраться, безо всяких лишностей...