正确使用ADODB.Connection的CurrentProject.Connection？

Question

在Access VBA中，我需要使用参数来插入/更新数据库，所以我开始使用ADODB命令。

要插入的数据库始终是当前数据库，所以我使用CurrentProject.Connection。

如果我试图打开它，它将返回错误3705:当对象打开时，操作是不允许的，而不需要使用conn.Open。

我是否遗漏了一些重要的东西，这些东西将达到连接限制？有没有人能建议一个更好的方法？

Dim sql As String
sql = "INSERT INTO "
sql = sql + "[table]"
sql = sql + "(field1,field2)"
sql = sql + "VALUES (@field1,@field2)"

Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command

With cmd
.ActiveConnection = conn
.CommandType = adCmdText
.CommandText = sql
.Parameters.Append .CreateParameter("@field1", adVarChar, adParamInput, 255, x)
.Parameters.Append .CreateParameter("@field2", adVarChar, adParamInput, 255, y)
.Execute
End With

Answer 1

您对使用DAO持开放态度吗？您可以使用以下命令：

Dim q        As DAO.QueryDef
Dim strSQL   As String

strSQL = "INSERT INTO table1 " & _
         "(City, Province) " & _
         "Values([pCity], [pProvince])"

Set q = CurrentDb.CreateQueryDef("", strSQL)
q.Parameters("pCity") = "Edmonton"
q.Parameters("pProvince") = "Alberta"
q.Execute