Правильный способ повторного использования ADODB.Command

Question

Каков правильный способ вызова sproc внутри цикла?

Если я приду в чем-то вроде этого:

Connection = CreateObject("ADODB.Connection") 
DO UNTIL RS.EOF 
    SET cmd = Server.CreateObject ("ADODB.Command") 
    cmd.ActiveConnection = Connection 
    cmd.CommandText = "spMySproc" 
    cmd.CommandType = adCmdStoredProc 
    cmd.Parameters.Append cmd.CreateParameter ("@p1",adInteger,adParamInput, ,RS("Val1")) 
    cmd.Parameters.Append cmd.CreateParameter ("@p2",adInteger,adParamInput, ,RS("Val2")) 
    cmd.Execute 
    SET cmd = nothing 
LOOP 

Тогда на втором и последующих итераций цикла я получаю сообщение об ошибке

Процедура или функция spMySproc указавшего слишком много аргументов.

Answer 1

Вам необходимо отделить подготовку команды и цикл. Затем вы можете использовать коллекцию Parameters несколько раз для выполнения команды.

'preparing command 
Set cmd = CreateObject ("ADODB.Command") 
    cmd.ActiveConnection = Connection 
    cmd.CommandText = "spMySproc" 
    cmd.CommandType = adCmdStoredProc 
    cmd.Parameters.Append cmd.CreateParameter("@p1", adInteger, adParamInput,,0) '0 as placeholder 
    cmd.Parameters.Append cmd.CreateParameter("@p2", adInteger, adParamInput,,0) '0 as placeholder 

Do Until Rs.Eof 
    cmd.Parameters("@p1").Value = Rs("Val1").Value 
    cmd.Parameters("@p2").Value = Rs("Val2").Value 
    cmd.Execute 
    Rs.MoveNext 
Loop