Bài 4.Kết nối VB với MS Access thông qua công nghệ ADO (tiếp theo)

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 VBtương tác với CSDL Access thông qua sử dụng công nghệ ADO.
Nội dung trích xuất từ tài liệu:
Bài 4.Kết nối VB với MS Access thông qua công nghệ ADO (tiếp theo) Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài 4. 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 VBtươ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 AccessVấn đề liên quan Thiết kế CSDL bằng Access Kết nối CSDL Access thông qua ADOThời gian để hoàn tất bài thực hành: 90 phút 1 Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 4.1. Thiết kế CSDL AccessMục đích: Xây dựng CSDL 1. Mở ứng dựng Microsoft Access 2. Thiết kế CSDL, đặt tên là QUYDOINGOAITE.MDB, có cấu trúc gồm 1 bảng NGOAITE như sau: NGOAITE Tên trường Kiểu dữ liệu STT Ghi chú 1 MaNT Text (7) Primary Key 2 Ten Text (50) Required 3 Tigia Text(15) 3. Điền một số record thông tin vào bảng dữ liệu này MaNT Ten Tigia USD U.S.Dollar 15538 Yen Nhật YEN 10000 RUP RUP Nga 2500 Nhân dân tệ TQ NDT 2000 4. Lưu thông tin 2 Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 4.2. Thiết kế giao diệnMụ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 cmbMANT txtTen txtVND txtSoTien txtQuyDoiVND 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 Choïn thuoäc tính Style cuûa ñoái töôïng cmbMANT laø 2-Dropdown List Choïn thuoäc tính Alignment cuûa caùc ñoái töôïng TextBox laø 1 – Right Justify 3Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM 4 Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 4.3. Kết nối Visual Basic với AccessMụ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ũngnhư bảo đảm tất cả các mục Microsoft DAO 3.6 Object Library, Microsoft DAO 3.51Object Library… không được chọn. 5 Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM5. 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.Connection6. 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 = QuydoiNgoaite.mdb” Cn.Open ‘Thuc thi cau lenh SQL de lay tat ca Ten va Matkhau co trong CSDL strSQL strSQL = Select MANT from NGOAITE Set Rs = new ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic Phan lay du lieu MANT dua vao combobox strSQL = Select MANT from NGOAITE Set Rs = new ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic 6 Bài 4. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM If (Not Rs.BOF) Then Rs.MoveFirst While (Not Rs.EOF) cmbMANT.AddItem Rs![MANT] Rs.MoveNext Wend End If Rs.Close cmbMANT.Text = cmbMANT.List(0) End Sub7. 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 Sub8. Viết hàm xử lý sự kiện Click cho nút QuyđổiPrivate Sub cmdQuyDoi_Click() Dim Tigia As Double Tigia = Val(txtVND.Text) Dim SoTien As Double SoTien = Val(txtSoTien.Text) Dim QuyDoiVND As Double QuyDoiVND = SoTien * Tigia ...