.... try i:=ADOQuery.ExecSQL; memo.Lines.Add(format('%d Rows Changed',[i])); except on E:Exception do Memo.Lines.Add(E.Message); end;
不是很明白你意思!不过我想大致应该是这样:在保存时判断:ADOQuery1.SQL.Text := 'Select ID From Table Where Name=' + QuotedStr(Edit1.Text); ADOQuery1.Open; if not ADOQuery1.IsEmpty then begin ADOQuery2.SQL.Text := 'Insert Into Table ...' ... end else begin ShowMessage('该记录已经存在 '); end;
try
i:=ADOQuery.ExecSQL;
memo.Lines.Add(format('%d Rows Changed',[i]));
except
on E:Exception do Memo.Lines.Add(E.Message);
end;
ADOQuery1.Open;
if not ADOQuery1.IsEmpty then
begin
ADOQuery2.SQL.Text := 'Insert Into Table ...'
...
end
else
begin
ShowMessage('该记录已经存在 ');
end;
插入操作
else
修改操作