vb中怎样利用事务处理避免发生死锁
db.BeginTrans
db.Execute "delete from 计费单价"
For i = 1 To .Rows - 1
For j = 1 To .Cols - 1
If .TextMatrix(i, j) > "" Then
db.Execute "Insert Into 计费单价 (介质类型,用户类型,计费单价) values ('" & .TextMatrix(0, j) & "','" & .TextMatrix(i, 0) & "'," & .TextMatrix(i, j) & ")"
db.Execute "Update 用户信息 set 计费单价=" & .TextMatrix(i, j) & " Where 介质类型='" & .TextMatrix(0, j) & "' and 用户类型='" & .TextMatrix(i, 0) & "' " 'xufei write
End If
Next
Next
db.CommitTrans
上面这段代码在多用户的并行处理的网络环境下,是否会发生死锁现象?怎样处理才能避免死锁????