Обновление таблицы Access путем импорта данных из DBF

[TranzitZP]

Здравствуйте. Нужна Ваша помощь, так как поиски информации по сети интернет положительного результата не дали.

Есть у меня файл Access, в котором я периодически обновляю существующие в ней таблицы с данными.
Источники этих данных для обновления я получаю в файлах DBF:
- на каждую имеющуюся таблицу отдельный файл dbf;
- имена полей каждой базы DBF и соответствующей ей таблицы идентичны и неизменны.

Обычный импорт через меню или командой:

DoCmd.TransferDatabase acImport, "dBase IV", "c:\", acTable, "BAZ.dbf", "BAZ"

приводят к одному результату: имеющаяся таблица BAZ не обновляется, а создается новая таблица BAZ1. В итоге нужно удалять вначале BAZ, а потом после импорта вместо неё будет создана более свежая таблица.
Такой результат не устраивает, так как все таблицы имеют много связей и полное удаление существующей таблицы и замена её новой приведет к потере связей.

Таким образом, ищу помощи в написании в VB команд, при которых при нажатии кнопки на форме производилось удаление данных (строк) в существующей таблице и внесение новых строк с файла BDF.

Для примера вылаживаю часть своей базы и файл DBF, который нужно импортировать.
Заранее спасибо...

[R Dmitry]

Сообщение от TranzitZP

Здравствуйте. Нужна Ваша помощь, так как поиски информации по сети интернет положительного результата не дали.

Есть у меня файл Access, в котором я периодически обновляю существующие в ней таблицы с данными.
Источники этих данных для обновления я получаю в файлах DBF:
- на каждую имеющуюся таблицу отдельный файл dbf;
- имена полей каждой базы DBF и соответствующей ей таблицы идентичны и неизменны.

Обычный импорт через меню или командой:

DoCmd.TransferDatabase acImport, "dBase IV", "c:\", acTable, "BAZ.dbf", "BAZ"

приводят к одному результату: имеющаяся таблица BAZ не обновляется, а создается новая таблица BAZ1. В итоге нужно удалять вначале BAZ, а потом после импорта вместо неё будет создана более свежая таблица.
Такой результат не устраивает, так как все таблицы имеют много связей и полное удаление существующей таблицы и замена её новой приведет к потере связей.

Таким образом, ищу помощи в написании в VB команд, при которых при нажатии кнопки на форме производилось удаление данных (строк) в существующей таблице и внесение новых строк с файла BDF.

Для примера вылаживаю часть своей базы и файл DBF, который нужно импортировать.
Заранее спасибо...

Я предлагаю сделать связанную таблицу, и тогда будет достаточно просто заменить файл и создавать ничего не придется, ну в крайнем случае обновить данные.

[R Dmitry]

прилинковать можно так

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

но один раз

при замене DBF таблица BAZ должна быть закрыта

[TranzitZP]

В этом то и проблема, что данные вех файлов BDF должны быть импортированы в файл Access, так как в дальнейшем этот файл мною распространяется другим пользователям на десятки разных компов.

Передавать файл Access с DBF не практично. Причем нужно, чтоб пользователи размещали DBF в прописанное место на диске.
Кроме того, базы имеют сотни тысяч строк и обработка внешних DBF происходит намного медленее, чем эти записи находятся в самом Access.

Пока что, я долгое время выходил их ситуации таким образом:
- импортровал базы в Access в таблицы с новыми именами;
- копировал все строки с новых таблиц в старые (большой недостаток, что буфер обмена ограничивается 65000 строками, из-за чего одну таблицу нужно копировать кусками).
*********************************** ***************
Если нельзя импортировать DBF в существующую таблицу, то можно ли какой-то командой скопировать строки одной таблицы (к примеру из новой BAZ1) в страрую - BAZ (имена колонок всех идентичны)?

[R Dmitry]

Сообщение от TranzitZP

В этом то и проблема, что данные вех файлов BDF должны быть импортированы в файл Access, так как в дальнейшем этот файл мною распространяется другим пользователям на десятки разных компов.

Передавать файл Access с DBF не практично. Причем нужно, чтоб пользователи размещали DBF в прописанное место на диске.
Кроме того, базы имеют сотни тысяч строк и обработка внешних DBF происходит намного медленее, чем эти записи находятся в самом Access.

Пока что, я долгое время выходил их ситуации таким образом:
- импортровал базы в Access в таблицы с новыми именами;
- копировал все строки с новых таблиц в старые (большой недостаток, что буфер обмена ограничивается 65000 строками, из-за чего одну таблицу нужно копировать кусками).
*********************************** ***************
Если нельзя импортировать DBF в существующую таблицу, то можно ли какой-то командой скопировать строки одной таблицы (к примеру из новой BAZ1) в страрую - BAZ (имена колонок всех идентичны)?

тогда линкуйте DBF BAZ1, и делайте запрос на создание BAZ

SELECT BAZ1.* INTO BAZ
FROM BAZ1;

будут и овцы целы и волки сыты

[TranzitZP]

Не фартит мне. Также думал, что этим запросом можно решить проблему, однако не тут та было
В ходе выполнения запроса автоматически должна удалиться BAZ и вместо неё создастся новая BAZ с данными BAZ1, но связи BAZ с другими таблицами мешают.

[R Dmitry]

правильнее так когда таблица прилинкована

Private Sub Кнопка_Click()
CurrentDb.Execute ("DELETE BAZ.*FROM BAZ;")
CurrentDb.Execute ("INSERT INTO BAZ SELECT BAZ1.* FROM BAZ1;")
End Sub

[R Dmitry]

ИТОГОВЫЙ

Private Sub Кнопка_Click()
DoCmd.TransferDatabase acLink, "dBase IV", "c:\", acTable, "BAZ.dbf", "BAZ1"  
CurrentDb.Execute ("DELETE BAZ.*FROM BAZ;")
CurrentDb.Execute ("INSERT INTO BAZ SELECT BAZ1.* FROM BAZ1;")
DoCmd.DeleteObject acTable, "BAZ1"
End Sub

точно работает

[TranzitZP]

Вы -Шаман. Приклоняюсь. Работает четко и красиво.
Не ожидал . Огромнейшее спасибо.
А то я уже начал экспериментировать с конвертацией DBF в TXT и дальнейшим импортом в существующую таблицу (грубо, но практично).

Личного кошелька нет, попытаюсь через уличный терминал закинуть тебе на счет деньжат - поэкспериментирую наши украинские гривны конвертануть на рублики.

Еще раз спасибо.

[R Dmitry]

Сообщение от TranzitZP

Вы -Шаман. Приклоняюсь. Работает четко и красиво.
Не ожидал . Огромнейшее спасибо.
А то я уже начал экспериментировать с конвертацией DBF в TXT и дальнейшим импортом в существующую таблицу (грубо, но практично).

Личного кошелька нет, попытаюсь через уличный терминал закинуть тебе на счет деньжат - поэкспериментирую наши украинские гривны конвертануть на рублики.

Еще раз спасибо.

обращайтесь если что skype в подписи, рад был помочь