Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xóa record trong Access Project sử dụng lớp ADO
#1
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!
Chữ ký của dannynguyen1980 Xin chào, mình là dannynguyen1980, Tham gia http://thuthuataccess.com/forum từ ngày 14-09 -11.
Reply
Những người đã cảm ơn Noname , haquocquan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Kết quả tính toán theo dòng record tương ứng tvn_hut 5 274 02-06-18, 03:24 PM
Bài mới nhất: tvn_hut
  [Help] So sánh giá trị record trên cùng 1 trường trong 1 bảng để có kết quả tính toán đúng tvn_hut 5 179 29-05-18, 10:39 PM
Bài mới nhất: ongke0711
  Xuất dữ liệu từ Access ra Excel theo điều kiện Minh Tiên 13 574 25-05-18, 07:06 PM
Bài mới nhất: ongke0711
  [Hỏi] Ghép chuổi trong điều kiện hàm dcount mrsiro 8 383 23-05-18, 10:51 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access maidinhdan 23 6,474 24-04-18, 08:13 PM
Bài mới nhất: DooHoaangPhuuc

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line