Проблема с методом Open в ADO

[Летучий Обезьян]

Господа! Проблема такая. Пишу:

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

sFile = App.Path + "\" + cbTests.Text + sExt
     
        MyCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + sFile, "Admin", sFixedPassword

В ответ лезет ошибка. "Не удается запустить приложение. Системная БД отсутствует или открыта с монопольным доступом другим пользователем." Однако других пользователей вроде нет - пробовал выполнять код сразу после перезагрузки компа.

С тем же паролем БД нормально открывается в Access.

Такой вариант тоже не катит:

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

MyCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + sFile + "; User ID=Admin; Password=" + FixedPassword

Заранее благодарен.

P.S. Уже знаю, что можно было бы открывать через ODBC, но надо именно через Jet.

[vvs_adm]

msgbox sFile

[Летучий Обезьян]

Не понял. Файл-то существует, если ты об этом: C:\current\m1\shab_enc.m1t. И в Access он открывается. Зашифрованная запароленная БД, только с другим расширением. Файлы с нестандартным расширением я и раньше открывал (с Data control), так что дело не в этом.

[Antonariy]

Он имеет в виду, может с получившейся строчкой косяк какой. Например, забыл точку перед расширением.

[Летучий Обезьян]

Да нет, с файлом БД порядок. Он нормально открывался, пока не был запаролен и зашифрован. Беда в том, что прога у меня уже готова и отлажена, но нужно было добавить пароль. И теперь эта БД не открывается.

[alibek]

Если у тебя зашифрованная база, к ней надо системную базу указывать (MDW).

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

Set objConnection = New ADODB.Connection
objConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
objConnection.Properties("Data Source") = "C:\file1.mde"
objConnection.Properties("Jet OLEDB:System Database") = "C:\file1.mdw"
objConnection.Properties("User Id") = "Admin"
objConnection.Properties("Password") = "Password"
objConnection.Open


[alibek]

А если ты пароль добавил не на пользователя, а на базу, то он в другом месте задается, в .Properties("Jet OLEDB:Database Password")

[Летучий Обезьян]

Всё, заработало.
Оказывается достаточно было указать коннекшнстринг вот в таком виде: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"

Ребята, всем спасибо. Особенно - alibek'у.

P.S. Кстати, alibek, твоя подпись наводит на фразу: two beer or not to be...)

[vvs_adm]

Он имеет в виду, может с получившейся строчкой косяк какой.

Да нет, с файлом БД порядок.

Нда...

Оказывается достаточно было указать коннекшнстринг вот в таком виде: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"

А msgbox помог бы...