procedure TForm1.Uadate_DatabaseBtnClick(Sender: Tobject); begin with Update_Query do //使用更新查询 begin Update_Database.StartTransaction; //调用数据库组件的StartTransaction方法开始一个新的事务 try ApplyUpdates; //将更新的数据写到数据库中 Update_Database.Commit; //提交已做的更改 except Update_Database.Rollback; //如提交出现错误,则取消对数据库所做的修改 Raise; //产生一个异常,以防止调用CommitUpdates方法 End; CommitUpdates; //更新成功后,清除缓冲区中的数据 End; End;
使用数据集缓存更新数据库
最新推荐文章于 2019-06-02 15:14:59 发布