mysql + unidac 使用事务例子
来源:互联网 发布:携程大数据分析笔试题 编辑:程序博客网 时间:2024/06/06 07:47
//备注: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;
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;
0 0
- mysql + unidac 使用事务例子
- mysql + unidac 使用事务例子
- 使用unidac
- Unidac使用心得
- UniDAC使用日记
- UniDAC使用日记
- jdbc事务使用例子
- UniDAC
- UniDAC
- UniDAC
- UniDAC
- UniDac 使用日记(转)
- uniDAC的安装和使用
- uniDAC的安装和使用
- mysql Innodb 事务使用
- Mysql事务使用总结
- Mysql事务使用总结
- 什么时候使用mysql事务
- 黑马程序员_集合体系(二)
- Objective-c开发教程--如何在项目中使用AFNetworking
- [黑马程序员]——Java线程
- 正则表达式
- R语言ggplot2包之画折线图
- mysql + unidac 使用事务例子
- DBUtils – BeanProcessor扩展,支持自定义字段映射
- Exe4j破解_Exe4j注册码
- 黑马程序员——Java基础---Collections,Arrays工具类以及其他对象
- 十进制转二进制c代码
- Unity报错`NUnit' could not be found解决
- hdu 5281 Senior's Gun
- 多线程-GCD
- linux下安装sougou输入法