主题：BeginTransaction怎么设置隔离等级？

如果自己写事务，参考

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

如果是设置，你可以用sqlcommand设置，如

cmd.CommandText = "SET transaction isolation level snapshot"

http://www.foxtable.com/webhelp/scr/0696.htm

sqlconnection改成这样

Dim str_oleConn As String = "server=voyo;uid=sa;pwd=hailun.;database=test"
Dim ole_conn As New System.Data.SqlClient.sqlConnection(str_oleConn)
ole_conn.Open()
Dim command  = ole_conn.CreateCommand()
Dim transaction As System.Data.SqlClient.sqlTransaction
transaction = ole_conn.BeginTransaction(System.Data.IsolationLevel.SNAPSHOT)
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