Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Вопрос к профи.( задача - обновлению таблиц)  [new]
mixser
Member

Откуда:
Сообщений: 6
Вопрос к профи.( задача - обновлению таблиц)

имеем:
1. базу с таблицами на MSSQL сервере,
2 клиенты на access`е - все таблицы подключены через ODBC,
3. локальная база – копия MSSQL Таблиц в mdb файле и
4 копия того же клиента только таблицы связаны с mdb файлом.
Задача :
Как можно одной(двумя) процедурой(ами) обновить (скопировать все данные с MSSQL в файл mdb)?
Способ запрос на удаление + запрос на обновление одной таблицы и так со следующими не предлагать, т.к. таблиц очень (ну очень) много и делать такое кол-во запросов, как-то не хотелось бы ;)

Заранее спасибо за совет =))
11 окт 05, 02:39    [1956029]     Ответить | Цитировать Сообщить модератору
 Re: Вопрос к профи.( задача - обновлению таблиц)  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
К примеру, вот такой код из клиента c ODBC сбрасывает данные в аналогичные таблицы локального клиента (b.mdb в той же папке), предварительно их очищая

Dim rst As New ADODB.Recordset
With rst
.Open "SELECT MSysObjects.Name FROM MSysObjects WHERE MSysObjects.Type=4;", CurrentProject.Connection 
.MoveFirst

Do While Not .EOF
CurrentProject.Connection.Execute "delete * from " & rst!Name & " in '" & CurrentProject.Path & "\" & "b.mdb'"
CurrentProject.Connection.Execute "insert into " & rst!Name & " in '" & CurrentProject.Path & "\" & "b.mdb' SELECT * FROM " & rst!Name
.MoveNext
Loop

End With
rst.Close
Set rst = Nothing
11 окт 05, 07:56    [1956220]     Ответить | Цитировать Сообщить модератору
 Re: Вопрос к профи.( задача - обновлению таблиц)  [new]
mixser
Member

Откуда:
Сообщений: 6
все класно, но нельзя ли это "заточить" под 97 Access
12 окт 05, 02:29    [1959868]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить