SQL例外クラスを使用し、それを使用して主キー違反のカスタムメッセージを表示するプログラムを作成しました。また、違反の原因となった主キーの値が必要です。sqlexceptionオブジェクトから例外を生成したすべての主キーを取得するにはどうすればよいですか。
Catch se As SqlException
For i As Integer = 0 To se.Errors.Count - 1
Select Case se.Errors(i).Number.ToString
Case "2627" ''Primary Key Violation
Dim drH As DataRow = _ErrorDataSet.NewRow
drH.Item("Module") = _mod
drH.Item("Code") = ""
drH.Item("Description") = ""
drH.Item("Error") = "Document Number Already Exists"
_ErrorDataSet.Rows.Add(drH)
Next
End Try