Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проблема ...

Тема: Проблема открытия БД с паролем из другой БД

15.06.2007 19:58:09

Олег8

5 сообщения

Тема: Проблема открытия БД с паролем из другой БД

БД защищена паролем. Как прописать путь к этой БД из другой с указанием пароля. Пробовал так:
Dim dbs As DAO.Database
Set dbs = DBEngine.Workspaces(0).OpenDatabase("D:\x.mdb",,,PWD=пароль)
Пока ничего не получается, хотя, если пароль с БД снять, то все хорошо работает.

P.S. Проблемы с базой данных
Автор: Олег от 25.10.2001 17:52:55 Источник ...

15.06.2007 19:58:09

All

4316 сообщения

RE: Проблема открытия БД с паролем из другой БД

Примеры на эту тему есть в файлах la_ado.mdb, la_prot.mdb
1. Вариант для ADO
Dim cnn As ADODB.Connection ' Переменная для соединения

' Определяем новое соединение
Set cnn = New ADODB.Connection

' Определяем строку соединения для Microsoft.Jet.OLEDB
' Полностью определить переменные подключения для других провайдеров
' можно открыв файл udl, который создается в проводнике
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" ' Провайдер
strCnn = strCnn & "Data Source=" & CurrentProject.Path & "\la_form.mdb;" ' база данных
strCnn = strCnn & "User ID=Admin;" ' Пользователь
strCnn = strCnn & "Mode=ReadWrite|Read;" ' Режим чтения и записи+другие свойства
strCnn = strCnn & "Extended Properties='';" ' Расширенные свойства, например, файл udl
strCnn = strCnn & "Persist Security Info=False;"
strCnn = strCnn & "Locale Identifier=1033;"
strCnn = strCnn & "Jet OLEDB:System database='';" 'C:\..\SYSTEM.MDW;
strCnn = strCnn & "Jet OLEDB:Database Password='';" ' Пароль внутри базы
strCnn = strCnn & "Jet OLEDB:New Database Password='';"
strCnn = strCnn & "Jet OLEDB:Encrypt Database=False;"
strCnn = strCnn & "Jet OLEDB:Create System Database=False;"
strCnn = strCnn & "Jet OLEDB:Registry Path='';"
strCnn = strCnn & "Jet OLEDB:Engine Type=5;"
strCnn = strCnn & "Jet OLEDB:Database Locking Mode=1;"
strCnn = strCnn & "Jet OLEDB:Global Partial Bulk Ops=2;"
strCnn = strCnn & "Jet OLEDB:Global Bulk Transactions=1;"
strCnn = strCnn & "Jet OLEDB:Don't Copy Locale on Compact=False;"
strCnn = strCnn & "Jet OLEDB:SFP=False;"
strCnn = strCnn & "Jet OLEDB:Compact Without Replica Repair=False;"

' Назначаем строку соединения
cnn.ConnectionString = strCnn

' Открываем соединение
cnn.Open

P.S. Проблемы с базой данных
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Проблема ...

Поиск

Список форумов

Начало | Forums