Delphi ADOQuery1 Update更新数据

最新推荐文章于 2024-05-30 09:20:17 发布

tangfuyou

最新推荐文章于 2024-05-30 09:20:17 发布

阅读量440

点赞数

文章标签：数据库

本文链接：https://blog.csdn.net/tangfuyou/article/details/131873630

版权

这种方式也不错

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;