Tham khảo tài liệu 'bài 5.kết nối vb với ms access thông qua công nghệ ado (tiếp theo)', 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ả
AMBIENT/
Chủ đề:
Nội dung Text: Bài 5.Kết nối VB với MS Access thông qua công nghệ ADO (tiếp theo)
- 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ếtnố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
Tên trường Kiểu dữ liệu
STT 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
Hủ tíu
MA2 7000
Cơm sườn
MA3 6000
Phở
MA4 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. Thieát keá form theo maãu döôùi ñaây
cmdKhong cmdChon
ListThucDon ListDuocChon
cmdTinhTien
cmdThoat
txtThanhTien
Caùc ñoái töôïng treân Form ñöôïc ñaët teân (thuoäc tính Name) nhö trong
hình treân
Löu yù: ñoái töôïng ListThucDon vaø ListDuocChon laø ListBox
3
- 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
Chọn công nghệ sử dụng (DAO, ADO…)
1.
Mở kết nối với CSDL
2.
Chuẩn bị câu lệnh SQL
3.
Mở RecordSet tương ứng với câu lệnh SQL trên (hay nói cách
4.
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 baùo bieán Connection laø bieán toaøn cuïc trong phaàn General (treân
cuøng cuû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)
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
ListThucDon.AddItem Rs![TENMONAN]
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
Thêm vào BST
Báo xấu
Download
Vui lòng tải xuống để xem tài liệu đầy đủ
