Question

delphi客户端调用存储过程返回参数，请问怎么解决

Answer 1

开发环境：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;
ClientDataSet5.Params.ParamByName('Opid').Value :='191025';
ClientDataSet5.Params.ParamByName('doccode').Size := 20;
ClientDataSet5.Execute;//如果不返回结果集，执行此语句
//ClientDataSet5.Open;
Edit2.Text := ClientDataSet5.Params.ParamByName('doccode').Value;
end;

特别注意：参数不能带@，传出值不要加output，传入、传出类型已在CreateParam时指定了，这两坑有点深耗费多天时间查询资料以及摸索。
希望能够对大家有用，少走些弯路，同大家结菩提缘

Answer 2

outputdate在存储过程中要定义为OUTPUT类型的参数.TClientDataSet.CommandText:= ' Declare @OutputData int '#13#10'Excute StoredProc1 @OutputData Output'#13#10'Select @OutputData ';SELECT @outputdate 返回一个结不雅集,如同返回一个表一样,只有一个字段,一笔记录.YES.如不雅存储过程最后一行是select语句(返回结不雅集),方可用OPEN打开.同时返回记录和参数.不然只返回参数....clientdataset.Parambyname('@time1').Value := now;result := clientdataset.Parambyname('@get1').Value; 查看原帖>>