师傅怎么写事务呀..可以上传个例子给我么?谢谢!

'-----------------------备份数据库---------------------------
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


----Cn Is a Connection object
Cn.BeginTransaction '---开始一个事务

'你的程序体

If err.number=0 then
Cn.CommitTransaction '---提交事务
else
Cn.RollbackTransaction
end if

是這類事務麼?

嗯...这样看不明白咯..可否上传个VB源码来看看

我看這些肯定是在網上找的````你還是搜下例子```