有下面的語句:
On error goto Errx
A... '//這里一條語句,如這出錯就跳到Errx
D1.DataConnect.BeginTrans
B... '//這里是要處理的語句,如這出錯就跳到Errx
D1.DataConnect.CommitTrans
Exit sub
Errx:
IF ... Then'//這里是一句如果發現D1.DataConnect正有事務要處理,就返回事務.
'//但怎樣知道D1.DataConnect正好是BeginTrans過程呢?
D1.DataConnect.RollbackTrans '//A...出錯當然不能執行這里啊.
End if
Msgbox "編輯資料失敗!" & Err.Description請問IF...怎樣寫呢?我說的夠清楚了吧.各位大哥請指點..
On error goto Errx
A... '//這里一條語句,如這出錯就跳到Errx
D1.DataConnect.BeginTrans
B... '//這里是要處理的語句,如這出錯就跳到Errx
D1.DataConnect.CommitTrans
Exit sub
Errx:
IF ... Then'//這里是一句如果發現D1.DataConnect正有事務要處理,就返回事務.
'//但怎樣知道D1.DataConnect正好是BeginTrans過程呢?
D1.DataConnect.RollbackTrans '//A...出錯當然不能執行這里啊.
End if
Msgbox "編輯資料失敗!" & Err.Description請問IF...怎樣寫呢?我說的夠清楚了吧.各位大哥請指點..
解决方案 »
- vb 调用 c# tlb 的疑难
- 请高手帮忙解释一下这几段代码
- 发一个自绘菜单DLL库(仅3个函数实现)
- 如何使用PostMessage发送"Shift+空格"
- 用Shell打开VB自己做的EXE,打开窗体时如何让它能显示成模式窗体那样
- 問一下,VsFlexGrid的格線能不能設置不同的顏色
- 请问用shell或ShellExecute去调用外部的.exe程序, 那么怎么得到这个.exe的返回值
- 如何使image1控件在form1中加载时居中啊?急,谢啦啊。
- 怎么让记录指针返回到第几条记录上?
- 高手请帮忙
- 在使用ADO和ListView时的问题请大家帮忙看看 我以前没有过呀
- 求助,关于Word中的Range。
A...
on erro goto Errx
D1.DataConnect.BeginTrans
B...
D1.DataConnect.CommitTrans
Exit subErrx:
D1.DataConnect.RollbackTrans
Errx1:
Msgbox "編輯資料失敗!" & Err.Description
有C...
D...
E...時怎辦,總不可以每條加上一個錯的吧.看看還有什么辦法!^-^等待回答,不勝感謝.
on error goto eErr
a=turecn.begintrans
......
cn.commitransa=false
msgbox "OK"
exit sub
eErr:
if a=true then
cn.rollbacktrans
msgbox "Error"
end if
不就的了反正又不想知道哪儿错了。