Đang chuẩn bị liên kết để tải về tài liệu:
Ví dụ và bài tập Visual Basic.Net part 10

Tham khảo tài liệu 'ví dụ và bài tập visual basic.net part 10', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | s 424 Phần II Bài giải của bài tập Lưu ý để ví dụ trên thực thi đúng bạn khai báo 3 biến dùng chung trên phần đầu của lớp như sau Dim dtCustomers As New DataTable Dim myCls As New cisDatabase Dim MaxRecord As Integer - 60 Chuyên đề 22ỉ Lớp dữ liệu cho từng thực thể 425 s Chuyên đề 22 LỚP DỮ LIỆU CHO TỪNG THựC THỂ 1. THẢO LUẬN GIẢI PHÁP TƯƠNG TÁC cơ SỞ DỮ LIỆU Không có bài tập. 2. XÂY DựNG LỚP BAO GồM CÁC THUỘC TÍNH VÀ PHƯƠNG THỨC CỦA TỪNG BẢNG DỮ LIỆU 1. Xây dựng Shared Assembly có tên SQLDatabase bao gồm các phương thức cho phép thực hiện cắc tác vụ thêm cập nhật xóa và truy vấn dữ liệu SQL Server. Để xây dựng Assembly này trước tiền bạn tạo mới Project thuộc loại ClassLibrary và đặt tên Project tùy ý. Kế đến khai báo lớp SQLDatabase có cấu trúc tuần tự như sau. Khai báo biến sử dụng chung và Constructor nhận chuỗi kết nốì cơ sở dữ liệu. Imports System.Data.Sqlciient Public Class SQLDatabase Private psCon As string Public strError As string Dim myCon As SqlConnection Khai báo Constructor Sub New ByVai strCon As string psCon strCon psCon - server- gsServer psCon database- gsDatabase psCon Integrated Security-SSPI End Sub Sub New End Sub Khai bảo thuộc tính Property Connection As string íẫT 426 Phắn ĨI Bài giải của bài tập Get Return psCon End Get Set ByVai Value As string psCon - Value End Set End Property Tiếp theo bạn khai báo phương thức để mở và đóng kết nô i cơ sở dữ liệu SQL Server. Mở kết nối ca sở dữ liệu Public Function OpenConnection As string Try myCon New SqlConnection psCon lĩiyCon . Open strError - OK Catch eq As SqlException strError eq.Message Catch ex As Exception strError ex.Message End Try Return strError End Function Đóng kết nối cơ sà dữ liệu Public Sub CloseConnection I f myCon .State _ Connectionstate.Closed Then myCon.Close myCon.Dispose End If End Sub Khai báo phương thức thực thi phát biểu SQL dạng hành động bằng phương thức ExecuteNonQuery. Public Sub ExecuteSQL ByVai strSQL As string ByRef Ef fectedRecord As Integer Try Khai báo vả khởi