Узнать, открыта ли БД

[Dummiel]

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

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

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

[TEH3OP]

В ADODB (если ты с ADODB работаешь конечно), есть объект Connection (хотя, если ты с ADODB работаешь, то должен знать), который с базой соединяется. И этих Connection'ов ты можешь туеву хучу наклепать -- при этом каждый из них на свою базу смотреть буит.

Вот пример на всякий случай:

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


Public Sub Main()
Dim cnn1 as New ADODB.Connection
Dim cnn2 as New ADODB.Connection

'Открываем базы.
cnn1.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & _
VBA.InputBox("Введите имя файла БД1 с полным путём:") & ";"
cnn2.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & _
VBA.InputBox("Введите имя файла БД2 с полным путём:") &";"

'Закрываем базы.
cnn1.Close
cnn2.Close
End Sub


[Dummiel]

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

[Rainbow]

DAO и ADO весьма аналогичные вещи
когда на форму кидается контрол data, то в проект автоматически добавляется ссылка на DAO (проверь в Project->Referencies). Конрол призван облегчить жизнь чайнику.

Если тебе нужны несколько баз, используй несколько переменных типа Database. Примеры присоединения к базе смотри у соседей или в MSDN.

[abc]

Если *mdb открыта (например другой программой или пользователем) то существует в той же директории *ldb

dir(nameDB.ldb)<>""