TAILIEUCHUNG - 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

TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã 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.