データグリッドの再表示
解決データグリッドにＡＣＣＥＳＳのデータを表示するのに、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
スイマセン。
自己解決する事が出来ました。
| ツイート |  |