devart unidac 存储过程 (输入、输出参数)

procedure TForm2.btn1Click(Sender: TObject);

var

  usp: TUniStoredProc;

begin

  usp := TUniStoredProc.Create(nil);

  usp.Connection := UniConnection1;

  usp.StoredProcName := 'GetAImage_ID';

  usp.PrepareSQL();

  usp.ParamByName('pUSER_ID').AsInteger := 1024;

  usp.ParamByName('pProcess').AsInteger := 3;

  usp.ParamByName('pSteps').AsString := '1';

  usp.ParamByName('pBatch_ID').AsInteger := 1;

  usp.ParamByName('pFrom_ID').AsInteger := 1;

  usp.ParamByName('pTo_ID').AsInteger := 1;


  usp.ExecProc;


  Caption := usp.ParamByName('pSteps').AsString;  // 输出参数

  usp.Free;

end;


转载于:https://my.oschina.net/u/582827/blog/464771

评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符 “速评一下”
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页