SqlCommandBuilderクラスによる自動生成のエラー (ID:126268)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります SqlCommandBuilderクラスによる自動生成が上手く動きません。 仕様でしたら回避策をご教示お願いいたします。 Sub test2() Dim conn As New SqlConnection(ConnectionString) Dim da As SqlDataAdapter Dim ds As New DataSet Dim cmd As New SqlCommand Dim r As DataRow Dim sqlCmdBldr As SqlCommandBuilder conn.Open() '//// データセットにTABLE1をセット da = New SqlDataAdapter cmd.Connection = conn cmd.CommandText = "select * from TABLE1" da.SelectCommand = cmd da.Fill(ds, "t_TABLE1") '//// データセットにTABLE2をセット cmd.CommandText = "select * from TABLE2" da.SelectCommand = cmd da.Fill(ds, "t_TABLE2") '//// データセットTABLE1をレコードを追加 r = ds.Tables("t_TABLE1").NewRow r.Item("AAA") = "ABCDEFG" ds.Tables("t_TABLE1").Rows.Add(r) sqlCmdBldr = New SqlCommandBuilder(da) '<----- ココ '///ここでSQL文はTABLE2のSQL文を作成してしまう '//// SQL文(Insert)を確認 Debug.WriteLine(sqlCmdBldr.GetInsertCommand.CommandText) da.Update(ds, "t_TABLE1") '<---- 自動作成されたSQL文はTABLE2なのでエラーになる conn.Close() End Sub ①データセットにTABLE1をセット ②データセットにTABLE2をセット ③TABLE1にレコード追加 ④SQL文自動作成 ここでSQL文はTABLE2のSQL文を作成してしまう