ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ADO, VBA, Excel и Access
4 сообщений из 4, страница 1 из 1
ADO, VBA, Excel и Access
    #36871722
AlexZXZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexZXZ
Гость
Уважаемые коллеги, добрый день!
Вопрос по доступу из vba к запароленной базе данных. Есть такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim DBFullName As String, UsID As String, PW As String

    DBFullName = ThisWorkbook.Path & "\" & "БазаДанных1.mdb"        
    UsID = "User"
    PW = "12345"

    Set cn = CreateObject("ADODB.Connection")
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.ConnectionString = "UserId=UsID;Password=PW;Data Source =" & DBFullName
    cn.Open
При этом, выдаёт ошибку:
"Ошибка -2147217843:
Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем."

Другой вариант доступа:
Код: plaintext
1.
2.
3.
   Set cn = New ADODB.Connection
    Cnct = "Provider=Microsoft.Jet.OLEDB.4.0; "
    Cnct = Cnct & "Data Source=" & DBFullName & ";"
    cn.Open ConnectionString:=Cnct, UserId:="Admin", Password:="12345"
Выдаёт то же самое.
При этом доступ к незапароленной базе данных удаётся без проблем.
Никто другой к этой базе не подключён, пароль вводится правильный.

Будьте добры, подскажите, кто знает, в чём ошибка?
Заранее благодарен!
...
Рейтинг: 0 / 0
29.09.2010, 11:14
| Ответить | Цитировать | Написать  
ADO, VBA, Excel и Access
    #36871734
Gwa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gwa
Участник
cn.ConnectionString = "UserId=" & UsID & ";Password=" & PW & ";Data Source =" & DBFullName
...
Рейтинг: 0 / 0
29.09.2010, 11:19
| Ответить | Цитировать | Написать  
ADO, VBA, Excel и Access
    #36871815
AlexZXZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexZXZ
Гость
Gwa, спасибо большое! Действительно, глупая ошибка, но после её исправления всё то же самое. Видимо, дело не только в этом. Поэтому и второй вариант тоже не работает.
...
Рейтинг: 0 / 0
29.09.2010, 11:41
| Ответить | Цитировать | Написать  
ADO, VBA, Excel и Access
    #36872915
AlexZXZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexZXZ
Гость
Фуу! Разобрался, наконец:
Код: plaintext
cn.ConnectionString = "Jet OLEDB:Database Password=" & PW & ";Data Source =" & DBFullName
Большое спасибо сайту www.connectionstrings.com, очень всем рекомендую!
...
Рейтинг: 0 / 0
29.09.2010, 17:45
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ADO, VBA, Excel и Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2177629]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 153ms
get topic data:
 6ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 242ms
total:  454ms
созд. / загр.: 454ms
x
x
Закрыть


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