vb6 & passworded access 97 dataase(s) [please help] 
Author Message
 vb6 & passworded access 97 dataase(s) [please help]

    I am writing a program that requires the ability to open a passworded database.  I would like to be able to have the database passworded and have the user enter a username and password to "logon" to the database.  I have tried several ways of doing this and each time I either get a message saying; that the "system.mdw file is missing or open exclusively by another program" or I get a message saying that the password is incorrect, when I know the one I supplied in code is the right password.
    There are two databases, one that supplies support data and one that records the actual outcome of the users input.  It is the once that records the users output that needs to have the security.

At the moment only the database is passworded and the password is temporarily "tyler"

(This program/database is for a funeral home, thus the references to "cremation" and such)

Here is what my Form1_load sub routine looks like as far as the initialization of the db goes:
Static Sub Form_Load()

    'cremation info database
Set wrkjet_CRD = CreateWorkspace("JetWorkspace", "Admin", "", dbUseJet)

    'cremation info database
Set DB_CRD = wrkjet_CRD.OpenDatabase(App.Path & "\Records.mdb", False)

    'cremation info recordset
Set RS_CRI = DB_CRD.OpenRecordset("cremation info", dbOpenDynaset)

'DBEngine.DefaultPassword = "fun"

   'support database
Set wrkJet_SD = CreateWorkspace("JetWorkspace", "Admin", "", dbUseJet)
        '*****this is where it tells me the system.mdw file is missing or in exclusive use by another program.

    'support database
Set DB_SD = OpenDatabase(App.Path & "\Support Data.mdb", False, , pwd = "tyler")

  'support data
Set RS_CD = DB_SD.OpenRecordset("client data", dbOpenDynaset)
Set RS_MED = DB_SD.OpenRecordset("McgEmployee", dbOpenDynaset)
Set RS_HPM = DB_SD.OpenRecordset("HPMcEmployee", dbOpenDynaset)

If I remove all passwords, and also all password related code the database is open without any problems.

Could you possibly, please; show me how to access a database that is both password protected and has user login protection, it would be very much appreciated.

Thank-you so much for your time!
Tyler M. Schwerdfeger

Wed, 26 Jun 2002 03:00:00 GMT  
 vb6 & passworded access 97 dataase(s) [please help]
Please post in Plain Text format to newsgroups ;)

Set DB_CRD = wrkjet_CRD.OpenDatabase(App.Path &

Hope that helps!

John 'RuffNeck' Willemse
    'cremation info database
    Set DB_CRD = wrkjet_CRD.OpenDatabase(App.Path & "\Records.mdb", False)

Wed, 26 Jun 2002 03:00:00 GMT  
 [ 2 post ] 

 Relevant Pages 

1. Passworded Access 97 Database

2. Help - Can't disconnect Access - VB6 + Access 97 + NT4.0

3. Err 3704 Using VB6 & Access 97

4. VB6 & Access 97 - Storing Bitmaps

5. VB6 & Access 97 / 2000

6. VB6 & Access 97 Databases

7. VB6 & Access 2000 Help Please

8. Newbie Question: VB6 & Access Please help

9. CRViewer & Access 2000 passworded DB

10. Help Please - MScomm in Access 97

11. Access 97 Stabilty. Please Help

12. - Access 97 textbox problems, please help -


Powered by phpBB® Forum Software