タイトル : データの更新結果をデータグリッドに反映したい 投稿日 : 2012/06/14(Thu) 11:28 投稿者 : かっちゃん
いつも大変助かっております また、よろしくお願いいたします データの更新結果をデータグリッドに即、反映したい 下記のように "LibraryM" から データを"rsALibraryM"に抽出して、 同時にデータグリッド"dgdGrid"にも表示しております。 そのあとデータの更新を実施した結果を データグリッド"dgdGrid"にも反映したいのですが どのようなロジックを入れたらよいでしょうか '■--------- データ表示 ------------------■ ' コネクションセット wkCNN.ConnectionString = glstrCnpath wkCMD.Connection = wkCNN wkCNN.Open() 'データソースで実行するSQL文の設定 wkstrSql = "select * from LibraryM ORDER BY Kubun Asc, Category Asc, keyword Asc, LibraryNa Asc" rsALibraryM = New ADODB.Recordset rsALibraryM.Open(wkstrSql, CN, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) Dim wkAdp1 As New OleDb.OleDbDataAdapter(wkstrSql, wkCNN) 'データを取得する wkAdp1.Fill(wkDS, "LibraryM") dgdGrid.Columns.Clear() 'データグリッドに表示するデータソースを設定 dgdGrid.DataSource = wkDS dgdGrid.DataMember = "LibraryM" '■--------- データ更新 ------------------■ ' 追加の時 rsALibraryM.AddNew() With rsALibraryM .Fields("LibraryNa").Value = テキストボックス1 .Fields("LibraryKna").Value = テキストボックス2 .Fields("Kubun").Value = テキストボックス3 .Fields("Category").Value = テキストボックス4 .Fields("keyword").Value = テキストボックス5 .Update() End With ' 削除の時 rsALibraryM.Delete() '■--------- データグリッドに反映 ------------------■ ここにロジックを入れたい 苦労しております。お願いいたします |