Строка подключения access - глюки.

[Antonariy]

Всегда подключался так:
cn.Open "driver={Microsoft access driver (*.mdb)};Extended Properties=""DBQ=" & App.Path & "\Universys.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"""

Под администратором все в порядке, а под пользователем с огдраниченными правами ругается на невозможность открыть какую-то ветку реестра.

Может есть какой-нибудь более другой способ установить соединение без dsn? Использую ADO 2.8

[alibek]

А зачем тебе ODBC? Чем не нравиться OLEDB?

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

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Properties("Data Source") = "C:\db1.mdb"
cnn.Properties("User Id") = "admin"
cnn.Properties("Password") = "pwd987"
cnn.Properties("Jet OLEDB:Database Password") = "my_pwd_123"
cnn.Properties("Jet OLEDB:System Database") = "C:\db1.mdw"
cnn.Open


[Antonariy]

А зачем тебе ODBC? Чем не нравиться OLEDB?

Так уж сложилось..

Вопросы:
1. База запаролена. Какой из этих двух паролей нужен и нафига второй?
2. Как создать mdw?

[Konst_One]

1 первый пароль - это когда просто запаролена база, второй, если через свою mdw
2 mdw создается специальной тулзой в составе офиса что-то типа администратор рабочих групп акцесс или тому подобное (в 2003-м он из меню защита кажется вызывается).

[Antonariy]

Спасибо, разобрался.

[Antonariy]

А без mde нельзя?

[alibek]

Да можно, конечно. Не указывай MDW и все.

[Antonariy]

Пробовал так:

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

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Properties("Data Source") = App.Path & "\Universys.mdb"
    cn.Properties("Password") = "pass"
    cn.Open

пишет "Сисемная база данных отсутствует или открыта с монопольным доступом другим пользователем".
Перед этим mdw удалил, восстановил старую базу.

[Antonariy]

Если снять пароль, то работает.

[Konst_One]

может у тебя эта база в акцессе открыта в монопольном режиме? или ты забыл обратно присоединиться к system.mdw

[Antonariy]

2 Konst_One

А без mde нельзя?

Да можно, конечно. Не указывай MDW и все.

[Konst_One]

тогда попробуй вот это:

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

cn.Properties("Jet OLEDB:Database Password") ="pass"

[Antonariy]

2 Konst_One

Сработало! Спасибо.