BÀI GIẢNG THỰC HÀNH 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

Bài 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 thực hành này, bạn làm quen với cách xây dựng ứ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 khái niệm xây dựng ứng dụng VB Sử dụng hệ quản trị CSDL Access Vấn đề liên quan Thiết kế CSDL Access Kết nối CSDL Access thông qua ADO Thời gian để hoàn tất thực hành: 90 phút Bài 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 4.1 Thiết kế CSDL Access Mục đích: Xây dựng CSDL Mở ứng dựng Microsoft Access Thiết kế CSDL, đặt tên QUYDOINGOAITE.MDB, có cấu trúc gồm bảng NGOAITE sau: STT Tên trường MaNT Ten Tigia NGOAITE Kiểu liệu Text (7) Primary Key Text (50) Required Text(15) Ghi Điền số record thông tin vào bảng liệu MaNT USD YEN RUP NDT Ten U.S.Dollar Yen Nhật RUP Nga Nhân dân tệ TQ Tigia 15538 10000 2500 2000 Lưu thông tin Bài 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 4.2 Thiết kế giao diện Mục đích: Học cách thiết kế form theo mẫu Thieát keá form theo mẫu cmbMANT txtTen txtVND txtSoTien txtQuyDoiVND  Các đối tượng Form đặt tên (thuộc tính Name) hình  Chọn thuộc tính Style đối tượng cmbMANT 2-Dropdown List  Chọn thuộc tính Alignment đối tượng TextBox – Right Justify Bài BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Bài 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 4.3 Kết nối Visual Basic với Access Mục đích: Thự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…) Mở kết nối với CSDL Chuẩn bị câu lệnh SQL Mở RecordSet tương ứng với câu lệnh SQL (hay nói cách khác, RecordSet chứa kết trả thực thi câu lệnh SQL) Di chuyển trỏ RecordSet vị trí Duyệt qua giá trị RecordSet, xử lý liệu theo yêu cầu Đóng kết nối với CSDL Vào mục Project -> References -> Chọn đá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…), bảo đảm tất mục Microsoft DAO 3.6 Object Library, Microsoft DAO 3.51 Object Library… không chọn Bài BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Khai báo biến Connection biến toàn cục phần General (trên file) Dim Cn As ADODB.Connection Viết hàm xử lý kiện Load cho đối tượng Form1 (Bấm đúp (double click) form, VB tự động thêm hàm xử lý 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 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 Bài 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 Sub Viết hàm xử lý kiện UnLoad cho đối tượng Form1 Private Sub Form_Unload(Cancel As Integer) Cn.Close End Sub Viết hàm xử lý kiện Click cho nút Quyđổi Private 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 txtQuyDoiVND.Text = QuyDoiVND End Sub Viết hàm xử lý kiện Click cho nút Thoát Private Sub cmdThoat_Click() Unload Me End Sub 10 Viết hàm xử lý kiện Click cho comboBox MANT (lưu ý, để xử lý kiện người dùng chọn lựa comboBox, ta dùng kiện Click không dùng kiện Change) Bài BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Private Sub cmbMaNT_Click() Dim Rs As ADODB.Recordset Dim strSQL As String strSQL = "Select * From NGOAITE Where MANT = Trim('" & cmbMANT.Text & "')" Set Rs = new ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic If (Rs.BOF) Then MsgBox "Khong tim thay thong tin" Exit Sub End If Rs.MoveFirst txtQuyDoiVND.Text = "" txtTen.Text = Rs![TEN] txtVND.Text = Rs![VND] Rs.Close End Sub Bài 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 4.4 Chạy kiểm lỗi chương trình Mục đích: Sử dụng cơng cụ debug VB Để trỏ dòng hàm Form_Load() bấm F9 (hoặc chọn menu Debug>Toggle Breakpoint) Bấm F5 để bắt đầu chạy kiểm lỗi chuơng trình, quan sát thay đổi biến ... tập 4.3 Kết nối Visual Basic với Access Mục đích: Thự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? ??) Mở kết nối với CSDL Chuẩn bị... file) Dim Cn As ADODB.Connection Viết hàm xử lý kiện Load cho đối tượng Form1 (Bấm đúp (double click) form, VB tự động thêm hàm xử lý kiện) Private Sub Form_Load() Dim Rs As ADODB.Recordset Dim... 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