Xóa record trong Access Project sử dụng lớp ADO
dannynguyen1980 > 25-11-11, 12:24 PM
Tôi có sưu tầm và chỉnh sửa 1 đoạn code dùng để xóa record hiện hành trên form trong Access Project sử dụng lớp ADO. Mời các bạn tham khảo và cho ý kiến nhé:
--------------------------------------------------------------------
Private Sub CmdDel_Click()
On Error Resume Next
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = CurrentProject.Connection
rst.Source = "Select * from T_Danhsachdoituong"
rst.CursorLocation = adUseServer
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open
If (MsgBox ( "Ban co muon xoa doi tuong nay khong?", vbYesNo + vbQuestion, "Chu y!" ) = vbYes) Then
rst.Delete adAffectCurrent
rst.Update
MsgBox "Da xoa khoi danh sach theo doi", vbCritical, "Thong bao"
Me.Refresh
End If
rst.Close
Set rst = Nothing
Exit Sub
End Sub
--------------------------------------------------------------------
Thân chào!