各位前拜安!
我用DataGrid秀資料,Access作資料庫,連結成功。
我要刪除一筆資料程式如下:
Dim ret As Integer
Set DataGrid1.DataSource = MyRs
ret = MsgBox("確定要刪除?" & MyRs!配比編號1&, vbYesNo, "刪除")
If ret = vbYes Then
MyRs.Delete
MyRs.MoveNext
If MyRs.EOF = False Then
MyRs.MoveLast
End If
End If
RUN時DataGrid可刪一筆資料,但是Access內資料表無刪除動作?
各位前拜可否破解一下!感謝你‧
我用DataGrid秀資料,Access作資料庫,連結成功。
我要刪除一筆資料程式如下:
Dim ret As Integer
Set DataGrid1.DataSource = MyRs
ret = MsgBox("確定要刪除?" & MyRs!配比編號1&, vbYesNo, "刪除")
If ret = vbYes Then
MyRs.Delete
MyRs.MoveNext
If MyRs.EOF = False Then
MyRs.MoveLast
End If
End If
RUN時DataGrid可刪一筆資料,但是Access內資料表無刪除動作?
各位前拜可否破解一下!感謝你‧
全站熱搜
留言列表