如何在vb中使用事务

Question

请问各位如何在vb中使用事务？
谢了！！！

Answer 1

ADO中有相应的事务处理对象,参阅ADO说明

Answer 2

'-----------------------备份数据库---------------------------
Public Function BackupDatabase(ByVal strFilename$) As Boolean
On Error GoTo errExit
    If myCnn.ConnectToServer(False) Then
        Dim strSql$
        
        strSql = "BACKUP DATABASE [Clinique Gzh] to Disk='" & strFilename & "' with init"
        myCnn.Cnn.BeginTrans    'mycnn.cnn是一个连接对象Connection,myCnn是一个类，别在意
        Err.Number = 0
        myCnn.Cnn.Execute strSql
        If Err.Number = 0 Then
            myCnn.Cnn.CommitTrans
            BackupDatabase = True
        End If
        
        myCnn.Disconnect
    End If
    Exit Function
errExit:
    myCnn.Cnn.RollbackTrans
    If Err.Number = -2147217900 Then
        MsgBox "请将数据备份到服务器磁盘，不能备份在本地目录！！！", vbCritical, "错误提示"
    End If
End Function

Answer 3

----Cn Is a Connection object
Cn.BeginTransaction         '---開始一個事務    '你的程序體If err.number=0 then
   Cn.CommitTransaction        '---提交事務
else
   Cn.RollbackTransaction
end if