delphi7,access 2007 数据库更新，存在则更新，不存在记录则添加

发布网友发布时间：2022-04-15 01:50

共3个回答

热心网友时间：2022-04-15 03:19

//设置属性
self.ADOQuery1.LockType:=ltBatchOptimistic;

//保存时候用
self.ADOQuery1.UpdateBatch();

热心网友时间：2022-04-15 04:37

Select 记录 if adoquery1.eof then 不存在，则执行添加
else 存在，则执行更新

热心网友时间：2022-04-15 06:12

sSql := 'Select * From A Where FYear = :vYear and Fmonth = :vMonth';
ADOQuery1.SQL.Text := sSql;
ADOQuery1.Parameters.ParamByName('vYear').Value := Edit1.Text;
ADOQuery1.Parameters.ParamByName('vMonth').Value := Edit2.Text;
ADOQuery1.Open;

if ADOQuery1.RecordCount = 0 then
begin
ADOQuery1.Insert;
ADOQuery1.FieldByName('Fvalue').Value := Trim(Edit3.Text);
ADOQuery1.Post;
end
else
begin
ADOQuery1.Edit;
ADOQuery1.FieldByName('Fvalue').Value := Trim(Edit3.Text);
ADOQuery1.Post;
end;