Delphi ADOQuery1 Update更新数据


本文整理自网络,侵删。

 
  Form1.ADOQuery1.close;
  Form1.ADOQuery1.SQL.Clear;
  Form1.ADOQuery1.SQL.Add('Update 商品基础信息表 Set 商品名称=:A,商品代码=:B,规格=:C,单位=:D,单价=:E,商品说明=:F');
  Form1.ADOQuery1.SQL.Add('Where 商品编号=:G');
  Form1.ADOQuery1.Parameters.ParamByName('A').Value:=Edit1.Text;
  Form1.ADOQuery1.Parameters.ParamByName('B').Value:=Edit2.Text;
  Form1.ADOQuery1.Parameters.ParamByName('C').Value:=Edit3.Text;
  Form1.ADOQuery1.Parameters.ParamByName('D').Value:=Edit4.Text;
  Form1.ADOQuery1.Parameters.ParamByName('E').Value:=StrToInt(Edit5.Text);
  Form1.ADOQuery1.Parameters.ParamByName('F').Value:=Edit6.Text;
  Form1.ADOQuery1.Parameters.ParamByName('G').Value:=Form1.ADOTable1.FieldValues['商品编号'];
  Form1.ADOQuery1.ExecSQL;
  Form1.ADOTable1.Close;
  Form1.ADOTable1.Open;

相关阅读 >>

Delphi线程中关闭程序

Delphi access数据库 主键

Delphi 录音制作 wav 文件

Delphi 获取listbox1的行值

Delphi twebbrowser 响应回车键(ewb响应正常,无需额外代码)

Delphi xe版本 运行cmd命令,并取得输出字符

Delphi 字幕下载单元subdownload.pas

Delphi中in的使用

Delphi 将listview保存为txt

Delphi 限制tedit控件只能输入数字,小数点和负号

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...