with adoProc do
? begin
??? ProcedureName := 'HOCRM_SCF1_Update';
??? Parameters.Clear;
??? Parameters.CreateParameter('P1', ftstring, pdInput, 4000,thexml); //?? 用戶輸入?yún)?shù)
??? Parameters.CreateParameter('SCF01', ftstring, pdOutput, 20, scf01);????? // 存儲(chǔ)過程返回參數(shù)
??? Parameters.CreateParameter('SCF04', ftstring, pdOutput, 20, SCF04);????? // 存儲(chǔ)過程返回參數(shù)
??? Prepared := True;
??? ExecProc;
??? SCF01 := vartostr(Parameters.ParamByName('SCF01').Value) ;
??? SCF04 := vartostr(Parameters.ParamByName('SCF04').Value) ;
? end;

------------------------------------------------------------------------

? with sp1 do
? begin
??? Close;
??? ProcedureName:='sp_zyyf_saveoneffckd2';
??? Parameters.Refresh;
??? Parameters.ParamByName('@kh').Value:=kh;
??? Parameters.ParamByName('@zyhstr').Value:=zyhstr;
??? Parameters.ParamByName('@rq').Value:=rq;
??? Parameters.ParamByName('@czbh').Value:=czbh;
??? Parameters.ParamByName('@cxsc').Value:=cxsc;
??? Parameters.ParamByName('@pzh').Value:=pzh;
??? ExecProc;
??? pzh:= Parameters.ParamByName('@pzh').Value;
? end;

本文轉(zhuǎn)自鵝倌51CTO博客，原文鏈接：http://blog.51cto.com/kaixinbuliao/1786924?，如需轉(zhuǎn)載請(qǐng)自行聯(lián)系原作者

總結(jié)

以上是生活随笔為你收集整理的delphi使用存储过程的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。