如果自己写事务,参考
Dim str_oleConn As String = Connections("test").ConnectionString
Dim ole_conn As New System.Data.OleDb.OleDbConnection(str_oleConn)
ole_conn.Open()
Dim command As System.Data.OleDb.OleDbCommand = ole_conn.CreateCommand()
Dim transaction As System.Data.OleDb.OleDbTransaction
transaction = ole_conn.BeginTransaction(System.Data.IsolationLevel.ReadCommitted)
command.Connection = ole_conn
command.Transaction = transaction
Try
command.CommandText = "update kkk set 第一列='123'"
command.ExecuteNonQuery()
msgbox("成功")
transaction.Commit()
Catch ex As Exception
MessageBox.Show(ex.Message)
transaction.Rollback()
Finally
ole_conn.Close()
End Try