C# と VB.NET の質問掲示板

■No13607 (NORTH さん) に返信
> 販売管理システムの起動で最初ログイン画面を表示するのですが、２０回に１回ぐらい
> の割合で接続エラーになります。
> プログラムは下記の通りです。
> 原因はたまたまタイミングが悪いからなんでしょうか？
> LAN環境はVPN接続（ルータ有）と社内LAN（ルータ無し）の２種類ですが
> VPN接続環境で時々エラーが出るようです。
> 原因がわかれば教えて下さい。

例外の中身を見てみないとなんとも・・・。

> また、わからない場合は２回程リトライしようと思っているのですが、下記の
> Openメッソッドでループ処理をしたいのですが、書き方がわかりません。

        Const RETRY_MAX As Integer = 2

        Dim open As Boolean = False
        Dim retry As Integer = 0

        While ((Not (open)) And (retry < RETRY_MAX))
            Try
                '   処理が成功したらフラグを立てる(ここではリトライさせるのでコメントアウトしておきます。）
                '   open = True
                '   サンプルなので強制的に例外を発生させます。
                Throw New ApplicationException("サンプル例外")

            Catch ex As Exception
                If (retry < RETRY_MAX) Then
                    retry += 1
                    '   リトライ時にしておきたい処理
                    MessageBox.Show(String.Format("{0}回目", retry))
                Else
                    '   リトライ回数を超えた時にしておきたい処理
                End If
            End Try
        End While

■No13627 (NORTH さん) に返信
> 原因についてなんですが、例外の中身とは、何を調べればいいんでしょうか？
> 教えて下さい。


例外についての大まかなことはここら辺をみるとよろしいかと思います。

[例外の処理とスロー]
http://msdn2.microsoft.com/ja-jp/library/5b2yeyab(VS.80).aspx

で、私の言っている例外の中身というのは、

[Exception クラスとプロパティ]
http://msdn2.microsoft.com/ja-jp/library/5whzhsd2(VS.80).aspx

を見て頂くとご理解いただけるかな、と思いますが、先に提示しているコードで言いますと

Catch ex As Exception

で、例外をExceptionクラスとして受けていますので、
このexの実体の型（という表現が正しいのかな？）の判別をする必要があるでしょう。
例えば、
[SqlException クラス (System.Data.SqlClient)]
http://msdn2.microsoft.com/ja-jp/library/system.data.sqlclient.sqlexception(VS.80).aspx
なんかがexの実体だったりするわけです。
実際の型がわかると、その例外のプロパティ(Message、StackTrace、InnerExceptionなど)から
もう少し例外の内容がわかるので・・・これを「中身」と言いました。

で、Catchブロックは複数かけるので、想定出来る例外と想定してない例外（微妙な表現ですが）の処理を
わけておくことも出来ます。

        Try
            'Throw New ApplicationException("例外発生1！！！")
            Throw New ArgumentException("例外発生2！！！")
        Catch ea As ApplicationException
            MessageBox.Show(String.Format("{0}が発生しました。Message({1})", ea.GetType().Name, ea.Message))
        Catch ex As Exception
            MessageBox.Show(String.Format("{0}が発生しました。Message({1})", ex.GetType().Name, ex.Message))
        End Try

ですので、先の例外の中身がわかっていて、接続エラー時の例外の型やプロパティ値が特定出来るのであれば
それだけをリトライ対象にする・・・なんてことも出来ますね。