• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Jet Database Security Open an Access database that has a password. Set/change the current password

Jet Database Security Open an Access database that has a password. Set/change the current password

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")







Rate Jet Database Security Open an Access database that has a password. Set/change the current password

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'* 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