Tham khảo tài liệu 'visual basic 6 vovisoft part 33', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | click nút Go để hiển thị chi tiết sách ấy. Nếu đổi ý user sẽ click nút Close để làm biến mất frame fraSearch. Bình thường frame fraSearch chỉ hiện ra khi cần nên lúc đầu hãy set property Visible của nó thành False. Ta sẽ cho ImgSearch hiển thị hình một ống dòm nên bạn hãy click vào bên phải property Picture trong Properties Window để chọn Icon từ folder E Program Files Microsoft Visual Studio Common Graphics Icons Misc Cái Primary Key của table Titles là ISBN. Khi user select một sách ta muốn biết ISBN của sách ấy để locate định chỗ nó trong Recordset myRS. Do đó trong khi thêm tiêu đề của một sách vào Listl ta đồng thời thêm ISBN của sách ấy vào một Listbox thứ hai tên List2. Ta chỉ sẽ dùng List2 sau hậu trường nên hãy set property Visible của nó thành False. Dưới đây là code để load tiêu đề sách và ISBN vào các Listboxes Private Sub ImgSearch_Click Show Search Frame True Dim SrchRS As Dim SQLCommand As String Define SQL statement SQLCommand Select from Titles where Title LIKE txtSearch ORDER BY Title Fetch all records having Title containing the text pattern given by txtSearch Set SrchRS SQLCommand If Recordset is not Empty then list the books titles in Listl If 0 Then Clear Listl We use List2 to contain the Primary Key ISBN corresponding to the books in Listl Clear List2 With SrchRS Iterate through the Recordset until EOF Do While Not Display Title in Listl .Fields Title Store corresponding ISBN in List2 .Fields ISBN .MoveNext Move to next record in the Recordset Loop End With End If End Sub Khi user Click ImgSearch với text pattern là chữ Guide ta sẽ thấy hình dưới đây Trong SELECT statement bên trên ta dùng operator LIKE trên text pattern chữ Guide có wildcard character ở hai bên. Wildcard character là chỗ có hay không có chữ gì cũng được. Trong trường hợp nầy có nghĩa là hễ có chữ Guide trong tiêu đề sách là được .
