mysql - ADO 中的参数化查询 - 将数据添加到数据库中

Question

对 vbscript 有点新手，不是特别喜欢它，但我的客户使用它，所以我对此无能为力!我在使用参数化查询将数据添加到数据库时遇到问题!请救救我!!

到目前为止，已有的代码是

function ecaddupdateDEV (thistable, idvar, vararray)

 for each varname in vararray
    valstring = valstring & ", session(""" & varname & """)"
        thesefields = thesefields & ", " & varname
  next
    thesefields = idvar & thesefields
  valstring = " array( " & ecremovel(valstring, 2) & ")"
  vals = eval(valstring)

set temprs = Server.CreateObject("ADODB.RecordSet")

  if session(idvar) = 0 then
  'response.Write("chid is 0 add new record")
    ' ADD THIS REC
    temprs.open thistable, db,1,3,2
    temprs.AddNew vararray, vals
    ecaddupdateDEV = temprs(idvar)
    temprs.close 

    set temprs = ecquery("select " & idvar  & "  from " & thistable & " order by " & idvar & " desc ")
    ecaddupdateDEV = temprs(idvar) 
  else
    ' UPDATE THIS REC
    selectclause = "select " & thesefields & " from " & thistable & " where " & idvar & " = " & session(idvar)
    temprs.open selectclause, db ,1,3
    temprs.update vararray, vals
    ecaddupdateDEV = temprs(idvar)
    temprs.close
  end if
  set temprs = nothing
end function

出于安全目的，我想对 temprs 变量进行参数化，显然哈哈!我只是不知道该怎么做!我读过的内容让我感到困惑，请帮忙!!非常感谢!

Answer 1

使用命令而不是记录集。下面是一个示例，它可以帮助您继续操作，但您可能需要对其进行调整，因为根据经验，命名参数实际上不起作用，因此您按照它们在 SQL 语句中出现的顺序分配它们的值。

How To Call a Parameterized Query to an Access Database with ADO