Option Explicit
‘* 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


Posts anterior y posterior:
«
»


Posts Relacionados: