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

VBもRDBMSも初心者です。

VB２００５でデータベースの表示をしようとしています。

プログラムは以下です。
Public Sub LoadDatabaseIND()
        Dim sql As String
        sql = "SELECT * FROM tbl_tag WHERE tag_type = 'IND' "
        Dim da As New System.Data.Odbc.OdbcDataAdapter(sql, My.Settings.iodbConnectionString)
        Me.IodbDataSet.dtTagList.Clear()
        da.Fill(Me.IodbDataSet.dtTagList)
End Sub

このFillのところで、
「ConstraintException 制約を有効にできませんでした。1 つ以上の行に、Null か、一意でないか、または外部キー制約違反の値が含まれています。」
のエラーが発生します。

Clearができていないのでしょうか？
問題点等、教えてください。

■No46580 (すりーぷ さん) に返信
>         da.Fill(Me.IodbDataSet.dtTagList)

検証のため、上記を
　Me.IodbDataSet.EnforceConstraints = False
  da.Fill(Me.IodbDataSet.dtTagList)
　Me.IodbDataSet.EnforceConstraints = True  '★
というコードにし、★ の行にブレークポイントをはって、処理を一時停止させてみてください。

停止したところで、マウスカーソルを Me.IodbDataSet.dtTagList の箇所にあわせて、
ツールチップ上の虫眼鏡アイコンを押し、ビューワー(DataSet ビジュアライザ)で
取り出されたデータを確認してみてください。(意図した結果が入ってきていますか?)

取得結果に問題があるなら、SQL やデータを見直してみましょう。もしも
取得結果に問題が見当たらない場合には、型付きデータセットの定義ミスと思われます。

そこでさらに、一時停止状態からステップ実行し、制約を有効化させてみてください。
先ほどと同じエラーになると思われますので、『イミディエイト ウィンドウ』にて
 ? Me.IodbDataSet.dtTagList.GetErrors().Length
を実行し、全件エラーになるのか、一部の行だけエラーなのかを判定しましょう。

さらに、そのエラー行に対して、
 ? Me.IodbDataSet.dtTagList.GetErrors()(0).RowError
を実行すると、より具体的なエラーメッセージが表示されます。エラーの例としては
　「Column 'COL1' で DBNull.Value を使用できません。」
　「Column 'COL2' が MaxLength の制限を超えています。」
　「列 'COL3' は一意であるように制約されています。値 '123' は既に存在します。」
などと内容です。

そのエラーを元に、DataSet デザイナで、dtTagList テーブルの定義を調査してみてください。
開発途中で、列名/型定義の変わった列などはありませんでしたか?

・DataTable の主キー設定は正しいか。(間違った列に主キーが割り当てられていないか?)
・Null 値がありえる列に AllowDBNull = False が指定されていないか?
・列の Unique 指定が間違っていないか。(一意でない列に True が指定されていないか?)
・列の DataType は正しいか。(文字列型の列に対して、Decimal が指定されていないか?)
・列の MaxLength は正しいか。( CHAR(5) な列に対して、MaxLength = 3 になってはいないか?)
・列名の間違いはないか? (削除した列定義が残っていたり、スペルミスの列名などはないか?)
・DataSet 上で、他のテーブルとリレーションを張っている箇所があった場合、それは正しいか?