VB.NETで SQLServerへレコード更新もしくは追加するロジックがあるのですが、エラーがキャッチされるケースでも、無事にデータが挿入・更新されている

Question

トランザクション・ロールバックの概念を持たないつくりを残した先輩がいます。以下コードにあるとおり、本日、

エラーがキャッチされ、メールが配信されました。

つくりが悪く、キャッチされたエラー詳細が　内容に含まれていませんでした。

いづれにしても、SQLServerへ該当テーブルへの挿入なり更新なりに　失敗したのだろうと　データベースの実状から判断しようとしたのですが

いたって普通に　レコードが登録されてしまっていました。

       Using connection As New SqlConnection(cnStr)
            Dim command1 As New SqlCommand(strSQL1, connection)    'レコード既存チェックのSQL
            Dim command2 As New SqlCommand(strSQL2, connection)    '既存レコードUPDATEのSQL
            Dim command3 As New SqlCommand(strSQL3, connection)    '新規レコード挿入のSQL

            connection.Open()
            Try
                Dim dr As SqlDataReader = command1.ExecuteReader
                If dr.Read Then
                    dr.Close()
                    command2.ExecuteNonQuery()
                Else
                    dr.Close()
                    command3.ExecuteNonQuery()
                End If
            Catch ex As Exception
                    MAILSEND() '#処理の異常を伝えるメール送信の機能
            End Try
       End Using

【質問】
1:　上記の作りで　DBMSにしてみれば正常だったように受け止められ　Exceptionがキャッチされる要因とは　何が考えられるでしょうか
2: 上記の作りが　現況なのですが、WindowsServerのイベントログに　要因を推察できる手がかりは　記載されているものでしょうか
（イベントログの吐出し方を知りません。種類があるのかな）

事後の状況から　問題を推察せざるを得なく　皆様のご見解をいただけませんでしょうか

Answer 1

1. ExecuteReader, ExecuteNonQuery のいずれかの失敗によるものだとは思われますが、例外をログ出力していないなら詳細は不明です。

2. 例外をキャッチして、何も出力する処理をせず例外を捨てているので出力される筈はありません。ログ出力ライブラリ(NLog,log4net等)を使用するなりしてログ出力処理を組み込んでください。

Comments

[saya24]

了解しました。勝手にはログ出力されないんですね。対策します。
皆様にとって当たり前のことが分からないレベルなので助かりました。

[退会済みユーザー]

例外をキャッチせず異常終了した場合は場合はWindowsログに出力されますが、例外をキャッチするということは、キャッチした例外に対して自分で何らかの処理を行うという事です。キャッチした例外に対してログ出力をしていないのであれば、例外の内容はどこにも記録されないということになります。

[saya24]

異常終了していないので、ログにかかれていないわけですね。
一体何が起きたんだろう、次回以降は対策を投じることで詳細を掴めるようになるのだろうが。

因みにログ出力の対策はこちらを参考に対応しようとしています。
https://dobon.net/vb/dotnet/system/writeeventlog.html

[退会済みユーザー]

ログ出力方法、記録方法も色々あるので、クラス化しておいて後で切り替え出来るようにはしておいた方が無難です。ログの記録量によっては負荷が上がったり、ログの容量の問題もあるので、たかがログされどログです。