Как сделать архивирование таблицы в отдельный файл...

[Allegro]

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

 

[Barmutik]

Так а что кокнретно не получается? Не получается пробежаться по записям и экспортнуть их к примеру в XML или CSV файл?

 

[Allegro]

как пробежать по записям я знаю.
не в курсе как экспортировать собранные данные с разных таблиц в файл... на сколько я знаю XML самый удобный вариант... вот только как потом из этого одного файла импортировать обратно данные так же в разные таблицы...

 

[Barmutik]

Хммм.. ну так же как и экспортировали .. что команды SQL кто-то отметил? Вам следует экспортировать по зписаям из связных таблиц а не из единого зароса....

 

[Allegro]

А если я даже не экспортировал??? и не знаю как это делается??? у меня с SQL пока напряг.. мне проще на VBA написать модули... с SQL не так часто сталкивался.. я просто MS Access занимаюсь всего год...

 

[BOPOHA]

Я бы не советовал связывается с xml, если взаимодействие будет MS Access <-> MS Access.
Алгоритм очень простой:
1. Создаем новый файл БД.
2. Переписываем таблицы в новую БД.

Public Function MyFunc()
On Error GoTo Err_
Dim db As DAO.Database
Dim pathToDb As String
Dim imTbl As String

'-- создание БД
pathToDb = "D:\qwe.mdb"
Set db = Workspaces(0).CreateDatabase(pathToDb, dbLangCyrillic)
db.Close

'-- экспорт таблицы в БД
imTbl = "Таблица1"
CurrentDb.Execute "SELECT " & imTbl & ".* INTO " & imTbl & " IN '" & pathToDb & "' FROM " & imTbl & ";", dbFailOnError

Exit_:
Exit Function
Err_:
MsgBox Err.Description
Resume Exit_
End Function

ЗЫ: Запрос построен при помощи мастера ;-).

 

[Allegro]

Спасибо большое за помошь.. попробую все сделать