- Код: Выделить всё
Create Proc get_kurs_val (
@ccy char(3),
@ddate datetime,
@kurs decimal(13,9) Output)
Нужно в коде на VB получить значение @kurs
Пробую через Command:
- Код: Выделить всё
Set adoCmd = New ADODB.Command
Set adoCmd.ActiveConnection = cnSybr
adoCmd.CommandText = "get_kurs_val"
adoCmd.CommandType = adCmdStoredProc
sParamName = "ccy"
Set adoParam = adoCmd.CreateParameter(sParamName, adChar, adParamInput)
adoCmd.Parameters.Append adoParam
adoCmd.Parameters(sParamName).Value = "EUR"
sParamName = "ddate"
Set adoParam = adoCmd.CreateParameter(sParamName, adDBDate, adParamInput)
adoCmd.Parameters.Append adoParam
adoCmd.Parameters(sParamName).Value = "2005-08-31"
sParamName = "kurs"
Set adoParam = adoCmd.CreateParameter(sParamName, adDecimal, adParamOutput)
adoCmd.Parameters.Append adoParam
adoCmd.Execute
Temp = adoCmd.Parameters("kurs").Value
Но на аппенде первого же параметра бъет ошибку 3780:
Parameter object is improperly defined. Inconsistent or incomplete information was provided.
Что я делаю неправильно? Какой параметр (как) нужно указывать?
P.S. Через Command раньше не работал, прошу сильно не пинать.