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

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

Barmutik

#2
Так а что кокнретно не получается? Не получается пробежаться по записям и экспортнуть их к примеру в XML или CSV файл?
 
29.08.2007
17
1
#3
как пробежать по записям я знаю.
не в курсе как экспортировать собранные данные с разных таблиц в файл... на сколько я знаю XML самый удобный вариант... вот только как потом из этого одного файла импортировать обратно данные так же в разные таблицы...
 
B

Barmutik

#4
Хммм.. ну так же как и экспортировали .. что команды SQL кто-то отметил? Вам следует экспортировать по зписаям из связных таблиц а не из единого зароса....
 
29.08.2007
17
1
#5
А если я даже не экспортировал??? и не знаю как это делается??? у меня с SQL пока напряг.. мне проще на VBA написать модули... с SQL не так часто сталкивался.. я просто MS Access занимаюсь всего год...
 

BOPOHA

Well-known member
26.04.2006
118
0
#6
Я бы не советовал связывается с 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
ЗЫ: Запрос построен при помощи мастера ;-).