tailieunhanh - Ebook Ví dụ & Bài tập Visual Basic.NET – Lập trình cơ sở dữ liệu & Report: Phần 2

Cuốn sách gồm 8 chuyên đề chính, xuyên suốt từ đối tượng Connection, Command, DataReader, DataAdater, DataSet, DataTable, DataView, DataRow, DataColumn, DataRelation đến việc trình bày dữ liệu trên các điều khiển và xây dựng các lớp dùng chung. Sách gồm 2 phần, sau đây là phần 2. Mời bạn đọc tham khảo. | 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

crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.