zoukankan      html  css  js  c++  java
  • mysql + unidac 使用事务例子

    mysql + unidac 使用事务例子

    https://www.cnblogs.com/china1/archive/2004/01/13/3395134.html

    //备注:mysql必须是使用innoDB引擎才支持事务功能,否则以下事务相关代码将失效。//SQL SERVER和Oracle还没试,明天回公司试了再发代码。

    procedure TForm1.btn1Click(Sender: TObject);
    var
      i, j: Integer;
    begin
      UniConnection1.Connect;
      try
        try
          UniTransaction1.Connections[0].StartTransaction;
          UniQuery1.Params.Clear;
          UniQuery1.SQL.Text := 'insert into user (username,password)values(:username, :password)';
          UniQuery1.Params.ParamByName('username').Value := 'eboy';
          UniQuery1.Params.ParamByName('password').Value := '1111';
          UniQuery1.ExecSQL; //如果不使用事务,这条将插入进去
    
          UniQuery1.Params.Clear;
          UniQuery1.SQL.Text := 'insert into user (username,password)values(:username, :password)';
          UniQuery1.Params.ParamByName('username').Value := 'frr';
          UniQuery1.Params.ParamByName('password').Value := '123';
          UniQuery1.ExecSQL; //如果不使用事务,这条将插入进去
    
          UniQuery1.Params.Clear;
          UniQuery1.SQL.Text := 'insert into user (username,password)values(:username, :password)';
          UniQuery1.Params.ParamByName('username').Value := 'lj';
          UniQuery1.Params.ParamByName('password').Value := '880414';
          UniQuery1.ExecSQL; //如果不使用事务,这条将插入进去
    
          UniQuery1.Params.Clear;
          UniQuery1.SQL.Text := 'insert into user (username,password)values(:username, :password)';
          UniQuery1.Params.ParamByName('username').Value := 'lj';
          UniQuery1.Params.ParamByName('password').IsNull; //字段设为not null,所以这里会出错
          UniQuery1.ExecSQL; //开启事务后,上面的三条都将回滚
          
          UniTransaction1.Connections[0].Commit;
    
        except on e: Exception do
          begin
            UniTransaction1.Connections[0].Rollback;
            ShowMessage(e.Message);
          end;
        end;  
      finally
        UniConnection1.Disconnect;
      end;
    end;
  • 相关阅读:
    springmvc常用注解之@Controller和@RequestMapping
    解决nginx负载均衡的session共享问题
    iOS顶部滑动菜单:FDSlideBar 与NinaPagerView
    C#中使用WeiFenLuo.WinFormsUI.Docking.dll实现窗口停靠效果
    [转]C#使用Log4Net记录日志
    ICSharpCode.SharpZipLib 开源压缩库使用示例
    WorldWind源码剖析系列:日志类Log
    [转]反射基础
    WorldWind源码剖析系列:星球球体的加载与渲染
    Vue 前端路由 vue-router
  • 原文地址:https://www.cnblogs.com/fhweixin/p/13743239.html
Copyright © 2011-2022 走看看