データグリッドの再表示 (ID:107940)

名前

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

本文

データグリッドにＡＣＣＥＳＳのデータを表示するのに、Form_Loadにて下記のように記述しました。
データはちゃんと表示され満足しているのですが、メニューエディタを使用してデータ削除を行った後、データグリッドを再表示する方法が分かりません。
アドバイスを宜しくお願い致します。

Private cnn As ADODB.Connection
Private recDataGrid As ADODB.Recordset
Private recDelete As ADODB.Recordset

Private Sub Form_Load()
'コネクションオブジェクト 作成
Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Material Control System\AccessDB.mdb;"
    cnn.Open

'recDataGrid レコードセット作成
    Dim strDataGrid As String
        strDataGrid = "select aquMTCshiyou.kisyux As 機種,zCDxxx As 材料コード,zairyo As 材料名,kikaku As 規格," & _
                   	 "from aquMTCshiyou " & _
                   	 "order by kisyux "
    
    Set recDataGrid = New ADODB.Recordset
        recDataGrid.CursorLocation = adUseClient 'カーソルエンジン 場所指定(クライアント側指定)
        recDataGrid.Open strDataGrid, cnn, adOpenDynamic, adLockOptimistic
    
    Set DataGrid1.DataSource = recDataGrid
        DataGrid1.AllowAddNew = True        '新規入力レコード 表示
End Sub
----------------------------------------------------------------------------------------------------------
Private Sub mnuSakujo_Click()
    Dim strSearch As String
        strSearch = "select aquMTCshiyou.* " & _
                    "from aquMTCshiyou " & _
                    "where(aquMTCshiyou.kisyux='" & DataGrid1.Columns(0) & "') and (aquMTCshiyou.zCDxxx='" & DataGrid1.Columns(1) & "')"
    
    Set recDelete = New ADODB.Recordset
        recDelete.Open strSearch, cnn, adOpenKeyset, adLockOptimistic
    
        recDelete.Delete    'データ削除
     
     'データグリッドの再表示処理？？？？？

End Sub

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

戻る