импорт базы DBASE в формат

[ShcVl]

подскажите как программно импортировать базу DBASE в формат mdb

Заранее благодарен

[RayShade]

Открыть в Аксессе с помощью команды меню Импорт

[ASD]

Создаешь подключение к базе DBF и делаешь второе подключение к базе MDB, делаешь запрос к DBF на выборку всех записей
И в цикле переносишь их в MDB.

Перед этим правда надо сделать MDB с темеже полями и таблицами.

[RayShade]

Хм... Есть вообще то просто DoCmd.TransferDatabase вызывается с параметром acImport Делает все в точности что ты сказал, только одной строчкой.

[ShcVl]

Создаешь подключение к базе DBF и делаешь второе подключение к базе MDB, делаешь ,запрос к DBF на выборку всех записей
И в цикле переносишь их в MDB.

Перед этим правда надо сделать MDB с темеже полями и таблицами.

Вот у меня с этими подключениями и несложилось ,
как тут быть может DAO? или не покатит?запрос к дбф sql?(если можно то поподробнее)(хоть маленкий примерчик)
насколько помню программно когда делал выдает какюто ошибку(c DBF) , с аксесом без проблем, дбф проблемы хоть бы тутор какой найти про подключение и работу с дбф, а то все с аксесом одни примеры

помогите плиз сроки поджимают

[ASD]

С DAO Я давно не работал а с ADO можно.

Dim db1 as ADODB.Connection ' Это будет DBF
Dim db2 as ADODB.Connection ' Это Будет MDB
Dim rs1 as ADODB.Recordset 'Это набор записей из DBF

db1.open "тут тебе надо написать строку подключения к DBF"
'А это подключение к MDB
db2.open "Driver=Microsoft Access Driver (*.mdb);DBQ=C:\baza.mdb"

Set rs=db1.execute("Select * from имя_таблицы") 'Из DBF запрашиваем
записи.
'Далее идет перенос в MDB
while not rs.eof
db2.execute"Insert into имя_таблицы (колонка_в_MDB, колонка ....) VALUES ('" & rs("колонка_в_DBF") & ','" & rs("колонка_в_DBF") & '"
rs.movenext
wend



Вот и все

[ShcVl]

[quote="ASD"]С DAO Я давно не работал а с ADO можно.

Спасибо большое