001.Private Sub PopulateData()
002.
003.
004. Dim objConn As OleDbConnection
005. Dim dtAdapter As OleDbDataAdapter
006. Dim dt As New DataTable
007.
008. Dim strConnString As String
009. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydatabase.mdb"
010. objConn = New OleDbConnection(strConnString)
011. objConn.Open()
012.
013. Dim strSQL As String
014. strSQL = "SELECT * FROM customer WHERE 1=1 "
015. If strKeyWord <> "" Then
016. strSQL = strSQL & " AND Name Like '%" & strKeyWord & "%' "
017. End If
018.
019. dtAdapter = New OleDbDataAdapter(strSQL, objConn)
020. dtAdapter.Fill(dt)
021.
022. dtAdapter = Nothing
023. objConn.Close()
024. objConn = Nothing
025.
026. Me.myDgv.DataSource = dt
027.
028.
029. Me.myDgv.Columns.Clear()
030.
031. With myDgv.ColumnHeadersDefaultCellStyle
032. .BackColor = Color.Navy
033. .ForeColor = Color.White
034. .Font = New Font(songsDataGridView.Font, FontStyle.Bold)
035. End With
036.
037. Dim ColumnTextBox As DataGridViewTextBoxColumn
038.
039.
040.
041.
042.
043. Dim ColumnCheckBox As New DataGridViewCheckBoxColumn()
044. ColumnCheckBox.Width = 30
045. ColumnCheckBox.DataPropertyName = "Select"
046. Me.myDgv.Columns.Add(ColumnCheckBox)
047.
048.
049. Dim ckBox As New CheckBox()
050. Dim rect As Rectangle = myDgv.GetCellDisplayRectangle(0, -1, True)
051. ckBox.Size = New Size(18, 18)
052. rect.X = rect.Location.X + (rect.Width / 4)
053. ckBox.Location = rect.Location
054. AddHandler ckBox.CheckedChanged, New EventHandler(AddressOf ckBox_CheckedChanged)
055. Me.myDgv.Controls.Add(ckBox)
056.
057. myDgv.Columns(0).Frozen = False
058.
059.
060. ColumnTextBox = New DataGridViewTextBoxColumn()
061. ColumnTextBox.DataPropertyName = "CustomerID"
062. ColumnTextBox.HeaderText = "CustomerID"
063. ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
064. ColumnTextBox.Width = 100
065. Me.myDgv.Columns.Add(ColumnTextBox)
066.
067.
068. ColumnTextBox = New DataGridViewTextBoxColumn()
069. ColumnTextBox.DataPropertyName = "Name"
070. ColumnTextBox.HeaderText = "Name"
071. ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
072. ColumnTextBox.Width = 100
073. Me.myDgv.Columns.Add(ColumnTextBox)
074.
075.
076. ColumnTextBox = New DataGridViewTextBoxColumn()
077. ColumnTextBox.DataPropertyName = "Email"
078. ColumnTextBox.HeaderText = "Email"
079. ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
080. ColumnTextBox.Width = 100
081. Me.myDgv.Columns.Add(ColumnTextBox)
082.
083.
084. ColumnTextBox = New DataGridViewTextBoxColumn()
085. ColumnTextBox.DataPropertyName = "CountryCode"
086. ColumnTextBox.HeaderText = "CountryCode"
087. ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
088. ColumnTextBox.Width = 100
089. Me.myDgv.Columns.Add(ColumnTextBox)
090.
091.
092. ColumnTextBox = New DataGridViewTextBoxColumn()
093. ColumnTextBox.DataPropertyName = "Budget"
094. ColumnTextBox.HeaderText = "Budget"
095. ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
096. ColumnTextBox.Width = 100
097. Me.myDgv.Columns.Add(ColumnTextBox)
098.
099.
100. ColumnTextBox = New DataGridViewTextBoxColumn()
101. ColumnTextBox.DataPropertyName = "Used"
102. ColumnTextBox.HeaderText = "Used"
103. ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
104. ColumnTextBox.Width = 100
105. Me.myDgv.Columns.Add(ColumnTextBox)
106.
107. End Sub
108.
109. Private Sub ckBox_CheckedChanged()
110. Dim i As Integer = 0
111. For j As Integer = 0 To Me.myDgv.RowCount - 1
112. Me.myDgv(0, j).Value = True
113. Next
114. End Sub
