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;

推荐分享