Office中国论坛/Access中国论坛

标题: Access中事务处理问题[已解决] [打印本页]

作者: 3828688 时间: 2008-3-6 09:15
标题: Access中事务处理问题[已解决]
本人从其它网站下载了下面关于Access中事务处理的例子,但执行时在红色语句处提示编译错误,要求对象,不知道是否要先引用点什么?或者Access2000不支持事务回滚?

Public Sub BeginTransX()

Dim cnn1 As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Dim strCnn As String
Dim strTitle As String
Dim strMessage As String
' 打开连接。
Set strcnn = currentproject.connection
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
' 打开 Titles 表。
Set rstTitles = New ADODB.Recordset
rstTitles.CursorType = adOpenDynamic
rstTitles.LockType = adLockPessimistic
rstTitles.Open "titles", cnn1, , , adCmdTable

rstTitles.MoveFirst
'开始事务
cnn1.BeginTrans
' 在记录集中循环并询问是否想要更改指定标题的类型。
Do Until rstTitles.EOF
   If Trim(rstTitles!Type) = "psychology" Then
      strTitle = rstTitles!Title
      strMessage = "Title: " & strTitle & vbCr & _
      "Change type to self help?"
      ' 更改指定雇员的标题。
      If MsgBox(strMessage, vbYesNo) = vbYes Then
         rstTitles!Type = "self_help"
         rstTitles.Update
      End If
   End If
      rstTitles.MoveNext
Loop
' 询问用户是否想提交以上所做的全部更改。
If MsgBox("Save all changes?", vbYesNo) = vbYes Then
   '如果回答是，就结束事务
   cnn1.CommitTrans
Else
   '如果回答否，就回滚事务，取消所有操作
   cnn1.RollbackTrans
End If
rstTitles.Close
cnn1.Close
End Sub

[ 本帖最后由 3828688 于 2008-3-19 14:47 编辑 ]

作者: tmtony 时间: 2008-3-6 09:33
Set strcnn = currentproject.connection  这句语法错了

strCnn是字符串而currentproject.connection  是连接
应该是
Set  cnn1= currentproject.connection

作者: kokolc 时间: 2008-3-6 10:07
关注中.........

作者: 3828688 时间: 2008-3-6 10:18
将:
Set strcnn = currentproject.connection
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
1改为:
Set cnn1 = currentproject.connection
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
2改为:
Set cnn1 = New ADODB.Connection
cnn1.Open currentproject.connection
都是不行

作者: tmtony 时间: 2008-3-6 11:03
Set cnn1 = currentproject.connection
' Set cnn1 = New ADODB.Connection '不需要
' cnn1.Open strCnn '不需要

作者: 3828688 时间: 2008-3-6 11:16

问题解决,非常感谢!

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