Thực tế ta thường phải trả lời câu hỏi: “Trong bảng CSDL có bản ghi R hay không ?” Đối tượng con Recorset của đối tượng ADO Data Control có một phương thức tên là Find sẽ giúp ta trả lời được câu hỏi đó.
Thực hành: Cho người dùng nhập vào họ tên của một người trong một textbox, Chương trình sẽ thông báo là “Tìm thấy” cùng với điểm của môn Toán hoặc thông báo là “Không tìm thấy” người này trong bảng CSDL.
Các bước tiến hành:
• Thiết kế giao diện
Như phần 5, nhưng xoá các textbox và command button, Thay bằng một textbox có tên làtxtHoVaTenvà một command button có tên làcmdTim, Caption là&Tìm
Giao diện tìm kiếm
Toàn bộ code chương trình
adoBangDiem.Recordset.Find “HoVaTen = ' ” & txtHoVaTen.Text & “ ' ” • Nhấn F5 để chạy chương trình.
Giải thích các câu lệnh:
• adoBangDiem.Recordset.MoveFirst → Chuyển về bản ghi đầu tiên (Bắt đầu tìm từ bản ghi đầu tiên)
• adoBangDiem.Recordset.Find “HoVaTen ='”& txtHoVaTen.Text &”' ”→ Thực hiện tìm kiếm trong bảng CSDL có Họ và tên bằng với giá trị nằm trong txtHoVaTen.Ghi chúlà do trường HoVaTen là trường kiểu Text nên giá trị cần so sánh phải thêm vào dấu nháy đơn ở 2 đầu như trên. Còn nếu so sánh với trường số thì không cần.
• IfadoBangDiem.Recordset.EOF = FalseThen … → Sau khi thực thi phương thức Find thì có thể tìm thấy hoặc không. Nếu thấy thì thuộc tính EOF (EndOf File = hết tệp) sẽ có giá trị là False, trái lại sẽ có giá trị là True. Như vậy, để biết là có tìm thấy hay không ta chỉ việc kiểm tra thuộc tính này sau phương thức Find.