おっしゃるとおり、まわりくどい方法は止めて、データアダプタの方法で更新したいと思います。
そこで、データグリッドビューに下記コードのように対象となるADOXで作成されたデータベースを読み込みました。
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& TextBox27.Text & YearComboBox.Text & "\" & TextBox1.Text & ".mdb")
Dim da3 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter _
("SELECT * FROM meisai_master", Cn)
Dim cb3 As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da3)
DataSet1 = New DataSet("main_master")
da3.Fill(DataSet1, "meisai_master")
Me.BindingSource1.DataSource = DataSet1
Me.BindingSource1.DataMember = "meisai_master"
Me.DataGridView1.DataSource = Me.BindingSource1
End Sub
そして、編集後データベース更新をするコードが下記のとおりなんですが、以前別のスレッドでテーブル構造上、複雑なクエリで保存不可能と出たのでコマンドビルダーでは無理という回答を得ました。
そこで、自分でクエリを作成して更新をかけたいと思うのですが、テーブルアダプタを使用した時のクエリをそのまま活用できるでしょうか？そして、出来れば下記コードを利用したコーディングの方法を教えて頂ければ幸いです。
ちなみに単にデータを追加する分については、うまく動きましたが削除をかけるとdeletecommandがうまく動作しないようなエラーが出ます。これって、クエリを指定していないからですよね！？
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& TextBox27.Text & YearComboBox.Text & "\" & TextBox1.Text & ".mdb")
Dim da3 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM meisai_master", Cn)
Dim cb3 As OleDb.OleDbCommandBuilder
Try
Cn.Open()
cb3 = New OleDb.OleDbCommandBuilder(da3)
Dim MeisaiTbl As DataTable = DataSet1.Tables("meisai_master")
Me.Validate()
Me.BindingSource1.EndEdit()
da3.Update(MeisaiTbl)
Cn.Close()
MsgBox("保存しました。")
Catch ex As System.Exception
MessageBox.Show(ex.Message)
End Try
End Sub
