前提・実現したいこと
DataGridViewを使用しDBからデータを取得して、表示・更新・追加・削除を行いたいと考えております。
DataGridViewにDBからデータを取得して、表示するところまではできました。
VBnet
'フォームロード Private Sub Frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'DB情報 Me.bindingSource = New BindingSource() Me.DataGridView1.DataSource = Me.bindingSource Me.Controls.Add(Me.DataGridView1) 'データ取得 Me.bindingSource.DataSource = CreateDataTable() End Sub 'データ取得(表示) Private Function CreateDataTable() As DataTable Dim dt As DataTable = New DataTable() 'データベース Mdl_Gnl_objConnection.ConnectionString = "Database=" + ***** + ";Data Source=" + ***** + ";User Id=" + ***** + ";Password=" + ***** '接続情報を使ってコネクションを生成 Using conn As New MySqlConnection(Mdl_Gnl_objConnection.ConnectionString) 'MySQL文とコネクションを設定 Using cmd As New MySqlCommand("SELECT カラム1,カラム2,... FORM テーブル1 LEFT OUTER JOIN...", conn) 'SELECTコマンドを設定 Mdl_DataAdapter.SelectCommand = cmd 'SELECTの実行及びフェッチ Mdl_DataAdapter.Fill(dt) 'グリッドに表示 Grd_YoteiKubun.DataSource = dt End Using End Using Return dt End Function
発生している問題
表示はできているのですが、更新・追加・削除ができていない状況です。
自分なりに調べてここまでは書きました。
これすらも当たっているのか正直分かりません…。
コードの書き方が分からない部分はソースコードに記述しました。
DataGridViewからデータを取得して、DBに反映する方法を教えていただきたいです。
また下記ソースコードじたいが間違っていればそちらの指摘もお願い致します。
vbnet
'データ更新 Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click Dim objCommand As New MySqlCommand Dim SQL As String = "" Dim dt As DataTable = New DataTable() Dim r As DataRow dt = DataGridView1.DataSource 'データベース Mdl_Gnl_objConnection = New MySqlConnection Mdl_Gnl_objConnection.ConnectionString = "Database=" + ***** + ";Data Source=" + ***** + ";User Id=" + ***** + ";Password=" + ***** 'オープン Call Mdl_Gnl_objConnection.Open() objCommand = Mdl_Main_Gnl_objConnection.CreateCommand 'データ更新 For Each r In dt.Rows Select Case r.RowState Case DataRowState.Added '新規追加 'ここの中身が分からない Case DataRowState.Modified '修正 'ここの中身が分からない Case DataRowState.Deleted '削除 'ここの中身が分からない Case Else '何もしない Continue For End Select objCommand.CommandText = SQL Call objCommand.ExecuteNonQuery() Next 'クローズ Call Mdl_Gnl_objConnection.Close() dt.Dispose() End Sub
補足情報(FW/ツールのバージョンなど)
.Net 2010
業務上、MySqLを使用しています。
まだ回答がついていません
会員登録して回答してみよう