Можно ли сохранить рекордсет в виде аксессовской таблицы?

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Костя
Обычный пользователь
Обычный пользователь
 
Сообщения: 93
Зарегистрирован: 14.02.2005 (Пн) 6:45
Откуда: Новосибирск

Можно ли сохранить рекордсет в виде аксессовской таблицы?

Сообщение Костя » 12.03.2009 (Чт) 14:32

Есть две аксессовых БД на разных серверах. Одна из них используется для инициализации рекордсета. При потере соединения с той БД, которая использовалась для инициализации, рекордсет необходимо сохранить в виде таблицы в другой БД. Записывать всё методом перебора через цикл слишком долго: рекордсет весьма объёмный. Пытался изменить ActiveConnection рекордсета - не помогает, данные не сохраняются. Существуют ли какие-то другие способы?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Можно ли сохранить рекордсет в виде аксессовской таблицы?

Сообщение alibek » 12.03.2009 (Чт) 19:24

Костя писал(а):Пытался изменить ActiveConnection рекордсета...

Примерно так и надо.
Покажи код, как ты это делал.
Lasciate ogni speranza, voi ch'entrate.

Костя
Обычный пользователь
Обычный пользователь
 
Сообщения: 93
Зарегистрирован: 14.02.2005 (Пн) 6:45
Откуда: Новосибирск

Re: Можно ли сохранить рекордсет в виде аксессовской таблицы?

Сообщение Костя » 13.03.2009 (Пт) 11:33

Инициализация:
rs.CursorLocation = adUseClient
rs.Open "Report", "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Path1, adOpenDynamic, adLockBatchOptimistic

***

Сохранение:

If Dir(Path1) = "" or Err.Number <> 0 Then
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Path2
rs.UpdateBatch
End If
Всё бывает!


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 108

    TopList