การลบข้อมูล ด้วย DAO Recordset

การลบข้อมูล

ในการลบข้อมูลด้วย recordset ต้องมีการเปิด recordset จากนั้นจึงการลบด้วย เมธอด Delete

rst.Delete

การค้นหาเรคคอร์ดที่ต้องการลบในตัวอย่างนี้ใช้ เมธอด FindNext ดังนั้น เพื่อครอบคลุมข้อมูลทั้งหมด จึงต้องค้นหาที่เรคคอร์ดเริ่มต้นของ recordset ด้วยเมธอด MoveFirst เพื่อไปยังตำแหน่งแรกของ recordset

rst.MoveFirst
rst.FindNext strCriteria

ตรวจสอบการค้นหาใช้คุณสมบัติ NoMatch ซึ่งถ้าค่าเป็น จริง (True) แสดงไม่พบข้อมูล และค่าเป็น เท็จ (False) แสดงว่าพบข้อมูล

If rst.NoMatch Then
  MsgBox "ไม่พบเรคคอร์ดที่ต้องการ"
Else
  rst.Delete
  MsgBox "ลบเรคคอร์ดที่ระบุแล้ว"
End If

ดาวน์โหลดตัวอย่าง

หัวข้อเพิ่มเติม

DOA Recordset
การค้นหา