ник: kot_k_k
про повтор цитаты понял-
вот так я получил доступ из своегей клинсткой части, которая соединена с другой базой, доступ к другой базе и ее таблам.
Dim con As New ADODB.Connection
Dim rsOrd As ADODB.Recordset
Dim rsOrdDet As ADODB.Recordset
Set rsOrd = New ADODB.Recordset
Set rst_G = New ADODB.Recordset
con.Provider = "MSDataShape"
con.ConnectionString = "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\baza_client.mdb;User Id=admin;Password=;"
con.Open
rsOrd.StayInSync = False
rsOrd.Open "SHAPE {select * from naimen} as Nam " & _
"APPEND ({select * from sklad} as Skla " & "RELATE kod_n TO naimen)", con
|
последняя строка это метод открытия 2-х связанных таблиц, т.е. может быть просто
rsOrd.Open "select * from naimen", con
|
открываем - декодируем/кодируем/вносим изменения и закрываем.
п.с. можно повесить глобальной переменной - открыли и висит в памяти, хотя кажется черевато.