Параметры хранимой процедуры

[yasic]

Ребята, подскажите в чем ошибка. Из Delphi не могу запустить ХП c параметрами. Собственно вот объявление ХП

CREATE PROCEDURE GetInteger (@Prop char(50), @Res int OUTPUT)
AS
BEGIN
...................

А вот код:

function TOptions.GetInt(ProcName: string; const AKey: string): Integer;
begin
 with frmMain.ADOStoredProc do begin
   ProcedureName := WideString(ProcName);
    with Parameters do begin
     CreateParameter('@Prop', ftString, pdInput, SizeOf(ShortString), '');
     CreateParameter('@Res', ftInteger, pdOutput, SizeOf(Integer), 0);
    end;
   Parameters.ParamValues['@Prop'] := AKey;
   Prepared := True;
   Active := True; <- Тут ошибка
   ExecProc;
.....................................

Ошибка: CommandText does not return a result set

[Аватар]

Active := True; не нужно

[yasic]

OK. Но процедура отрабатывает только 1 раз. При повторном клике на кнопку сообщение Access Violation на ExecProc. Подскажите, в чем проблема?

Все разобрался. Спасибо.

[yasic]

Подскажите пожалуйста в чем может быть проблема. Хранимая процедура в QA работает без проблем, а в Delphi возвращает не то что надо. Вот ХП:

CREATE PROCEDURE GetInteger (@Prop CHAR(50),  @Res int = 0 OUTPUT)
AS
BEGIN
 SELECT tbl_integer.value_integer
  FROM        tbl_property 
            INNER JOIN
                  tbl_integer ON tbl_property.id_prop = tbl_integer.id_prop
  WHERE    (tbl_property.property = @Prop)
END
GO

В Delphi обращаюсь так:

...............................
with frmMain.ADOStoredProc do begin
   ProcedureName := WideString(ProcName);
   Parameters.Refresh;
     with Parameters do begin
       ParamByName('@Prop').Value := AKey;
     end;
   ExecProc;
 Result :=  Parameters.ParamValues['@Res'];
....................................

[vovk]

Вы обращаетесь к параметру а надо обращаться к полю

 Result := ADOStoredProc1.FieldByName('@Res');