การค้นหา

การค้นหาเรคคอร์ดที่ต้องการสามารถทำได้หลายวิธี เช่น เมธอดที่เกี่ยวกับการค้นหาของ recordset หรือ ใช้ WHERE clause ในประโยคคำสั่ง SELECT

เมธอด Seek

เมธอด Seek เป็นการค้นหาที่ต้องใช้ค่าของคุณสมบัติ Index ในการระบุคอลัมน์สำหรับการค้นหาค่า

rst.Index = "RecordID"
rst.Seek "=", CLng(txtID)

เมธอด FindNext

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

Dim strCriteria As String
strCriteria = "[RecordID] = " & CLng(txtID) & " "
rst.MoveFirst
rst.FindNext strCriteria

เมธอด Find Previous

เมธอด Find Previous เป็นการค้นหาย้อนกลับไปยังเรคคอร์ดที่อยู่ตำแหน่งก่อนหน้า ดังนั้น เพื่อครอบคลุมข้อมูลทั้งหมด จึงต้องไปที่จุดสิ้นสุดของ recordset ด้วยเมธอด Move Last เพื่อเริ่มค้นหาจากตอนท้าย

Dim strCriteria As String
strCriteria = "[RecordID] = " & CLng(txtID) & " "
rst.MoveLast
rst.FindPrevious strCriteria

WHERE clause

การใช้ WHERE clause ในประโยคคำสั่ง SELECT สามารถใช้ได้ ถ้าการสร้าง recordset เป็นการสร้างด้วยประโยคคำสั่ง SQL

strSql = "SELECT EmpID, EmpName, Dept, Title FROM Employees " _
& "WHERE EmpID = " & txtEmpID & ";"

Set MyDb = CurrentDb
Set rst = MyDb.OpenRecordset(strSql, dbOpenDynaset)

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

การปรับปรุงข้อมูลด้วย Recordset
การลบข้อมูลด้วย Recordset

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

DAO Recordset