tailieunhanh - Ebook Lập trình cơ sở dữ liệu & Report: Phần 2

Nếu như phần 1 của cuốn "Ebook Lập trình cơ sở dữ liệu & Report" giới thiệu tới các bạn một số vấn đề lý thuyết và ví dụ chuyên đề thì đến với phần phần 2 sẽ là phần bài giải của các chuyên đề đề lý thuyết để các bạn có thể tham khảo đầy đủ và chính xác nhất. Mời các bạn cùng tìm hiểu và tham khảo nội dung thông tin tài liệu. | Phần II Bài giải của bài tập 205 0 PHẦN II BÀI GIẢI CỦA BÀI TẬP Chuyên đề 16 Làm việc với đối tượng 207 ẼT Chuyên đề 16 LÀM VIỆC VỚI ĐÔÌ TƯỢNG 1. ĐỐI TƯỢNG TRONG VISUAL Không có bài tập. 2. TRÌNH ĐIỀU KHIỂN cơ SỞ DỮ LIỆU Không có bài tập. 3. ĐỐI TƯỢNG SQLCONNECTION 1. Thiết kế Form cho phép người sử dụng nhập UserName và Password sau đó khai báo doạn chương trình để kết nối cơ sở dữ liệu. Nếu kết nối không thành công thì phun lỗi ra màn hình bằng lệnh MsgBox. Thêm Module và khai báo các biến dùng chung Module Modulel Public gsServer As string . Public gsDatabase As string - northwind Public gsUserlD As string Public gsUserName As string Public gsFullName As string Public gsWelcome As string - End Module Kế đến thêm Class vào Project và đặt tên cisDatabase bạn khai báo các biến dùng trong Class Private psCon As string Private strSQL As string Private strError As string Dim myCon As SqlConnection Tiếp theo khai báo phương thức có tên Authenticate nhận hai tham trị strUserName strPwd là hai chuỗi chứa UserName và Password a 208 Phần II Bài giải của bài tâp từ frmLogin tham biến myValues là mảng kiểu chuỗi ứng với những giá trị sẽ lấy ra nếu đăng nhập thành công. Bằng cách định nghĩa phát biểu Select để đọc bảng tblUsers để lấy giá trị cột FullName và UserID điền vào phần tử sô 0 và 1 của mảng my Values. Private Function Authenticate _ ByVai strUserName As string _ ByRef myValues As string As string Định nghĩa phát biểu SQL strSQL select UserID FullName strSQL - from tblUsers where UserName 11 strSQL strUserName r Phần tử thứ 0 là UserName truyền từ bên ngoài vào Dim myCom As SqlCommand Dim myRD As SqlDataReader Try myCom New SqlCommand strSQL myCon myRD Nếu tồn tại mẩu tin I f myRD. Read Then Lấy UserID và FullName myValues 0 _ 0 myValues 1 _ 1 Đăng nhập thành công strError - OK Else Không tồn tại UserNcưne trong bảng tblUsers strError - NOT