-
I am trying to get my VB appicaltion to access and access .mdb database that has been password protected. I keep getting an error saying "Can't find installed ISAM,
3071". Here is the code I am using:
' Setup the database
Set wrkSpcDatDel = DBEngine.CreateWorkspace("wrkSpcDatDel", "Admin", "",
dbUseJet)
' Open the database
Set db = wrkSpcDatDel.OpenDatabase(strRdbms, False, False, strRdbmsPwd)
Does anyone know how to fix this or what the heck am I doing wrong?
I even went so far as to remove VB6.0 and then reinstall it in the event the the files or
the registry got mucked up.
HEEEEEEEEELP!!!!!!!
Can any one help me?
:Confused:
------------------
David L. Baudais
Systems Analyst
-
Thanks for your help and I found my solutiion and I feel very dumb. :o
The problem was that I forgot to include the ";pwd=" in the strDbmsPwd variable.
------------------
David L. Baudais
Systems Analyst
-
The definition for error 3071 I found is as follows:
This expression is typed incorrectly, or it is too complex to be evaluated. For example, a numeric expression may contain too many complicated elements. Try simplifying the expression by assigning parts of the expression to variables. (Error 3071)
As far as for the code I am not sure. You might want to try putting the password in the CreateWorkspace statement.
Code:
Set wrkSpcDatDel = DBEngine.CreateWorkspace("wrkSpcDatDel", "Admin", strRdbmsPwd,
dbUseJet)
' Open the database
Set db = wrkSpcDatDel.OpenDatabase(strRdbms)