Đ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 9

Tham khảo tài liệu 'ví dụ và bài tập visual basic.net 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 dr.Item 1 - Char Or _ dr.Item l - Varchar Then strTable dr.Item 3 Else strTable dr.Item 3 End If End If If dr. Item 4 Then strTable - Null End If If dr.Item 5 Then strTable - identity _ dr.Item 6 dr.Item 7 End If Ifdr.Item 8 Then strTable - primary key End If strTable - Next strTable X.Left strTable _ strTable.Length - 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 cls.ExecuteSQL 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 myCom.ExecuteNonQuery strError OK Catch ex As Exception strError - ex.Message 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 System.EventArgs Handles btnNew.Click txtTableName.Text txtcolumn Text cbType.SelectedValue txtMaxLength.Text txtDefault.Text txtlncrementSeed.Text - 1 txtincrementstep.Text - 1 chkAllowNull.Checked - True chkAutoIncrement.Checked - False chkPrimarykey.Checked - 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 System.Object ByVai e As System.EventArgs Handles chkAllowNull.CheckedChangeđ If chkAllowNull .Checked Then chkPrimarykey.Checked - False End If End Sub Private Sub chkPrimarykey_CheckedChanged ByVai sender As System.Object ByVaie As .