вопрос по доступу к запороленному mdb из vba - Microsoft Office Access

Bibigon · 10.07.2012, 20:26

Доброго времени суток, уважаемые.
Есть следующий код на vba:

PHP код:


			
Dim CN As ADODB.Connection

    Dim RS As ADODB.Recordset

    Dim strSN As String

    'On Error GoTo ErrorsODB

    strSN = "Provider = 'Microsoft.Jet.OLEDB.4.0'; Data Source =" & stGetDBPath & "\DB01.mdb;"

    Set CN = New ADODB.Connection

    CN.Open strSN

    Set RS = New ADODB.Recordset

    With RS

        .Source = strSQL

        .ActiveConnection = CN

        .CursorType = adOpenKeyset

        .LockType = adLockOptimistic

        .Open

    End With

Если файл mdb незапаролен - всё работает. Вешаю пароль на открыте файла, в строчке определения значения strSN добавляю этот пароль - при запуске ошибка - ошибочный пароль.
Прошу помощи.
Владимир.

Teslenko_EA · 11.07.2012, 08:34

Здравствуйте Bibigon.
"..в строчке .. добавляю этот пароль.."
если пароль Вы добавляете так:

Код:

strSN = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & stGetDBPath & "DB01.mdb;Jet OLEDB:Database Password=пароль"

то должно всё работать.
Евгений.

Bibigon · 11.07.2012, 21:43

Цитата:

Сообщение от Teslenko_EA

Здравствуйте Bibigon.
"..в строчке .. добавляю этот пароль.."
если пароль Вы добавляете так:

Код:

strSN = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & stGetDBPath & "DB01.mdb;Jet OLEDB:Database Password=пароль"

то должно всё работать.
Евгений.

Здравствуйте, Евгений.
Попробовал так как Вы предложили - не помогло.

С уважением.

Teslenko_EA · 11.07.2012, 22:25

"..Попробовал .. - не помогло.." - значит Вы что-то неправильно сделали.
Убедиться в верности строки подключения не сложно с помощью Universal Data Link (.udl) файла.

Евгений.

10.07.2012, 20:26	#1
Bibigon Новичок Джуниор Регистрация: 10.07.2012 Сообщений: 2	вопрос по доступу к запороленному mdb из vba Доброго времени суток, уважаемые. Есть следующий код на vba: PHP код: Dim CN As ADODB.Connection Dim RS As ADODB.Recordset Dim strSN As String 'On Error GoTo ErrorsODB strSN = "Provider = 'Microsoft.Jet.OLEDB.4.0'; Data Source =" & stGetDBPath & "\DB01.mdb;" Set CN = New ADODB.Connection CN.Open strSN Set RS = New ADODB.Recordset With RS .Source = strSQL .ActiveConnection = CN .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open End With Если файл mdb незапаролен - всё работает. Вешаю пароль на открыте файла, в строчке определения значения strSN добавляю этот пароль - при запуске ошибка - ошибочный пароль. Прошу помощи. Владимир.

11.07.2012, 08:34	#2
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте Bibigon. "..в строчке .. добавляю этот пароль.." если пароль Вы добавляете так: Код: `strSN = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & stGetDBPath & "DB01.mdb;Jet OLEDB:Database Password=пароль"` то должно всё работать. Евгений.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
uTorrent мешает доступу в интернет	Аватар	Софт	2	03.05.2011 00:43
Вопрос по VBA	Basil8	Microsoft Office Access	4	14.12.2009 14:38
Вопрос по excel/vba	sergey_wckd	Microsoft Office Excel	15	05.11.2009 16:07
Вопрос по VBA	Maksik	Microsoft Office Excel	9	29.06.2009 12:55
Вопрос VBA	tat-besidovska	Microsoft Office Excel	1	04.02.2008 10:49

11.07.2012, 22:25	#4
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	"..Попробовал .. - не помогло.." - значит Вы что-то неправильно сделали. Убедиться в верности строки подключения не сложно с помощью Universal Data Link (.udl) файла. Евгений.