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

Вопрос: DAO - создать базу данных с паролем Добавлено: 18.01.04 14:46

Автор вопроса: NovichoK

Как с помощью DAO создать БД с паролем?
Dim dbWorkSpace As Workspace
Dim dbDataBase As Database
Set dbWorkSpace = DBEngine.Workspaces(0)
Set dbDataBase = dbWorkSpace.CreateDatabase(StrPathName, ";pwd=" & Password, False)
Так не получается...

Ответить

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

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

Slay

Вопросов: 27
Ответов: 150

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

Добавлено: 18.01.04 19:33

хм... странно... должно... а на что конкренто jet ругается?

я делаю так:

Set NewDB = DBEngine.CreateDatabase(NEWBase, dbLangCyrillic & ";pwd=123")

Ответить

Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #2	Добавлено: 19.01.04 01:05
	Private Sub Command1_Click() 'В Reference не забудь подключить DAO(3.51 или 3.6) Dim ws As Workspace, db As Database Dim DBPath As String, DBPass As String 'путь к твоей БД DBPath = "E:\MyDatabase.mdb" 'пароль к твоей БД '(учти,что JET чувствительна к регистру) DBPass = "EROS" Set ws = DBEngine.Workspaces(0) 'если такая БД уже есть то убиваем её If Dir(DBPath) <> "" Then Kill DBPath 'создаём новую БД Set db = ws.CreateDatabase(DBPath, _ dbLangCyrillic & ";PWD=" & DBPass, dbEncrypt) 'Проверка,что БД создана If Not db Is Nothing Then MsgBox "Новая БД создана!" & vbCrLf & vbCrLf _ & "Пароль: " & DBPass, vbInformation Else MsgBox "Нифига у нас не вышло!", vbCritical End If 'убиваем ссылки на созданные объекты Set db = Nothing Set ws = Nothing End Sub Ответить

Номер ответа: 3 Автор ответа: NovichoK Вопросов: 72 Ответов: 147	Профиль \| \| #3	Добавлено: 19.01.04 20:03
	Спасибо! Нашел у себя ошибку... Ответить

Страница: 1 |