投稿日 | : 2002/11/27(Wed) 20:58 |
投稿者 | : tomo |
URL | : |
タイトル | : MSFlexGridで削除できない |
はじめましてともです(すごく初心者です)
しつもんは以下の様です。
データベースへのアクセス
Set WrkJet = CreateWorkspace("", "admin", "")
Set MyDB = WrkJet.OpenDatabase(gDBName)
LoadPatiData.Data1.DatabaseName = gDBName
Set MyRS = MyDB.OpenRecordset("Patient Data", dbOpenDynaset)
'データフォームロード時はデータ更新が新しい方から
Data1.RecordSource = "SELECT * FROM [Patient Data] order by date DESC "
削除ボタンを押したときの処理
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
WrkJet.CommitTrans
と言う感じでやってるんですがフォーム上では消えるのにDBでは消えてません
フォームをリフレッシュするとでてきます
どこがおかしいのですか?