グリッドに表示したレコードを更新した結果を反映させるには？ (ID:112845)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初めて投稿します。

VSFlexGridというツールとADOデータコントロールを使用してデータベースの内容を表示する画面と作成しています。グリッドに表示はできたのですがレコードを追加したり、更新したり、削除したりした場合をグリッドに反映されるにはどうしたらいいのでしょうか？現在は削除ボタンを作成中です。
データベースを開いて確認したらちゃんとレコードは削除されていました。

[コード]
Private Sub Form_Load()
  Me.ADODC1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;"
  Me.ADODC1.CommandType = adCmdText
  Me.ADODC1.RecordSource = "SELECT テーブル.フィールド1, " _
                         & "テーブル.フィールド2, " _		
                         & "テーブル.フィールド3, " _		
                         & "テーブル.フィールド4 " _
                         & "FROM テーブル " _
                         & "WHERE テーブル.フィールド3 LIKE '*' " _ 
                         & "ORDER BY テーブル.フィールド3;
  Me.ADODC1.Refresh
End Sub

Private Sub Command1_Click()
  Set DB = New ADODB.Connection
  Set RS = New ADODB.Recordset

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;"

sSQL = ""
  sSQL = "SELECT * " _
       & "FROM テーブル " _
       & "WHERE テーブル.No = 1;"
                     
  RS.Open sSQL, DB, adOpenKeyset, adLockOptimistic
                
  If Not RS.EOF Then
    RS.Delete
  End If
                
  RS.Close
  DB.Close
  Set RS = Nothing
  Set DB = Nothing

Adodc.Refresh
End Sub

どうかわかる方がいましたらアドバイスをお願いします。
では失礼します。

[開発環境]
OS    :Windows2000(SP4)
言語  :VisualBasic6.0(SP6)
ツール：VS-FlexGrid Pro Ver.7.0J
DB    :Access2000

←解決時は質問者本人がここをチェックしてください。

戻る