タイトル | : データの更新結果をデータグリッドに反映したい |
記事No | : 10834 |
投稿日 | : 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()
'■--------- データグリッドに反映 ------------------■ ここにロジックを入れたい
苦労しております。お願いいたします
|