在 VBA / MS-ACCESS 中使用备注和文本字段进行参数化 INSERT？

Question

我正在尝试使用 MS-Access 2007 进行简单的参数化插入，但不断收到以下错误 (3708) ADODB.Parameters：

Parameter object is improperly defined. Inconsistent or incomplete information was provided. s'

我有 3 个参数插入到 3 个字段中。它们有以下类型：

• 查询名称：文本 (50)
• db_id：数字（长整数）
• query_text：备忘录

db_id插入得很好，但其他两个文本字段会导致上述错误。

下面是我的简单示例代码：

Sub testz()

    Dim conn As ADODB.Connection
    Set conn = CurrentProject.Connection

    Dim adoCMD As ADODB.Command
    Dim adoRS As ADODB.Recordset
    Dim strSQL As String
    Dim lRecordsAffected As Long

    On Error GoTo Err_Insert

    strSQL = "INSERT INTO queries (query_name, db_id, query_text) VALUES (?, ?, ?)"

    Set adoCMD = New ADODB.Command

    With adoCMD
        Dim test As String
        test = "tetws"
        .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = strSQL

        .Parameters.Append .CreateParameter("x1", adVarChar, adParamInput) ' Doesn't work - MS ACCESS Text field
        .Parameters.Append .CreateParameter("x2", adInteger, adParamInput) ' This works - Numeric field
        .Parameters.Append .CreateParameter("x3", adLongVarChar, adParamInput) ' This doesn't work MS ACCESS Memo field.

        .Parameters("x1").Value = test
        .Parameters("x2").Value = 56
        .Parameters("x3").Value = test

        adoCMD.Execute adExecuteNoRecords
    End With

    If lRecordsAffected = 0 Then
        Debug.Print ("------------------------")
        Debug.Print ("ERROR QUERY not inserted:")
        Debug.Print ("database id: " & id)
        Debug.Print ("query name: " & tblName)
        Debug.Print ("strSQL: " & qryTxt)
        Debug.Print ("------------------------")
    Else

    End If

Exit_Insert:
    Set adoCMD = Nothing
    Set adoRS = Nothing

    Exit Sub

Err_Insert:
    Debug.Print "----------------"
    Debug.Print "BEGIN: Err"
    If err.Number <> 0 Then
        Msg = "Error # " & Str(err.Number) & " was generated by " _
         & err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & err.Description
        'MsgBox Msg, , "Error", err.HelpFile, err.HelpContext
        Debug.Print Msg
    End If
    Resume Exit_Insert


End Sub

以下参考文献指出，数据库类型MEMOs 的字段应具有 的参数类型，adLongVarChar而数据库类型 s 的字段TEXT应具有 的类型adVarChar。

Answer 1

我认为这里有两个问题在起作用：

1. 我非常确定，随着 Jet 4.0（以及随后的 ACE）的发布，所需的类型更改为adVarWCharfor Text、 and 和adLongVarWCharfor Memo（用于多字节字符支持）。

2. 文本参数必须定义（最大）长度。我在你的通话中没有看到这些内容.CreateParameter()。