Экспорт таблицы DBF

[Nicky]

Здравствуйте все!
Подскажите правильный запрос вставки/создания таблицы из второй базы данных, что-то типа

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

Dim db As DAO.Database 'Microsoft DAO 3.6
Set db = OpenDatabase("C:\db1", 0, 0, "dBase IV")
db.Execute "Insert into [dBase IV;database=C:\db2].t2 select * from t1"
db.Execute "Select * into [dBase IV;database=C:\db2].t2 from t1"


С таблицами Access прекрасно работает запрос:

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

Set db = OpenDatabase("C:\db1")
db.Execute "Insert into t2 in 'c:\db2' select * from t1"
db.Execute "Select * into t2 in 'c:\db2' from t1"


Пр попытке проделать то же с dbf падает по ошибке

"Файл 'C:\db2' не может быть открыт ядром базы данных Microsoft Jet. Файл уже открыт другим пользователем для монопольного доступа или требуется разрешение на просмотр данных."

[RayShade]

Так елы палы, openDatabase открывает только Jet.



Для DBF надо делать так:

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

DoCmd.TransferDatabase acLink, "dBase IV", "c:\db2", acTable

[Nicky]

Возможно, неправильно выразился

...С таблицами Access прекрасно работает запрос...

Имелось в виду, с таблицами в разных mdb файлах
Программа на VB6

[RayShade]

Ну так тогда просто, корректно открывай базу в openDatabase. Посмотри в хелпе нужный коннекшен стринг.

[Nicky]

Ура! Сделал даже 2-мя вариантами:

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

Set db = OpenDatabase("C:\db1", 0, 0, "dBase IV")
'Вариант 1
db.Execute "select * into t2 in 'C:\db2' 'dBASE IV;' from t1"
db.Execute "insert into t2 in 'C:\db2' 'dBASE IV;' select * from t1"
 
'Вариант 2
db.Execute "select * into t3 in '' [dBASE IV; Database=C:\db2;] from t1"
db.Execute "insert into t3 in '' [dBASE IV; Database=C:\db2;] select * from t1"


Может, кому-то понадобится
Инфу нашел в DAOSDK.CHM

[blinow]

Тока у меня с DAO ужо ни одна dbfина не открывается, а сваливает приложение. А с ADO Foxpro OLE DB 9.0 вроде ниче работает.