1

我正在尝试通过 Adodb.Command 将命名参数与以下查询一起使用，但没有运气。

Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2) And col3 = @param1

我使用类似的代码。

Dim cmd
Set cmd = Server.CreateObject("Adodb.Command")
cmd.NamedParameters = True
cmd.CommandType = adCmdText
cmd.CommandText = "Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2) And col3 = @param1"
cmd.Parameters.Append cmd.CreateParameter("@param1", adVarchar, adParamInput, 20, "some text 1")
cmd.Parameters.Append cmd.CreateParameter("@param2", adVarchar, adParamInput, 20, "some text 2")
Set cmd.ActiveConnection = cn
Dim rs
Set rs = cmd.Execute

问题是，这会导致 RDBMS 端出现错误。

Microsoft OLE DB Provider for SQL Server error '80040e14' 

Must declare the scalar variable "@param1".

如果查询是存储过程调用，则没有任何问题。所以，我猜命名参数只影响调用存储过程的命令对象。当我使用 SQL Server Profiler 跟踪查询时，我看到只运行了以下查询（请注意，没有参数声明，没有值分配）。

SQL:BatchStarting   Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2)
SQL:BatchCompleted  Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2)

但是我需要在本机变化查询上执行此操作。我该怎么做，没有字符串连接等的最佳实践是什么。我不想准备带有问号的查询，我不喜欢按顺序传递参数（它必须带有问号且没有命名参数）并多次。任何帮助将不胜感激。

误解更新：我正在寻找一个不依赖于数据库的通用解决方案。

4

1 回答 1

8

您不能在 OLE DB 中将命名参数与即席查询一起使用。如果您使用的是 SQL Server，则可以执行以下操作：

Dim sql
sql = ""
sql = sql & "DECLARE @param1 varchar(20) = ?;"
sql = sql & "DECLARE @param2 varchar(20) = ?;"
sql = sql & "Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2) And col3 = @param1;"

' This section is basically the same as in the original question
Dim cmd
Set cmd = Server.CreateObject("Adodb.Command")
cmd.CommandType = adCmdText
cmd.CommandText = sql
cmd.Parameters.Append cmd.CreateParameter("@param1", adVarchar, adParamInput, 20, "some text 1")
cmd.Parameters.Append cmd.CreateParameter("@param2", adVarchar, adParamInput, 20, "some text 2")
Set cmd.ActiveConnection = cn
Dim rs
Set rs = cmd.Execute

您仍然必须在位置上绑定参数，但这样更容易看到正确的顺序，并且您可以在多个位置使用相同的参数。

于 2012-08-03T03:11:50.367 回答