CreateParameter в VBScript

Question

Я получаю ошибку при выполнении следующего кода. Ниже приведен код

oConn.Open strConnectionString, strUserName, strPassword 
Set objCommand = CreateObject("ADODB.Command") 
'Create and populate the paramaters collection 
With objCommand 
    .ActiveConnection = oConn 
    .CommandText = "my sp" 
    .CommandType = 4 
    .Parameters.Append .CreateParameter("my parameter", adVarChar, adParamInput, 20, "my value") 
    Set objRecordset = .Execute 
End With 

Ошибка при добавлении параметра.

Answer 1

В обычном VBScript константы объявления * не определены. Доказательства:

>> Set c = CreateObject("ADODB.Command") 
>> c.CreateParameter "my parameter", adVarChar, adParamInput, 20, "my value" 
>> 
Error Number:  3001 
Error Description: Die Argumente sind vom falschen Typ, liegen außerhalb des Gültigkeitsbereiches oder sind miteinander unvereinbar. 
>> adVarChar = 200 
>> adParamInput = 1 
>> c.CreateParameter "my parameter", adVarChar, adParamInput, 20, "my value" 
>> 
>> (No news are good news) 

Определите их.

see also