Заполнить таблицу на сервере данными из таблицы БД Access на текущем компьютере vb6.0
Формулировка задачи:
Собственно как?
Подключаюсь к текущей таблице на ПК, пытаюсь сделать тест, что б сервер не обижать, из копии БД закинуть в текущую. Не выходит. Не хочет подключаться ко второму файлу.
Подключаюсь к текущей таблице на ПК, пытаюсь сделать тест, что б сервер не обижать, из копии БД закинуть в текущую. Не выходит. Не хочет подключаться ко второму файлу.
Решение задачи: «Заполнить таблицу на сервере данными из таблицы БД Access на текущем компьютере vb6.0»
textual
Листинг программы
Sub test_etp()
Set cnt = New ADODB.Connection
cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp2.accdb;"
Ask = "insert into [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[123] Select * from [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[567];"
Set rs = cnt.Execute(Ask)
End Sub