TADOQuery通過存儲過程傳遞參數的一種方式

easyboot

于 2013-04-02 11:59:26 发布

阅读量797

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 操作Sql Server

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/8750704

Delphi 操作Sql Server 专栏收录该内容

3 篇文章

订阅专栏

    with DMsql.qry do
    begin
      Close;
      SQL.Clear;
      SQL.Add(' exec Insert_Equipment ' +
        ' :EquipmentID,:PanelID,:PicFileName');
      Parameters.ParamByName('EquipmentID').Value := AIData.EquipmentID;
      Parameters.ParamByName('PanelID').Value := AIData.PanelID;
      Parameters.ParamByName('PicFileName').Value := PicFileName;
      ExecSQL;
    end;