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