调用 Sub 时不能使用括号

Question

我有一个经典 ASP 页面，其中包含以下代码来尝试参数化查询；

<%
Set cmdEmail = Server.CreateObject("ADODB.Command")
Set rsEmail = Server.CreateObject("ADODB.Recordset")

cmdEmail.CommandText = "SELECT * FROM VWTenantPropertiesResults WHERE ContentID = ?"
cmdEmail.CommandType = 1
cmdEmail.ActiveConnection = MM_dbconn_STRING
cmdEmail.Parameters.Append
cmdEmail.CreateParameter("@ContentID", 3, 1, , request.Form("ContentID"))

rsEmail.Open cmdEmail
%>

但是页面现在报如下错误；

调用 Sub 时不能使用括号 /welcome/default2.asp，第 436 行 cmdEmail.CreateParameter("@ContentID", 3, 1, , request.Form(ContentID)) -------------------------------------------------- ---------------------^

这是 ASP 的一些错误，还是我需要更改尝试参数化查询的方式？

谢谢。

Answer 1

您是否尝试删除这些括号？

cmdEmail.CreateParameter "@ContentID", 3, 1, , Request.Form("ContentID")

据我所知，当你调用一个函数并且不使用它的返回值时，总是会发生这种情况。

更新：似乎真正的问题是换行：

cmdEmail.Parameters.Append _     '' note this "_" character
    cmdEmail.CreateParameter("@ContentID", 3, 1, , Request.Form("ContentID"))

Answer 2

你是不是漏掉了里面的“Set”语句？

即：

<%
Set cmdEmail = Server.CreateObject("ADODB.Command")
Set rsEmail = Server.CreateObject("ADODB.Recordset")

更新：

回应尼尔的评论：

感谢克雷格TP。好像是 创建 ADODB.Command 的实例 和 ADODB.Recordset，但有问题 没有最后 4 行代码。

我认为最后几行代码应该是这样的：

cmdEmail.CommandText = "SELECT * FROM VWTenantPropertiesResults WHERE ContentID = ?"
cmdEmail.CommandType = 1
cmdEmail.ActiveConnection = MM_dbconn_STRING
Set adoParam = cmdEmail.CreateParameter("@ContentID", 3, 1, , request.Form("ContentID"))
adoParam.Type = [the datatype of the parameter]
cmdEmail.Parameters.Append(adoParam)

请注意，.CreateParameter 方法将返回一个 Parameter 对象。您应该将此返回的对象分配给一个变量，然后将该变量用作Command 对象的Parameters 集合上的.Append 方法的参数。

查看这些链接了解更多信息：

CreateParameter Method (ADO)
Parameters Collection (ADO)
Append Method (ADO)

请注意标题为“备注参数集合”的部分，其中指出：

您必须设置一个类型的属性 附加前的参数对象 到参数集合。

Parameter 对象的.Type 属性从DataTypeEnum 枚举中取一个值来指定参数的数据类型。将我上面代码的[the datatype of the parameter]位替换为相关的数据类型枚举值。

更新 2：

抱歉，没有注意到问题标题文字发生了变化！

啊..老经典“调用 Sub 时不能使用括号”错误，嗯？

好吧，这里解释一下：

Cannot use parentheses when calling a Sub

简而言之：

你调用了一个没有 调用语句，但使用了括号 ()。调用子程序时没有 Call 语句，不要使用 括号。

要纠正这个错误：

• 从子例程调用中删除括号。
• 改为使用 Call 语句调用子例程。

还有一篇 Eric Lippert 的博客文章解决了这个常见错误：

What do you mean "cannot use parentheses?"

Answer 3

set cmdEmail = Server.CreateObject("ADODB.Command")

尝试放置一些调试语句来检查它是否正在创建ADODB.Command 的实例。

例如

If (cmdEmail is Nothing) Then
   Response.Write("could not create the instance")
Else
   Response.Write("created the instance")
End If

另外，删除With 块，看看是否有什么不同

dim paramContentID

cmdEmail.CommandText = "SELECT * FROM VWTenantPropertiesResults WHERE ContentID = ?"
cmdEmail.CommandType = 1
cmdEmail.ActiveConnection = MM_dbconn_STRING

set paramContentID = cmdEmail.CreateParameter("@ContentID", 3, 1, , request.Form("ContentID"))
cmdEmail.Parameters.Append paramContentID