VBA插入ADO参数

Question

我正在ACCESS VBA中工作。我有一个子集，它将给定的集合插入到不同的表中，这取决于当前的元素。我刚认识并希望与这个ADO参数一起工作，因为我对简单的docmd.runsql "insert into..."有问题。问题是有些字符串包含“'”字符，所以我在这些记录中出错。我搜索并找到了ADO参数，但是没有很好的教程，现在我厌倦了无用的错误代码（来自java）。 我的代码片段：

Dim adoCMD As Object 
Set adoCMD = CreateObject("ADODB.Command") 
With adoCMD 
    .ActiveConnection = CurrentProject.Connection 
    .CommandType = adCmdText 
    .parameters.Append .CreateParameter("pKey", adInteger) 
    .parameters.Append .CreateParameter("pTitle", adVarChar, 100) 
    .parameters.Append .CreateParameter("pid", adInteger) 
    .parameters.Append .CreateParameter("pAired", adDate) 
    .parameters.Append .CreateParameter("pmtype", adInteger) 
    .parameters.Append .CreateParameter("pSyear", adSmallInt) 
    .parameters.Append .CreateParameter("pSeason", adInteger) 
    If addDate Then 
     .parameters.Append .CreateParameter("pAdded", adDate) 
    End If 
    For Each elem In ac 
     If elem.aired >= seasonStart And elem.aired <= seasonEnd Then 
      key = Nz(DMax("table_Akey", "table_A"), 0) + 1 
      .parameters("pKey").Value = key 
      .parameters("pTitle").Value = elem.title 
      .parameters("pid").Value = elem.id 
      .parameters("pAired").Value = elem.aired 
      .parameters("pmtype").Value = elem.mtype 
      .parameters("pSyear").Value = syear 
      .parameters("pSeason").Value = season 
      If addDate Then 
       .parameters("pAdded").Value = Date 
       .CommandText = "INSERT INTO table_A(table_Akey,title,id,aired,media,seasonyear,season,added) VALUES(pKey,pTitle,pid,pAired,pmtype,pSyear,pSeason,pAdded);" 
      Else 
       .CommandText = "INSERT INTO table_A(table_Akey,title,id,aired,media,seasonyear,season) VALUES(pKey,pTitle,pid,pAired,pmtype,pSyear,pSeason);" 
      End If 
     Else 
      wCounter = wCounter + 1 
      key = Nz(DMax("wskey", "ws"), 0) + 1 
      .parameters("pKey").Value = key 
      .parameters("pTitle").Value = elem.title 
      .parameters("pid").Value = elem.id 
      .parameters("pAired").Value = elem.aired 
      .parameters("pmtype").Value = elem.mtype 
      .parameters("pSyear").Value = syear 
      .parameters("pSeason").Value = season 
      .CommandText = "INSERT INTO ws(wskey,title,id,aired,media,wsyear,season) VALUES(pKey,pTitle,pid,pAired,pmtype,pSyear,pSeason);" 
     End If 
     .Execute 
    Next elem 
End With 

我得到的错误：运行时错误“3001”参数的错误类型，超出可接受的范围或者是彼此 冲突在该行

.parameters.Append .CreateParameter("pTitle", adVarChar, 100) 

也许整个代码是错误的，我不知道如何正确处理ADO参数，但是你可以看到我想要做的事情。我给这个函数一个集合。我遍历元素并将它们放在正确的表格中，并且还有一个开关（addDae）。

请帮帮我。

Answer 1

您也可以编写一个函数来转义DB单引号。一般来说，单引号是通过加倍而“逃脱”的。这将是这样的：

Function escapeDBquote(s As String) As String 
    Dim sOut As String 
    Dim i As Integer 
    i = 1 
    While (i <= len(s)) 
     If (Mid(s, i, 1) = "'") Then sOut = sOut +"'" 
     sOut = sOut + Mid(s, i, 1) 
     i = i + 1 
    Wend 
    escapeDBquote = sOut 
End Function 

，并调用它像：

Dim szSQL As String 
szSQL = "insert into myTable (sfield1, ..) values ('" + escapeDBquote(myString) + "');" 

（注：没有编译的代码;可能会出现一些错别字）