delphi使用存储过程

2016-08-22 10:24:24来源:http://kaixinbuliao.blog.51cto.com/2567365/1786924作者:鹅倌人点击


with adoProc do begin ProcedureName := 'HOCRM_SCF1_Update'; Parameters.Clear; Parameters.CreateParameter('P1', ftstring, pdInput, 4000,thexml); // 用户输入参数 Parameters.CreateParameter('SCF01', ftstring, pdOutput, 20, scf01); // 存储过程返回参数 Parameters.CreateParameter('SCF04', ftstring, pdOutput, 20, SCF04); // 存储过程返回参数 Prepared := True; ExecProc; SCF01 := vartostr(Parameters.ParamByName('SCF01').Value) ; SCF04 := vartostr(Parameters.ParamByName('SCF04').Value) ; end;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台