Выполнение хранимой процедуры с output параметром

[Иванчо]

научите, пожалуйста вызывать хранимую процедуру
пробовал так, а возвращает ошибку, параметр - nil

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOCommand1.CommandText := 'EXEC dbo.i :prid, :val';  // val  объявлен output
  ADOCommand1.Parameters.Clear;
  ADOCommand1.Parameters.CreateParameter('prid', ftInteger, pdInput, 8, 7 );
  ADOCommand1.Parameters.CreateParameter('val', ftFloat, pdOutput, 10, 7 );
  ADOCommand1.Execute;
  Label1.Caption := FloatToStr(ADOCommand1.Parameters.ParamByName('val').Value); //???
end;

[CruiserD]

Попробуй связку TADOStoredProc с TADOConnection
у меня работает так:

Procedure Procedure1(P1: Integer; Var P2: Integer);
Begin
   With TADOStoredProc1 Do
     Begin
        ProcedureName:='PROC1';
        Parameters.Clear;
        Parameters.CreateParameter('PARAM1',ftInteger,pdInput,10,P1);
        Parameters.CreateParameter('PARAM2',ftInteger,pdOutput,10,P2);
        Prepared:=TRUE;
        ExecProc;
        P2:=Parameters.ParamValues['PARAM2'];
     End;
End;

используй теги для оформления кода. Alex21

[Иванчо]

Работает только для типа данных int, а какой ft... в дельфи указать для переменной decimal(7, 2) в хранимой процедуре

[CruiserD]

decimal(7, 2) это у тебя видимо суммы
я для этих целей всегда использовал в сиквеле тип нумерик(х,у)
в дельфе соответственно ftBCD
Попробуй к десималу применить в дельфе ftBCD

[Иванчо]

научился. используется Currency, ftCurrency.
Спасибо за помощь.

[CruiserD]

ну можно и курренси
гуд лак