Узнать, открыта ли рабочая область

[Dummiel]

Как программно, и без использования обекта DATA, узнать, открыта ли на данный момент какая либо БД (область).

Можно ли одновременно открывать две-три БД? Если да, то плз - небольшой исходник, как между ними переключаться.

Работаю с файлами *.MDB (Access 2000) в среде Visual Basic 6.0

[O(- |-)O]

Я работаю в екселе но если подумать можешь использовать чот похожее...


file3 = "C:\work\2004\FileName.exl"
Workbooks.Open Filename:=file3 'Открыть файл
''''''''''''''''''''''''''''''''''
Workbooks("Filename1").Activate 'собстевенно переключение
Workbooks("Filename2").Activate......

[Cyrax]

Как программно, и без использования обекта DATA, узнать, открыта ли на данный момент какая либо БД (область).

Можно ли одновременно открывать две-три БД? Если да, то плз - небольшой исходник, как между ними переключаться.

Работаю с файлами *.MDB (Access 2000) в среде Visual Basic 6.0

а если подумать?
создаем нужное количество подключений к разным базам, и используем их для работы с каздой базой данных...

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

Dim CN1 As ADODB.Connection
Dim CN2 As ADODB.Connection
Dim CN3 As ADODB.Connection

Set CN1 = New ADODB.Connection
With CN1
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "путь_до_первой_базы"
  .Open
End With
' аналогично для остальных
....
....


как пользовать?

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

Dim RS As ADODB.Recordset

Set RS = New ADODB.Recordset
With RS
  .ActiveConnection = CN1 ' или 2 или 3
  .Source = "..."
  .Open
End With

[Samovar]

/ошибка/

[Samovar]

А как можно узнать узает ли кто нибудь ещо мой MDB. Напр. перед запуском архивирования или "compact database"... Или надо закрыть мой connection, а потом открыть eго exclusive и посмотреть будет ли ошибка?

[Dummiel]

Спасибо всем, да вот только с ADO я не работаю. Мне кажется проще (или я заблуждаюсь) работать программно.
Или уже пора переходить?