一个关于数据库更新的问题，请大家帮帮忙吧！

Question

给clientdataset的commandtext付一条SQL更新语句，然后执行Execute，一切正常，数据库也更新了，可是我想如果没有错误，我就显示一个正确的对话框，有错误发生就显示一个出错的对话框，这两条语句应该加在什么地方？怎么判断？

Answer 1

function RunQuery(SQLString:String;CDS:TClientDataSet):Boolean;
begin
  if CDS.Active=True then CDS.Close;
  try
    CDS.CommandText:=SQLString;
    CDS.Execute;
    Result:=True;
  except
    on E: Exception do begin
          ShowMessage('数据存盘错误，错误的信息是：'+E.Message);
      end;
      Result:=False;
    end;
  end;
end;

Answer 2

上面错了，应该这样的：
function RunQuery(SQLString:String;CDS:TClientDataSet):Boolean;
begin
  if CDS.Active=True then CDS.Close;
  try
    CDS.CommandText:=SQLString;
    CDS.Execute;
    Result:=True;
  except
    on E: Exception do begin
          ShowMessage('数据存盘错误，错误的信息是：'+E.Message);
          Result:=False;
    end;
  end;
end;