tailieunhanh - Ví dụ và bài tập Visual Basic.Net part 9

Tham khảo tài liệu 'ví dụ và bài tập visual part 9', 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ả | Chuyên dề 20 Đối tượng DataRow DataColumn Data. 377 A4 I dr. Item 3 n Then strTable default If 1 - Char Or _ l - Varchar Then strTable 3 Else strTable 3 End If End If If dr. Item 4 Then strTable - Null End If If 5 Then strTable - identity _ 6 7 End If 8 Then strTable - primary key End If strTable - Next strTable strTable _ - 1 strTable - Khai báo và khởi tạo đổi tượng cisDatabase Dim cis As New cisDatabase Gọi phương thức ExecuteSQL để tạo bảng dữ liệu strTable End Sub Lưu ý phương thức ExecuteSQL được định nghĩa trong lớp cisDatabase có cấu trúc Public Function ExecuteSQL _ ByVai strSQLAs string As string Dim myCom As SqlCommand Try myCom New SqlCommand strSQL myCon strError OK Catch ex As Exception strError - Finally s 378 Phần II Bài giải của bài tập End Try Return strError End Function Ngoài ra bạn cần khai báo để chọn giá trị mặc định mỗi khi người sử dụng nhấn vào nút New Column Private Sub btnNew_Click ByVai sender As System Obj ect ByVai e As Handles txtcolumn Text - 1 - 1 - True - False - False End Sub Chú ý nếu người sử dụng chọn vào tùy chọn Primary key lập tức tùy chọn Allow Null sẽ được loại bỏ Tương tự như vậy cho trường hợp người sử dụng chọn vào tùy chọn Allow Null lập tức tùy chọn Primary key sê bị loại bỏ. Để làm điều này bạn khai báo trong biến cô CheckedChanged của hai điều khiển CheckBox này như sau Private Sub chkAllowNull_CheckedChangeđ ByVai sender As ByVai e As Handles If chkAllowNull .Checked Then - False End If End Sub Private Sub chkPrimarykey_CheckedChanged ByVai sender As ByVaie As .