delphi 通过事务插入数据

最新推荐文章于 2025-03-18 09:26:33 发布

转载最新推荐文章于 2025-03-18 09:26:33 发布 · 971 阅读

文章标签：

#delphi

delphi 专栏收录该内容

27 篇文章

订阅专栏

本文展示了一段使用数据库事务进行日志记录的操作示例代码，包括开始事务、执行查询、插入记录并提交或回滚事务的过程。

   orsn1.StartTransaction;
   try
       qry1.Sql.Clear;
       qry1.Sql.Text:=' select * from log ';
       qry1.Open;

       qry1.Insert;
       qry1.FieldByName('Rq').AsDateTime:=StrToDate(FormatDateTime('yyyy-mm-dd',Czrq));
       qry1.FieldByName('User').AsString:=Czy; 
       qry1.Post;
       qry1.ApplyUpdates;

       orsn1.Commit;
       qry1.CommitUpdates;
   except
       orsn1.Rollback;
   end;