Проблема вот в чем:
1. Есть две таблицы Tab1 (находится в 1.mdb файле) и Tab2 (находится на удаленном SQLServer2000).
Суть вот в чем, мне надо считать данные с сервера из Tab2 и записать их в Tab1 файла 1.mdb
Есть следующий код, но он работает только для двух *.mdb файлов
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=С:\1.mdb"
cn.Execute " INSERT INTO Tab1 SELECT * FROM Tab2 IN 'c:\2.mdb' WHERE [ID] > '3' "
Вопрос, как сделать чтобы источником служил не файл 2.mdb, а БД на сервере, пробовал следующую строку, но пишет ошибку «ODBC – ошибка подключения»
cn.Execute "INSERT INTO Tab1 SELECT * FROM Tab2 IN '' [ODBC;DRIVER=SQL Server;SERVER=<имя сервера>;DATABASE=<имя БД>; Trusted_Connection=Yes] "
может кто сталкивался с данной проблемой…
2. а еще никто не подскажет
есть компонент Adodc2 подключенный к таблице Tab2, в нем содержатся отобранные записи, как можно выбранные записи сохранить в Tab1 подключенный к Adodc1??? (понимаю что можно прогнать цикл и используя AddNew добавить записи в Adodc1, но можно осуществить данное действие другим способом??? просто очень большой объем данных)
Среда разработки VB6.0
Ответить
|