Как связать параметры с объектами команд в ADO с VBScript?
Я работал над ADO VBScript, который должен принимать параметры и включать эти параметры в строку запроса, которая передается в базу данных. Я продолжаю получать ошибки, когда объект набора записей пытается открыть. Если я передаю запрос без параметров, набор записей открывается, и я могу работать с данными. Когда я запускаю скрипт через отладчик, объект команды не показывает значение для объекта параметра. Мне кажется, что мне не хватает чего-то, что связывает объект Command и объект Parameter, но я не знаю что. Вот немного кода VBScript:
...
'Open Text file to collect SQL query string'
Set fso = CreateObject("Scripting.FileSystemObject")
fileName = "C:\SQLFUN\Limits_ADO.sql"
Set tso = fso.OpenTextFile(fileName, FORREADING)
SQL = tso.ReadAll
'Create ADO instance'
connString = "DRIVER={SQL Server};SERVER=myserver;UID=MyName;PWD=notapassword; Database=favoriteDB"
Set connection = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
connection.Open connString
cmd.ActiveConnection = connection
cmd.CommandText = SQL
cmd.CommandType = adCmdText
Set paramTotals = cmd.CreateParameter
With paramTotals
.value = "tot%"
.Name = "Param1"
End With
'The error occurs on the next line'
Set recordset = cmd.Execute
If recordset.EOF then
WScript.Echo "No Data Returned"
Else
Do Until recordset.EOF
WScript.Echo recordset.Fields.Item(0) ' & vbTab & recordset.Fields.Item(1)
recordset.MoveNext
Loop
End If
Используемая мной строка SQL довольно стандартна, за исключением того, что я хочу передать ей параметр. Это что-то вроде этого:
SELECT column1
FROM table1
WHERE column1 IS LIKE ?
Я понимаю, что ADO должен заменить "?" со значением параметра, которое я назначаю в скрипте. Проблема, которую я вижу, состоит в том, что объект Parameter показывает правильное значение, но поле параметра объекта команды является нулевым согласно моему отладчику.