Как получить доступ к объекту набора записей ADO отключенного в одной книге Excel из другой книги Excel - PullRequest
Новая
       60

Как получить доступ к объекту набора записей ADO отключенного в одной книге Excel из другой книги Excel

0 голосов
/ 31 октября 2019

Можно ли создать и установить объект набора записей в одной книге, но получить доступ к этому объекту набора данных и данным из кода VBA другой книги? Я подумал, что, возможно, getobject может быть использован для захвата его из другой рабочей книги, но я не могу найти какие-либо ресурсы по этому вопросу.

* изменить здесь мой ado код для создания ado 

Public DatabaseMethods As New DatabaseTools
Public testRecordset As ADODB.Recordset

Public Sub LoadTables()

   Call DatabaseMethods.SQLCreateDatabaseConnection
   DatabaseMethods.SQLOpenDatabaseConnection ThisWorkbook.FullName

   Set testRecordset = DatabaseMethods.SQLQueryDatabaseRecordset("SELECT * FROM " & DatabaseMethods.TableAddress(ThisWorkbook.Worksheets("Sheet1")))

   DatabaseMethods.SQLCloseConnection
   DatabaseMethods.SQLDestroyDatabaseConnection

End Sub

Public Function SQLQueryDatabaseRecordset(SQLQuery As String) As ADODB.Recordset

   'Create RecordSet
   Set oRs = CreateObject("ADODB.Recordset")
   oRs.LockType = adLockReadOnly

   Sleep 100
   DoEvents

   'Open Record Set by executing SQL
   oRs.Open SQLQuery, oConn

   'Disconnect the recordset
   Set oRs.ActiveConnection = Nothing

   'Return recordset
   Set SQLQueryDatabaseRecordset = oRs

   Set oRs = Nothing

End Function
...