Dim foxCon As Connection = Connections("DB") '狐表本地的数据库源
Dim oleCon As new System.Data.OleDb.OleDbConnection() '创建新的OleDB连接对象
oleCon.ConnectionString = foxCon.ConnectionString '设置连接字符串
Dim trans As System.Data.OleDb.OleDbTransaction '创建一个事务对象准备,注意不能new,因为是Null
Dim oleCmd As new System.Data.OleDb.OleDbCommand '创建一个SQL执行器
oleCmd.Connection = oleCon '把Sql执行器与数据库连接绑定
Try
oleCon.Open() '启动数据库连接
trans = oleCon.BeginTransaction() '启动事务,并返回这个事务对象
oleCmd.Transaction = trans '把SQL执行器与事务绑定
'业务代码---
oleCmd.CommandText = "Insert Into workinfo (ID,Name) Values(?,?)"
oleCmd.Parameters.Clear '非常重要
oleCmd.Parameters.Add("@ID","111")
oleCmd.Parameters.Add("@Name","Test1")
oleCmd.ExecuteNonQuery
oleCmd.CommandText = "Insert Into workinfo (ID,Name2) Values(?,?)"
oleCmd.Parameters.Clear '非常重要
oleCmd.Parameters.Add("@ID","222")
oleCmd.Parameters.Add("@Name","Test2")
oleCmd.ExecuteNonQuery
'业务代码---
trans.Commit() '提交事务
Catch ex As Exception '如果出错
trans.Rollback() '回滚事务,撤销所有操作
MessageBox.show(ex.ToString())
Finally
oleCon.Close()
End Try