通过编程设置数据库密码 按以下语法使用关键字 ALTER DATABASE,您可以编程设置、修改或删除数据库密码。
ALTER DATABASE PASSWORD NewPassword OldPassword
在这个语句中,密码由方括号 ([]) 分隔的 String 值表示,但下述情况例外。
第一次设置数据库密码时,使用 NULL 关键字作为 ALTER DATABASE 语句中的 OldPassword 参数。要删除数据库密码,请使用 NULL 关键字作为 ALTER DATABASE 语句的 NewPassword 参数。在这些情况下,关键字 NULL 不应出现在方框中。
在使用以下过程之前,可能需要设置对 Microsoft ADO Ext 2.5 for DDL and Security 库的引用(如果尚未设置):
在 Visual Basic 编辑器中,指向“工具”菜单中的“引用”。将显示“引用”对话框。 选中 Microsoft ADO Ext 2.5 for DDL and Security 复选框。 请看以下第一次设置密码时的代码:
Private Function CreateDBPassword(ByVal Password As String, _ ByVal Path As String) As Boolean Dim objConn as ADODB.Connection Dim strAlterPassword as String On Error GoTo CreateDBPassword_Err ' 创建 SQL 串以初始化一个数据库密码。 strAlterPassword = "ALTER DATABASE PASSWORD [Password] NULL;"
' 打开不具有安全设置的数据库。 Set objConn = New ADODB.Connection With objConn .Mode = adModeShareExclusive .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=Path;"
' 执行 SQL 语句对数据库进行安全设置。 .Execute (strAlterPassword) End With
' 清除对象。 objConn.Close Set objConn = Nothing
' 如果成功,返回 true。 CreateDBPassword = True
CreateDBPassword_Err: Msgbox Err.Number & ":" & Err.Description CreateDBPassword = False End Function
在使用以下过程之前,可能需要设置对 Microsoft ADO Ext 2.5 for DDL and Security 库的引用(如果尚未设置):
在 Visual Basic 编辑器中,指向“工具”菜单中的“引用”。将显示“引用”对话框。 选中 Microsoft ADO Ext 2.5 for DDL and Security 复选框。 请看以下过程:
Private Function ChangeDBPassword(ByVal OldPassword As String, _ ByVal NewPassword As String, ByVal Path As String) As Boolean Dim objConn as ADODB.Connection Dim strAlterPassword as String
评论