Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài 5. Kết nối VB với MS Access thông qua công nghệ ADO (tiếp theo) Mục đích Trong bài thực hành này, bạn sẽ làm quen với cách xây dựng một ứng dụng VB tương tác với CSDL Access thông qua sử dụng công nghệ ADO. Yêu cầu Đã nắm được các khái niệm cơ bản về xây dựng ứng dụng bằng VB Sử dụng được hệ quản trị CSDL Access Vấn đề liên quan Thiết kế CSDL bằng Access Kết nối CSDL Access thông qua ADO Thời gian để hoàn tất bài thực hành: 90 phút 1 Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài tập 5.1. Thiết kế CSDL Access Mục đích: Xây dựng CSDL 1. Mở ứng dựng Microsoft Access 2. Thiết kế CSDL, đặt tên là THUCDON.MDB, có cấu trúc gồm 1 bảng THUCDON như sau: THUCDON STT Tên trường Kiểu dữ liệu Ghi chú 1 MaMonAn Text (7) Primary Key 2 TenMonAn Text (50) Required 3 Dongia Text(15) 3. Điền một số record thông tin vào bảng dữ liệu này MaMonAn TenMonAn Dongia MA1 Bún bò 5000 MA2 Hủ tíu 7000 MA3 Cơm sườn 6000 MA4 Phở 4000 4. Lưu thông tin 2 Bài 5. BÀI GIẢNG THỰC HÀNH MƠN NHẬP MƠN CƠNG NGHỆ PHẦN MỀM Bài tập 5.2. Thiết kế giao diện Mục đích: Học cách thiết kế form theo mẫu 1. Thiết kế form theo mẫu dưới đây  Các đối tượng trên Form được đặt tên (thuộc tính Name) như trong hình trên  Lưu ý: đối tượng ListThucDon và ListDuocChon là ListBox 3 ListDuocChon ListThucDon cmdTinhTien cmdThoat txtThanhTien cmdChon cmdKhong Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài tập 5.3. Kết nối Visual Basic với Access Mục đích: Thực hiện các bước làm việc để kết nối Access với VB Ghi nhớ: Các bước làm việc với CSDL 1. Chọn công nghệ sử dụng (DAO, ADO…) 2. Mở kết nối với CSDL 3. Chuẩn bị câu lệnh SQL 4. Mở RecordSet tương ứng với câu lệnh SQL trên (hay nói cách khác, RecordSet sẽ chứa kết quả trả về khi thực thi câu lệnh SQL) 5. Di chuyển con trỏ của RecordSet về vị trí đầu tiên 6. Duyệt qua từng giá trị của RecordSet, xử lý dữ liệu theo yêu cầu 7. Đóng kết nối với CSDL 1. Vào mục Project -> References -> Chọn và đánh dấu vào mục Microsoft ActiveX Data Objects 2.6 Library. Lưu ý: không chọn nhầm mục Microsoft ActiveX Data Objects 2.5 (hoặc 2.1…), cũng như bảo đảm tất cả các mục Microsoft DAO 3.6 Object Library, Microsoft DAO 3.51 Object Library… không được chọn. 4 Bài 5. BÀI GIẢNG THỰC HÀNH MƠN NHẬP MƠN CƠNG NGHỆ PHẦN MỀM 5. Khai báo biến Connection là biến toàn cục trong phần General (trên cùng của file) Dim Cn As ADODB.Connection 6. Viết hàm xử lý sự kiện Load cho đối tượng Form1 (Bấm đúp (double click) trên form, VB sẽ tự động thêm hàm xử lý sự kiện) Private Sub Form_Load() Dim Rs As ADODB.Recordset Dim strSQL As String ‘Khoi tao moi mot doi tuong Connection Set Cn = new ADODB.Connection Cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source = Thucdon.mdb” Cn.Open ‘Thuc thi cau lenh SQL de lay tat ca Ten mon an co trong CSDL ' Phan lay du lieu dua vao listbox strSQL = "Select TENMONAN from THUCDON" Set Rs = new ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic If (Not Rs.BOF) Then Rs.MoveFirst While (Not Rs.EOF) ListThucDon.AddItem Rs![TENMONAN] 5 Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Rs.MoveNext Wend End If Rs.Close End Sub 7. Viết hàm xử lý sự kiện UnLoad cho đối tượng Form1 Private Sub Form_Unload(Cancel As Integer) Cn.Close End Sub 8. Viết hàm xử lý sự kiện Click cho nút Chọn Private Sub cmdChon_Click() If ListThucDon.ListIndex = -1 Then MsgBox "Ban hay chon mon an!", vbOKOnly Exit Sub End If ListDuocChon.AddItem ListThucDon.Text ListThucDon.RemoveItem ListThucDon.ListIndex txtThanhTien.Text = "" End Sub 9. Viết hàm xử lý sự kiện Click cho nút Không Private Sub cmdKhong_Click() If ListDuocChon.ListIndex = -1 Then MsgBox "Ban hay chon mon an!", vbOKOnly Exit Sub End If ListThucDon.AddItem ListDuocChon.Text ListDuocChon.RemoveItem ListDuocChon.ListIndex txtThanhTien.Text = "" End Sub 10.Viết hàm xử lý sự kiện Click cho nút Tính tiền Private Sub cmdTinhTien_Click() Dim Rs As ADODB.Recordset Dim strSQL As String Dim i As Integer Dim TongTien As Long Dim SoMonAn As Integer 6 Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM TongTien = 0 txtThanhTien.Text = "" SoMonAn = ListDuocChon.ListCount If SoMonAn = 0 Then MsgBox "Ban hay chon mon an!", vbOKOnly Exit Sub End If For i = 0 To SoMonAn - 1 strSQL = "Select DONGIA From THUCDON Where TENMONAN=Trim('" & ListDuocChon.List(i) & "')" Set Rs = new ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic Rs.MoveFirst TongTien = TongTien + Rs![DONGIA] Rs.Close Next txtThanhTien.Text = TongTien End Sub 11.Viết hàm xử lý sự kiện Click cho nút Thoát Private Sub cmdThoat_Click() Unload Me End Sub 7 Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài tập 5.4. Chạy và kiểm lỗi chương trình Mục đích: Sử dụng công cụ debug của VB 1. Để con trỏ ngay dòng đầu tiên của hàm Form_Load() b mấ F9 (ho c ch n menu ặ ọ Debug->Toggle Breakpoint) 2. Bấm F5 để bắt đầu chạy và kiểm lỗi chuơng trình, quan sát sự thay đổi của các biến 8 . Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài 5. Kết nối VB với MS Access thông qua công nghệ ADO (tiếp theo) Mục đích Trong bài thực hành này, bạn sẽ làm quen với cách. CSDL bằng Access Kết nối CSDL Access thông qua ADO Thời gian để hoàn tất bài thực hành: 90 phút 1 Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài tập 5. 1. Thiết kế CSDL Access Mục. ListBox 3 ListDuocChon ListThucDon cmdTinhTien cmdThoat txtThanhTien cmdChon cmdKhong Bài 5. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài tập 5. 3. Kết nối Visual Basic với Access Mục đích: Thực hiện các bước làm việc để kết nối Access với VB Ghi nhớ: Các