VBプログラマ質問スレ（Ver.6.0 まで） part61at TECHVBプログラマ質問スレ（Ver.6.0 まで） part61 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト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 http://toro.2ch.net/test/read.cgi/tech/1351327234/ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch