Office中国论坛/Access中国论坛

标题: 请问操作查询默认是否支持事务管理？ [打印本页]

作者: shfcf 时间: 2003-1-8 22:36
标题: 请问操作查询默认是否支持事务管理？
请问操作查询默认是否支持事务管理？
建立了表间关系，用docmd.runsql ，希望代码中实现支持事物管理！

作者: zhengjialon 时间: 2003-1-9 01:12
不支持。

作者: huanghai 时间: 2003-1-9 05:17
我知道用ADO的CONNECTION

作者: shfcf 时间: 2003-1-9 20:48
标题: 问题已经解决，谢谢！（支持事物！）

以下是引用zhengjialon在2003-1-8 17:11:34的发言：
不支持。

Public Function DelUser(UserID As Long) As Boolean
On Error GoTo Err_Handle

  Dim cn As ADODB.Connection
  Dim strSQL As String

  Set cn = CurrentProject.Connection
  cn.BeginTrans  '开始事务管理

  If UserID = 0 Then
strSQL = "DELETE * FROM usysUser" '全部删除！
  Else
strSQL = "DELETE * FROM usysUser WHERE UserID=" & UserID
  End If

  'MsgBox strSQL
  cn.Execute strSQL
  '可以连续执行多条不同语句，测试的时候可以故意设置一个错误的值！验证sql支持事物！

  cn.CommitTrans  '递交事物！！表间关系建立后，自动删除相关的表！比如权限表！

  DelUser = True

Exit_here:
Exit Function

Err_Handle:

If Err.Number <> 0 Then
   MsgBox Err.Number & vbCrLf & Err.Description
   cn.RollbackTrans '回滚！
   DelUser = False
End If

End Function

[此贴子已经被作者于2003-1-9 12:47:44编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)