VBNet - Форум - Как открыть базу данных с паролем

Вопрос: Как открыть базу данных с паролем Добавлено: 06.01.04 09:42

Автор вопроса: Meh&vb | ICQ: 195578509

Создавая базу данных в Access97,защищённую паролем никак не могу её открыть в программе на VB, задавая тот же самый пароль. Пишет что пароль не верный.

Если база создавалась в VB - всё работает нормально. Что делать ?

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 06.01.04 09:50

У меня такая же проблема, если подключаться через JET.

Поэтому использую немного другое подключение:

sConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
                        "DefaultDir=" & sDataPath & ";" & _
                        "UID=admin;PWD=" & password & ";" & _
                        "DBQ=" & sFileMDB & ";"

Все вышесказанное для ADO, если надо для DAO, то пиши в топик.

Ответить

Номер ответа: 2 Автор ответа: Meh&vb ICQ: 195578509 Вопросов: 8 Ответов: 25	Профиль \| \| #2	Добавлено: 06.01.04 10:55
	Спасибо за совет - приму к сведению . Но программа была начата с использованием DAO ещё на VB-5 . Ответить

Номер ответа: 3
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #3

Добавлено: 06.01.04 11:10

Если DAO, то помоему еще проще

Dim db As Database
Set db = OpenDatabase("c:\pzglobal.mdb", False, False, ";User=admin;pwd=" & password)

Если, что приходи в чат

Ответить

Номер ответа: 4
Автор ответа:

Meh&vb

ICQ: 195578509

Вопросов: 8
Ответов: 25

Профиль | | #4

Добавлено: 06.01.04 11:39

Спасибо ! Всё заработало . Оказывется проблема была в том , что я явно не указывал параметр Options=true(false), т.е. писал так:

Set db = OpenDatabase("с:\databases\pwddb.mdb", , , ";pwd=Passw")

Ответить

Номер ответа: 5
Автор ответа:

POMAH

ICQ: 223-574-928

Вопросов: 0
Ответов: 16

Профиль | | #5

Добавлено: 09.01.04 12:24

Хочу немного добавить к высказыванию boevika. При работе с ADO можно достучаться к защищенной паролем базе данных не используя драйвера ODBC. Делается это следующим образом:

cn.Provider = "Microsoft.Jet.OLEDB.4.0"

cn.ConnectionString = "Data Source=Путь к базе данных " & _
                                  "User ID=admin;" & _
                                  "Jet OLEDB:Database Password=Ваш пароль"

Ответить

Страница: 1 |