Открытие запароленной базы Access 2000

22.03.2007, 18:03. **Показов** 2357. **Ответов** 6

Студворк — интернет-сервис помощи студентам

Как из кода VB открыть базу данных Access 2000 с установленным паролем?

Код типа: Set MyDb = MyWs.OpenDatabase('Название базы', False, False, ';pwd=Пароль')
выдает ошибку - неправильный пароль.

В Access 97 все работало, а в Access 2000 проблемы.

@Alexey · 25.03.2007, 14:42

Попробуй мой пример:

Dim db As Database
Dim rs As Recordset

' Открыть БД.
Set db = DBEngine.OpenDatabase(database_name, False, False, 'MS Access;PWD=mypassword')

' Создать Recordset.
Set rs = db.OpenRecordset(table_name)

' Добавить Recordset в компонент Data.
Set Data1.Recordset = rs

--------------------
Не забудь также, что нужно добавить References на
'Microsoft DAO 3.6 Object Library'

25.03.2007, 17:14

Спасибо за помощь. Да, база стала открываться, но только если владельцем базы является'admin'.
Как только я меняю владельца, начинаются старые проблемы.
Как задать владельца в коде?
Как программно создать базу в формате Access 2000?

@Alexey · 25.03.2007, 17:36

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

JetName = 'MyJet'
DBEngine.SystemDB = 'C:system.mdw'
dbName = 'C:db1.mdb'

If InStr(Command, '-a') <> 0 Then
Set wrkJet = DBEngine.CreateWorkspace(JetName, 'Admin', '')
Else
Set wrkJet = DBEngine.CreateWorkspace(JetName, 'User', '') 'для пользователей с именем User
End If

DBEngine.Workspaces.Append wrkJet
' Write/read
'Set dbok = DBEngine.Workspaces(JetName).OpenDatabas e(dbName, , False)
' Read only
Set dbTP = DBEngine.Workspaces(JetName).OpenDatabas e(dbName, , True)

25.03.2007, 18:43

smalig, спасибо!
Я смотрю - ты спец по Access. Может тогда подскажешь как создать базу в формате 2000-го.
Буду премного благодарен.

@Alexey · 25.03.2007, 18:53

За благодарность спасибо, насчет спеца - было когда-то, немного программил с Access. А про вопрос по созданию БД программно не скажу, потому что по-моему легче всего сделать template (пустую БД) и потом его использовать, а не каждый раз генерить по-новой.

@malnik · 27.03.2007, 01:24

У Виктора Конюкова в 'Лекциях...' подрбно описано программное создание БД. http://www.liac.nm.ru

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

BaoBab

	Открытие запароленной базы Access 2000 22.03.2007, 18:03. Показов 2357. Ответов 6 Метки нет (Все метки) Как из кода VB открыть базу данных Access 2000 с установленным паролем? Код типа: Set MyDb = MyWs.OpenDatabase('Название базы', False, False, ';pwd=Пароль') выдает ошибку - неправильный пароль. В Access 97 все работало, а в Access 2000 проблемы.

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	25.03.2007, 14:42
	Попробуй мой пример: Dim db As Database Dim rs As Recordset ' Открыть БД. Set db = DBEngine.OpenDatabase(database_name, False, False, 'MS Access;PWD=mypassword') ' Создать Recordset. Set rs = db.OpenRecordset(table_name) ' Добавить Recordset в компонент Data. Set Data1.Recordset = rs -------------------- Не забудь также, что нужно добавить References на 'Microsoft DAO 3.6 Object Library' 0

BaoBab
	25.03.2007, 17:14
	Спасибо за помощь. Да, база стала открываться, но только если владельцем базы является'admin'. Как только я меняю владельца, начинаются старые проблемы. Как задать владельца в коде? Как программно создать базу в формате Access 2000?

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	25.03.2007, 17:36
	Не знаю, то ли это, что тебе нужно, но попробуй вот этот пример. Я его раньше использовал для открытия БД с правами пользователей. JetName = 'MyJet' DBEngine.SystemDB = 'C:system.mdw' dbName = 'C:db1.mdb' If InStr(Command, '-a') <> 0 Then Set wrkJet = DBEngine.CreateWorkspace(JetName, 'Admin', '') Else Set wrkJet = DBEngine.CreateWorkspace(JetName, 'User', '') 'для пользователей с именем User End If DBEngine.Workspaces.Append wrkJet ' Write/read 'Set dbok = DBEngine.Workspaces(JetName).OpenDatabas e(dbName, , False) ' Read only Set dbTP = DBEngine.Workspaces(JetName).OpenDatabas e(dbName, , True) 0

BaoBab
	25.03.2007, 18:43
	smalig, спасибо! Я смотрю - ты спец по Access. Может тогда подскажешь как создать базу в формате 2000-го. Буду премного благодарен.

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	25.03.2007, 18:53
	За благодарность спасибо, насчет спеца - было когда-то, немного программил с Access. А про вопрос по созданию БД программно не скажу, потому что по-моему легче всего сделать template (пустую БД) и потом его использовать, а не каждый раз генерить по-новой. 0

@malnik 0 / 0 / 0 Регистрация: 19.03.2007 Сообщений: 8
	27.03.2007, 01:24
	У Виктора Конюкова в 'Лекциях...' подрбно описано программное создание БД. http://www.liac.nm.ru 0