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

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

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