ClientDataSet执行带参数的存储过程

写作日期：2019-10-28 作者：习践无界

---

开发环境：Delphi XE 10.1 Update 2

服务器：FDConnection1–>FDQuery1–>DataSetProvider1
客户端：SQLConnection1–>DSProviderConnection1–>ClientDataSet5

---

procedure TFrame01_Frame.Button3Click(Sender: TObject);
begin

ClientDataSet5.Close;
// FormID、Opid是传入值，doccode是传出值 注意参数不能带@，传出值不要加output，传入、传出类型已在CreateParam时指定了
ClientDataSet5.CommandText := ’ Execute _sysP_NewDocCode :FormID,:Opid,:doccode ';
ClientDataSet5.Params.Clear; ClientDataSet5.Params.CreateParam(ftString,‘FormID’,ptInput);
ClientDataSet5.Params.CreateParam(ftString,‘Opid’,ptInput);
ClientDataSet5.Params.CreateParam(ftString,‘doccode’,ptOutput);
ClientDataSet5.Params.ParamByName(‘FormID’).Size := 30;
ClientDataSet5.Params.ParamByName(‘FormID’).Value :=‘Sale2002’;
ClientDataSet5.Params.ParamByName(‘Opid’).Size := 20;