zoukankan      html  css  js  c++  java
  • (转载)delphi 中如何调用sql 存储过程

    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.baidu.com/question/316727588.html

  • 相关阅读:
    内存碎片
    内核对象之异步IO请求完成时调用一个函数
    线程池之在内核对象触发时调用一个对象
    线程池之每隔一段时间调用一个函数
    线程池
    logging模块
    装饰器
    django 2.0 url匹配
    django models 文件夹
    转载
  • 原文地址:https://www.cnblogs.com/angelbd/p/3373112.html
Copyright © 2011-2022 走看看