Sau khi thiết kế lớp xử lý hoàn tất, việc hiển thị dữ liệu trên màn hình bây giờ khá đơn giản. Xem các ví dụ minh họa sau:
Hiển thị các sách có trong bảng SACH
'Khai báo bảng sách: Bang_sach Dim Bang_sach As XL_SACH
Private Sub Page_Load(…, e …) Handles MyBase.Load 'Put user code to initialize the page here
If Not IsPostBack Then Lien_ket_du_lieu() End If
End Sub
Public Sub Lien_ket_du_lieu()
XL_BANG.Chuoi_CSDL = Server.MapPath("../Du_lieu/QlBanSach.mdb")
Bang_sach = New XL_SACH
Ds_Sach.DataSource = Bang_sach Ds_Sach.DataBind()
End Sub
Nếu muốn hiển thị các sách mới nhập:
Public Sub Lien_ket_du_lieu()
XL_BANG.Chuoi_CSDL = Server.MapPath("../Du_lieu/QlBanSach.mdb")
Bang_sach = New XL_SACH
Bang_sach.DefaultView.Sort = "Ngay_Cap_nhat desc"
Ds_Sach.DataSource = Bang_sach Ds_Sach.DataBind()
End Sub
Nếu muốn hiển thị 10 cuốn sách mới nhất: Public Sub Lien_ket_du_lieu()
XL_BANG.Chuoi_CSDL = Server.MapPath("../Du_lieu/QlBanSach.mdb")
Bang_sach = New XL_SACH("Select Top 10 * " & _ "From SACH " & _
"Order By Ngay_cap_nhat desc")
Ds_Sach.DataSource = Bang_sach Ds_Sach.DataBind()
Nếu muốn hiển thị 10 cuốn sách mới nhất của chủ đề có mã là 5:
Public Sub Lien_ket_du_lieu()
XL_BANG.Chuoi_CSDL = Server.MapPath("../Du_lieu/QlBanSach.mdb")
Bang_sach = New XL_SACH("Select Top 10 * " & _ "From SACH " & _
"Where Mcd = 5 " & _
"Order By Ngay_cap_nhat desc")
Ds_Sach.DataSource = Bang_sach Ds_Sach.DataBind()
End Sub
Kết quả hiển thị: (10 sách mới nhất)
Màn hình thơng tin sách
Trong bảng SACH, chúng ta chỉ có thơng tin về Mã chủ đề (Mcd), Mã nhà xuất bản (Mnxb), để lấy được tên chủ đề, tên nhà xuất bản như kết quả trong hình minh họa trên, chúng ta cần bổ sung các điều khiển cần thiết như hình bên dưới và thực hiện như sau:
Bài 4. XÂY DỰNG LỚP XỬ LÝ DỮ LIỆU
Hiệu chỉnh thủ tục Lien_ket_du_lieu như sau:
Public Sub Lien_ket_du_lieu() XL_BANG.Chuoi_CSDL =
Server.MapPath("../Du_lieu/QlBanSach.mdb") Dim lenh_Sql As String
lenh_Sql = "SELECT SACH.*, " & _ "Ten_nha_xuat_ban, Ten_chu_de " & _
"FROM (NHA_XUAT_BAN NXB INNER JOIN SACH " & _ "ON NXB.Mnxb = SACH.Mnxb) " & _
"INNER JOIN CHU_DE CD ON CD.Mcd = SACH.Mcd"
Bang_sach = New XL_SACH(lenh_Sql)
Ds_Sach.DataSource = Bang_sach Ds_Sach.DataBind()
End Sub
BÀI TẬP