Public DatabaseName As String

The fully qualified database name to be opened or created.

Public DatabasePassword As String

The password used to open or create the database.

Public Property Let SystemDatabase(sSystemDatabase As String)

The fully qualified path name to the workgroup information file. This file is called system.mdw by default. On a single user system it is often stored in the Windows system directory. In a network environment you probably want to put this file in a shared location for all users to access.

Public Property Get WorkspaceName() As String
Public Property Let WorkspaceName(sWorkspaceName As String)

The name of the workspace. This can be any string you would like. The default is DBPassword.

Public Property Get Username() As String
Public Property Let Username(sUsername As String)

The username to use when creating the workspace. This is typically Admin if you have not yet defined additional users in Microsoft Access. In an upcoming issue we will discuss how to add, edit and delete users.

Public Property Get Password() As String
Public Property Let Password(sPassword As String)

The password to use when creating the workspace. This is typically a blank string until you change it in Microsoft Access. In an upcoming issue we will discuss how to add, edit and delete users.

Public Property Get WorkspaceType() As WorkspaceTypeEnum
Public Property Let WorkspaceType(sWorkspaceType As WorkspaceTypeEnum)

Public Sub CreateDatabase()

Creates a database specified by the properties set above. If the database already exists you will get an error raised back to the caller.

Public Function OpenDatabase() As Database

Below is an example of how this function works. It will create a database called e:\temp\password.mdb with a password of 'good'. It assumes this database does not already exist.

    Dim dbu As New cDBPassword
    Dim db As Database

    On Error Goto Handler
    ' Point to the workgroup file.  If you are not sharing the database this is not
    ' necessary.
    dbu.SystemDatabase = "c:\windows\system\system.mdw"
    ' In the next week or so we will discuss how to add additional users to
    ' the system.
    dbu.Username = "admin"
    dbu.Password = ""

    ' Set the appropriate properties for the database name and password
    dbu.DatabaseName = "e:\temp\password.mdb"
    dbu.DatabasePassword = "good"

    ' create the database with a password
    dbu.CreateDatabase

    ' open password protected database.
    Set db = dbu.OpenDatabase

    Exit Sub

Handler:
    MsgBox Err.Description