Восстановление соединения с БД в DataEnvironment

[$Yastrebov$]

Кратко: Делаю BackUp для БД посредством копирования исходной БД, в другое место. При активном соединении с БД, функция FileCopy(Source,Dest) - выдает ошибку 70 (доступ закрыт).
В случае DataEnvironment1.Connection1.Close, БД копируется, но восстановить соединение не получается. Начальное соединение устанавливается в Private Sub DataEnvironment_Initialize путем указания DataEnvironment1.Connection1.ConnectionString, но повторное соединение ни через DataEnvironment1.Connection1.Open, ни через DataEnvironment1.Connection1.ConnectionString не получается.

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

Как правильно восстановить соединение как при DataEnvironment_Initialize? Спасибо.

[$Yastrebov$]

Специалисты и гуру VB. Я взываю к Вам. Проявите инициативу. Одна надежда на Вашу помощь!

[EUGY]

Я может что-то не понял в вопросе, но проблемы вроде нет.

Код: Выделить всё


Dim JE As New JetEngine

Private Sub Command1_Click()
Dim scnstr1 As String
Dim scnstr2 As String

    scnstr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;"
    scnstr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BIBLIO.MDB;"
   
    If DataEnvironment1.Connection1.State = 1 Then DataEnvironment1.Connection1.Close
    If Dir("C:\BIBLIO.MDB") <> "" Then Kill "C:\BIBLIO.MDB"
   
    DataEnvironment1.Connection1.ConnectionString = scnstr1
    DataEnvironment1.Connection1.Open

    DataEnvironment1.Connection1.Close

    JE.CompactDatabase scnstr1, scnstr2

    DataEnvironment1.Connection1.ConnectionString = scnstr2
    DataEnvironment1.Connection1.Open

    Debug.Print DataEnvironment1.Connection1.Properties("DATA SOURCE NAME") '"C:\BIBLIO.MDB"

End Sub


[$Yastrebov$]

Спасибо за код.
Сейчас подробнее попробую объяснить проблему.

После DataEnvironment1.Connection1.Open - соединение вроде как устанавливается, но при обращении к таблице(rcCommandX) выдается ошибка. Как указать DataEnvironment1, что rsCommandX - эта та таблица, которая была объявлена в режиме дизайна. Как свзать это из кода?

[EUGY]

но при обращении к таблице(rcCommandX) выдается ошибка

DataEnvironment1.rsCommand1.Open
Debug.Print DataEnvironment1.rsCommand1.Fields(0)

чтобы не происходила блокировка базы, то в дизайне наверно лучше удалить в свойствах DEConection строку ConnectionSource и оставить только иерархию команд

[$Yastrebov$]

Вот такая беда:

Код: Выделить всё

DataEnvironment1.Connection1.Close
        'Копирование БД
FileCopy...
        'Подключение к БД
MsgBox DataEnvironment1.Connection1.State 'Тут возвращает 0
DataEnvironment1.Connection1.ConnectionString = ...
DataEnvironment1.Connection1.Open
MsgBox DataEnvironment1.Connection1.State 'Тут возвращает 1

DataEnvironment1.rsCommand1.Open 'А вот тут ощибка - 3709

Debug.Print DataEnvironment1.rsCommand1.Fields(0)

Что может быть не так?

[$Yastrebov$]

то в дизайне наверно лучше удалить в свойствах DEConection строку ConnectionSource и оставить только иерархию команд

В этом случае уже на стадии запуска я получаю ошибку (80040200)

[$Yastrebov$]

О, великие модераторы alibek, tyomitch, GSerg, Amed Призываю Вас к помощи. Знающие, жажду Ваших идей! Нужно срочно решить проблему!

[GSerg]

ОК, человеку нужен ответ.
Ответ: я никогда не использую DataEnvironment для доступа к данным и только приблизительно догадываюсь, что это.
Остальные ответят за себя...

[EUGY]

GSerg правильно не использует DataEnvironment.
Все можно и через ADO. Поначалу мне он был нужен (DataEnvironment) для связки с DataReport.
Но потом иерархические отчеты научился строить и без него.
Если не лень тебе и всем остальным, приложи аттачем пример.
Разберемся.

[$Yastrebov$]

Удалось найти решение поставленной задачи!
Вот код для восстановления связи с таблицами в DataEnvironment

Код: Выделить всё

'Собственно восстанавливает связь и открывает таблицы
With DataEnvironment1
.Command1
.Command2
.Command3
End With

'Закрываем открытые таблицы
DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand2.Close
DataEnvironment1.rsCommand3.Close


Всем спасибо!