delphi 中如何调用sql 存储过程

最好有流程和例子

答案：使用TADOStoredProc组件,可以，给你举个例子好了

 with  ADOStoredProc1 do
     begin
       Close;
       Parameters.Clear;
       ProcedureName:='SaveDate_dbzsm'; //存储过程名称
       Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数（数字代表长度）
       Parameters.CreateParameter('v_ddid', ftString, pdInput, 20,fgUnassigned);  //传入参数
       Parameters.CreateParameter('v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
       Parameters.CreateParameter('v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
   //为参数赋值
       Parameters[0].Value :=trim(edit1.text);
       Parameters[1].Value := trim(edit2.text);
       Parameters[2].Value := trim(edit2.text);
      Parameters[3].Value := ' ';
  
        ExecProc;
       reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
      reuturn就是返回值，你可以放到stringgrid 里面。

也可以用adoquery 连接存储过程。

 with ADOQuery1 do
     begin
    Close;
    SQL.Clear;
    SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
    Parameters.ParamByName('wlid').Value :=trim(edit1.text);
    Parameters.ParamByName('ddid').Value :=trim(edit2.text);
    Parameters.ParamByName('tm').Value := trim(edit3.text);
      Parameters.ParamByName('returnstr').Value := ' ';
    Open;
    reuturn:= Parameters.ParamByName('returnstr').Value;
  end; 

http://zhidao.zhaoxi.net/question/316727588.html

其他：最好用
adoStoredProc.close;
adoStoredProc.ProcedureName := '过程名';
adoStoredProc.Parameters.refresh;
adoStoredProc.Parameters.ParamByName('过程变量1').value := 变量1;
adoStoredProc.Parameters.ParamByName('过程变量2').value := 变量2;
try
  adoStoredProc.execproc;
except
  //执行过程失败处理代码；
end;
if adoStoredProc.parameters[0].value <> 0 then
begin
  //存储过程返回值错误 处理代码
end;

不要用
   Parameters[1].Value 这种形式 有如果存储过程增加参数 改起来不直观。 Parameters[1].Value 这种形式 有如果存储过程增加参数 改起来不直观。 

采用这种方式调试相对麻烦，但有利防注

上一个：delphi自定义过程和自定义函数有什么区别
下一个：Delphi 关于创建dll文件的问题