2

我正在尝试使用 DDL 语句更改密码，例如：

CurrentProject.Connection.Execute "ALTER USER barney PASSWORD "[]!@#$%^ oldpassword"

是的，这是一个讨厌的密码，但有人尝试过类似的方法。请注意，密码的开头引号不是此处 sql 语法的一部分。我需要类似mysql_real_escape_string()但 VBA 的东西。有什么提示吗？

4

2 回答 2

1

您似乎遇到了一些问题：您无法使用 SQL DDL 创建包含任何这些字符的（可用）密码（注意 Wikipedia 认为这是SQL DCL）。

下面是一些重现测试场景的代码：

  • 创建一个新工作组（在临时文件夹中）
  • 使用工作组创建新数据库
  • 创建一个包含数据的新表
  • 使用字母数字字符创建具有名称、密码和 PID 的新用户
  • 授予用户对表的权限
  • 使用新用户的凭据打开测试连接
  • 测试用户是否可以查询表

发布的代码工作正常。但是，在两个地方（创建用户和打开测试连接时）编辑密码以添加非字母字符（例如引号）会在其中一个地方引发错误。

On Error Resume Next
Kill Environ$("temp") & "\MyDatabase.mdb"
Kill Environ$("temp") & "\MyWorkgroup.mdw"
On Error GoTo 0

' Create workgroup and db
Dim cat 
Set cat = CreateObject("ADOX.Catalog")
With cat
  .Create _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Jet OLEDB:Engine Type=4;" & _
      "Data Source=" & _
      Environ$("temp") & "\MyWorkgroup.mdw;" & _
      "Jet OLEDB:Create System Database=-1"
  .Create _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Jet OLEDB:Engine Type=4;" & _
    "Data Source=" & _
    Environ$("temp") & "\MyDatabase.mdb;" & _
    "Jet OLEDB:System Database=" & _
    Environ$("temp") & "\MyWorkgroup.mdw;"

  ' Add table with data and user with privileges
  With .ActiveConnection
    .Execute "CREATE TABLE Test (data_col INTEGER);"
    .Execute "INSERT INTO Test VALUES (55);"
    .Execute "CREATE USER onedaywhen pwd H3sJaZ9k2m;"  ' <-- edit pwd
    .Execute "GRANT ALL PRIVILEGES ON Test TO onedaywhen;"
  End With
End With

' Test user can connect and SELECT
Dim con 
Set con = CreateObject("ADODB.Connection")
With con
  .ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Jet OLEDB:Engine Type=4;" & _
    "Data Source=" & _
    Environ$("temp") & "\MyDatabase.mdb;" & _
    "Jet OLEDB:System Database=" & _
    Environ$("temp") & "\MyWorkgroup.mdw;" & _
    "User ID=onedaywhen;Password=pwd;"  ' <-- edit pwd
  .Open
  MsgBox .Execute("SELECT * FROM Test;")(0)
End With

由于无法转义“特殊”字符，因此使用 SQL DDL/DCL 似乎无法完成，我认为这意味着根本无法使用 ADO 完成。

那么，有人有替代方案，例如 DAO 吗？

于 2009-10-15T10:53:43.510 回答
0

您应该能够使用 Chr(34) 连接字符串：

  Dim strPassword As String

  strPassword = Chr(34) & "[]!@#$%^"
  CurrentProject.Connection.Execute "ALTER USER barney PASSWORD " & strPassword & " oldpassword"

这是做这种事情的通常方法。但是，这可能无法解决问题，因为用户级安全 UI 可能不接受引号（我还没有尝试过）。

于 2009-10-15T03:37:37.477 回答