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


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