Delphi中客户端获取数据库更新信息（更新条数）

if not  exists  ( select  1  from  tb where xxx=‘XXX‘)  //不存在，则插入数据
    begin
      insert into  tb(xxx) values(‘XXX‘)  //这里自己定义，插入或更新都可以 
    end 

select top 1 @@rowcount as RC             //关键是这个语句，读取更新的信息

with cds do begin

  commandtext:=sql ;//这个sql就是上面 的sql语句
  open;                    //注意，这里一定要用open，不用Exec


  showmessage(inttostr(cds.fieldbyname(‘RC‘).asinteger));

end;