by Chris Cabayao (2 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 4th March 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Jet Database Security Open an Access database that has a password. Set/change the current password of access file. Create User/Groups in the
API Declarations
Modules = .Bas File
The object type is a database object dao/ado database
============
For DAO
dim wkData as dao.workspace
Dim dbData as dao.Database
============
For ADo
din cnn as new connection
*Sample
OpenDatabaseWithPassWord(dbData, "Test.mdb", "vbcode")
OpenConnectionWithPassWord(cnn,"Provider=Microsoft.Jet.OLEDB.4.0;","Data Source=" + app.path + "\"+ "Test.mdb","vbcode")
'* Open the Database Password in DAO
Sub OpendatabaseWithPassword(DB As Object, strDatabase As String, strPass As String)
Set DB = DBEngine.OpenDatabase(App.Path & "\" & strDatabase, False, False, ";pwd=" & strPass)
End Sub
'* Open Database Password in ADO
Sub OpenConnectionWithPassword(DB As Object, strProvider, strDataSource As String, strPassWord As String)
DB.Open _
strProvider & _
strDataSource & _
strPassWord
End Sub
'* Change The Database Password in DAO
Sub ChangeDBPassword_DAO(DB As Object, strDatabase As String, strOldPass As String, strNewPass As String)
Set DB = DBEngine.OpenDatabase(App.Path & "\" & strDatabase, True, False, ";pwd=" & strOldPass)
DB.NewPassword strOldPass, strNewPass
DB.Close
End Sub
'* Change The User-Level Password in DAO
Sub ChangeUserPassword_DAO(DB As Object, strOldPass As String, strNewPass As String)
DBEngine.SystemDB = "c:\win98\system\system.mdw"
Set DB = DBEngine.CreateWorkspace("", "Admin", strOldPass)
DB.Users("Admin").NewPassword strOldPass, strNewPass
DB.Close
End Sub
'* Change The User-Level Password in ADO
'* Assumes that the Admin user doesn't currently have a password set
'* Provider=Microsoft.Jet.OLEDB.4.0;
Sub ChangeUserPassword_ADO(DB As Object, strProvider, strDataSource As String, strSystem As String, strOldPassword As String, strNewPassword As String)
DB.ActiveConnection = _
strProvider & _
strDataSource & _
strSystem
DB.Users("Admin").ChangePassword strOldPassword, strNewPassword
Set DB = Nothing
End Sub
'* Add The New User Group and Password in DAO
Sub CreateUserGroup_DAO(DB As Object, User As Object, NewUser As String, strPID As String, strPassWord As String, wrkPass As String)
DBEngine.SystemDB = "c:\win98\system\system.mdw"
Set DB = DBEngine.CreateWorkspace("", "Admin", wrkPass)
Set User = DB.CreateUser(NewUser, strPID, strPassWord)
DB.Users.Append User
DB.Close
End Sub
'* Add The New User To Group
Sub AddUserToGroup(DB As Object, strPass As String, strNewUser As String, strNewGroup)
DBEngine.SystemDB = "c:\win98\system\system.mdw"
Set DB = DBEngine.CreateWorkspace("", "Admin", strPass)
DB.Users(strNewUser).Groups.Append _
DB.Users(strNewUser).CreateGroup(strNewGroup)
DB.Close
End Sub
No comments have been posted about Jet Database Security Open an Access database that has a password. Set/change the current password . Why not be the first to post a comment about Jet Database Security Open an Access database that has a password. Set/change the current password .