Доступ к БД через Dao
Господа! Что я делаю не так:
------------------
Dim db as Database
Sub Opendb()
DBEngine.DefaultType = dbUseJet
Set db = DBEngine("C:\db.mdb", True, False, "PWD=123")
End Sub
------------------
DAO v3.6,
VB v6.0,
Windows XP.
Проблема в том, что ВБ выдает ошибку ODBC доступа к данным. Если пытаюсь открыть без пароля в коде и без пароля в БД естественно - все ОК! Ставлю там и там пароль - ошибка. А паролем это дело закрыть очень надо!!!
------------------
Dim db as Database
Sub Opendb()
DBEngine.DefaultType = dbUseJet
Set db = DBEngine("C:\db.mdb", True, False, "PWD=123")
End Sub
------------------
DAO v3.6,
VB v6.0,
Windows XP.
Проблема в том, что ВБ выдает ошибку ODBC доступа к данным. Если пытаюсь открыть без пароля в коде и без пароля в БД естественно - все ОК! Ставлю там и там пароль - ошибка. А паролем это дело закрыть очень надо!!!
1. Переменной типа database нельзя присвоить все свойства машины DBEngine :-) - будь внимательнее!
2. Попробуй в передаваемых параметрах третьим элементом передать true
Set db = OpenDatabase(dbname, True, True, ";pwd=myPWD")
2. Попробуй в передаваемых параметрах третьим элементом передать true
Set db = OpenDatabase(dbname, True, True, ";pwd=myPWD")
Цитата:
Originally posted by Meh&VB
1. Переменной типа database нельзя присвоить все свойства машины DBEngine :-) - будь внимательнее!
2. Попробуй в передаваемых параметрах третьим элементом передать true
Set db = OpenDatabase(dbname, True, True, ";pwd=myPWD")
1. Переменной типа database нельзя присвоить все свойства машины DBEngine :-) - будь внимательнее!
2. Попробуй в передаваемых параметрах третьим элементом передать true
Set db = OpenDatabase(dbname, True, True, ";pwd=myPWD")
Да, обратил внимание на ошибку... Спасибо! Все дело было в зависшем после завершения msaccess.exe, в котором до завершения была открыта dbname.mdb и в ; перед pwd в строке "pwd=123"... Еще раз спасибо!
А вот только для чтения и монопольный доступ ставить са-а-авсем необязательно! :)
У меня сработала такая строчка (если кому пригодится...):
Set db = DBEngine.OpenDatabase("X:\dbpath\dbname.mdb", False, False, ";pwd=123")