Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ошибочный пароль (Access 2010) / 8 сообщений из 8, страница 1 из 1
13.11.2012, 11:56
    #38035961
andrber
andrber
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
Добрый день!
Подскажите, где ошибка?
Имеется:
ОС WXP SP3
MS Office 2010
БД на ACCESS 2010 на сетевом ресурсе подмапленном в качестве диска Q: (доступ на создание/изменение/удаление на уровне ФС - есть)
БД зашифрована паролем: "123" (без кавычек). С этим паролем через интерфейс ACCESS успешно открывается.
Из файла EXCEL кодом на VBA пытаюсь подключиться к БД:
Код: vbnet
1.
2.
3.
4.
5.
Private Sub ConnOpen()
    Set dbconn = CreateObject("ADODB.Connection")
    dbconn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Q:\db.accdb;Jet OLEDB:Database Password=123;"
    dbconn.Open
End Sub


При открытии соединения - ошибка "ошибочный пароль"
Пробовал еще так:
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub ConnOpen()
    Set dbconn = CreateObject("ADODB.Connection")
    dbconn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Q:\db.accdb;"
    dbconn.Properties("Jet OLEDB:New Database Password") = "123"
    dbconn.Open
End Sub


что собственно тоже самое, ну и результат тот же...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2012, 16:08
    #38036535
qwerty112
qwerty112
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
andrberДобрый день!
Подскажите, где ошибка?
Имеется:
ОС WXP SP3
MS Office 2010
БД на ACCESS 2010 на сетевом ресурсе подмапленном в качестве диска Q: (доступ на создание/изменение/удаление на уровне ФС - есть)
БД зашифрована паролем: "123" (без кавычек). С этим паролем через интерфейс ACCESS успешно открывается.
Из файла EXCEL кодом на VBA пытаюсь подключиться к БД:
Код: pascal
1.
2.
3.
4.
5.
Private Sub ConnOpen()
    Set dbconn = CreateObject("ADODB.Connection")
    dbconn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Q:\db.accdb;Jet OLEDB:Database Password=123;"
    dbconn.Open
End Sub


При открытии соединения - ошибка "ошибочный пароль"
Пробовал еще так:
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub ConnOpen()
    Set dbconn = CreateObject("ADODB.Connection")
    dbconn.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Q:\db.accdb;"
    dbconn.Properties("Jet OLEDB:New Database Password") = "123"
    dbconn.Open
End Sub


что собственно тоже самое, ну и результат тот же...

ваще, первый вариант - правильный, - странно если не работает
http://connectionstrings.com/access-2007

>> что собственно тоже самое

может в этом и причина ?
во-втором случае, вы пишите, НЕ пароль к БД, а "НОВЫЙ" пароль БД ?
может и в первом варианте писали New Database Password, не ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2012, 09:29
    #38037396
andrber
andrber
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
Конечно же не
Код: vbnet
1.
dbconn.Properties("Jet OLEDB:New Database Password") = "123"


,а:
Код: vbnet
1.
dbconn.Properties("Jet OLEDB:Database Password") = "123"


Это я уже экспериментировал с разными параметрами. Просто не оттуда скопировал.

Первый пример скопировал в *.vbs запустил из операционки, заработало....
При этом тот же код, при запуске из модуля в EXCEL выдает ошибку (в т.ч. в режиме отладки).
Наверное это надо уже относить в раздел "Баги Access" :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2013, 14:43
    #38103484
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
andrber,
У меня тоже самое в Excel. Открываю через ADO базу accdb в которой есть связанные таблицы из зашифрованной базы (под паролем). Программно запросы от связанных таблиц не открываются, пишет, что "Ошибочный пароль". В среде Access все открывается. Базы были сконвертированы из mdb в accdb. Пароль из десяти символов латинскими буквами. Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.01.2013, 15:16
    #38103563
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
Проблема решилась после ипорта "старой" базы в чистую базу "нового" формата.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
04.02.2014, 19:01
    #38549256
imort
imort
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
Идиотская система...
http://translate.google.com/translate?hl=ru&sl=auto&tl=ru&u=http://club.excelhome.net/thread-959653-1-1.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
12.02.2015, 17:25
    #38878385
Дмитрий Чуманов
Дмитрий Чуманов
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
Дима Г,

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

Вот ответ на вопрос на очень хорошем ресурсе , который qwerty112 уже, кстати, упоминал:
авторNote! Reports say that a database encrypted using Access 2010 - 2013 default encryption scheme does not work with this connection string. In Access; try options and choose 2007 encryption method instead. That should make it work. We do not know of any other solution. Please get in touch if other solutions is available!
То бишь
1) удаляем свой пароль :
Файл - Расшифровать базу данных -> вводим пароль
2) меняем способ шифрования :
Файл - Параметры - Параметры клиента - Способ шифрования -> меняем на "как в предыдущей версии" (для обратной....)
3) устанавливаем пароль :
Файл - Зашифровать паролем -> дважды вводим пароль

Теперь VBA не ругается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2016, 00:01
    #39152692
EccoArts
EccoArts
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибочный пароль (Access 2010)
Дмитрий Чуманов,

Напиши пожалуйста пример запроса.

Вот что у меня, но он пишет что "Ошибочный пароль"
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
 
Public Sub RunSQL()
    Dim CON As New ADODB.Connection
    Dim err As ADODB.Error
    Dim addresDB, prodName, prodCategory, countType As Variant
    Dim prodRowNumber, prodPrice, prodCount As Variant
    
    addresDB = CStr(Sheets(2).Cells(5, 3).Value)
    zada4a = CStr(Sheets(2).Cells(4, 3).Value)
On Error GoTo ErrorSub
    CON.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & addresDB
    CON.Properties("Jet OLEDB:Database Password") = "123"
    CON.Open
    CON.Execute (zada4a)
    Sheets(2).Cells(11, 3).Value = "Все норм!  -  " & Now
    CON.Close
    Set CON = Nothing
    Exit Sub
ErrorSub:
    For Each err In CON.Errors
        MsgBox (err.Description & " Источник: " & err.Source)
    Next
    Set CON = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ошибочный пароль (Access 2010) / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1139ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1614037]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 707ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 341ms
total:  1139ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]