VBプログラマ質問スレ（Ver.6.0 まで） part61

VBプログラマ質問スレ（Ver.6.0 まで） part61 at TECH

1:デフォルトの名無しさん
13/02/01 21:20:49.96
　　　　　　　＿＿＿_
　　　　／　　　　　＼　　　　
　　　　／　　⌒　　⌒ ＼　　論破くん↓必死だなー
　　　／　　（●）　（●）＼　　　　
　　 |　　､"　ﾞ)（__人__）"　　）　　　 _＿＿＿＿＿＿＿＿＿_
　　　＼　　　｡｀ ⌒ﾟ:j´　,／　jﾞ~~| | |　　　　　　　　　　　　　|
＿＿／　　　　　　　　　　＼　 |_＿| | |　　　　　　　　　　　　　|
| |　/　　 ,　　　　　　　＼ｎ||　 | |　　　　　　　　　　　　　|
| | /　　 /　　　　　　　　　r.　（こ） | |　　　　　　　　　　　　　|
| | |　⌒ ーnｎｎ　　　　|＼ (⊆ｿ .|_|_＿＿＿＿_＿＿＿＿_|
￣＼＿_､("二）￣￣￣￣￣ｌ二二ｌ二二　＿|_|＿_|＿
構造化例外処理ならこうだろ。 AがFinally、BがCatch、Cが処理
Sub A()
　　Dim objConnection As ADODB.connection
　　Set objConnection = New ADODB.connection
　　Call B(objConnection)
　　If objConnection.State <> adStateClosed Then
　　　　Call objConnection.Close
　　End If
End Sub
Sub B(ByVal objConnection As ADODB.connection)
　　On Error Resume Next
　　Call C(objConnection)
　　If Err.Number <> 0 Then
　　　　Debug.Print Err.Description
　　End If
End Sub
Sub C(ByVal objConnection As ADODB.connection)
　　Call objConnection.Open
End Sub
前スレ VBプログラマ質問スレ（Ver.6.0 まで） part60
ｽﾚﾘﾝｸ(tech板)

レスを読む