如何使用 VBScript 将字符串参数传递给 ADO 中的命令对象

Question

我有一个函数 returns 是 SQL 查询的一部分。

Function GetYQConditions(command, startYQ, endYQ)
    Dim strSql

    strSql = " AND yq>=? and yq<=?"

    command.Parameters.Append(command.CreateParameter(undefined, 200, 1, 61, startYQ))
    command.Parameters.Append(command.CreateParameter(undefined, 200, 1, 61, endYQ))

    GetYQConditions = strSql    
End Function

问题：问题是yq>=? and yq<=?需要将参数作为字符串传递。

预期： yq>='startYQ' and yq<='endYQ'

问题：如何将参数作为字符串值传递？那是 paramter 在单个 qoute `` 中？还是我完全走错了方向？

Answer 1

我想你想做的是：

Function GetYQConditions(command, startYQ, endYQ)
    Dim strSql

    strSql = " AND yq>=? and yq<=?"
    startYQ = "'" & startYQ & "'"
    endYQ = "'" & endYQ & "'"

    command.Parameters.Append(command.CreateParameter(undefined, 200, 1, 61, startYQ))
    command.Parameters.Append(command.CreateParameter(undefined, 200, 1, 61, endYQ))

    GetYQConditions = strSql    
End Function

如何使用 VBScript 将字符串参数传递给 ADO 中的命令对象

How to pass String Parameters to Command objects in ADO with VBScript

vbscript

ado

query-parameters