[ツリー表示へ] [ワード検索] [Home]
タイトル ： データの更新結果をデータグリッドに反映したい 投稿日 ： 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 = テキストボックス１ .Fields("LibraryKna").Value = テキストボックス２ .Fields("Kubun").Value = テキストボックス３ .Fields("Category").Value = テキストボックス４ .Fields("keyword").Value = テキストボックス５ .Update() End With ' 削除の時 rsALibraryM.Delete() '■--------- データグリッドに反映 ------------------■ ここにロジックを入れたい 苦労しております。お願いいたします |
をクリックするとツリー全体を一括表示します） - データの更新結果をデータグリッドに反映したい - かっちゃん 12/06/14-11:28No.10834