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"
015.
016.
dtAdapter =
New
OleDbDataAdapter(strSQL, objConn)
017.
dtAdapter.Fill(dt)
018.
019.
dtAdapter =
Nothing
020.
objConn.Close()
021.
objConn =
Nothing
022.
023.
Me
.myDgv.DataSource = dt
024.
025.
026.
Me
.myDgv.Columns.Clear()
027.
028.
With
myDgv.ColumnHeadersDefaultCellStyle
029.
.BackColor = Color.Navy
030.
.ForeColor = Color.White
031.
.Font =
New
Font(songsDataGridView.Font, FontStyle.Bold)
032.
End
With
033.
034.
Dim
ColumnTextBox
As
DataGridViewTextBoxColumn
035.
036.
037.
038.
039.
040.
Dim
ColumnCheckBox
As
New
DataGridViewCheckBoxColumn()
041.
ColumnCheckBox.Width = 30
042.
ColumnCheckBox.DataPropertyName =
"Select"
043.
Me
.myDgv.Columns.Add(ColumnCheckBox)
044.
045.
046.
Dim
ckBox
As
New
CheckBox()
047.
Dim
rect
As
Rectangle = myDgv.GetCellDisplayRectangle(0, -1,
True
)
048.
ckBox.Size =
New
Size(18, 18)
049.
rect.X = rect.Location.X + (rect.Width / 4)
050.
ckBox.Location = rect.Location
051.
AddHandler
ckBox.CheckedChanged,
New
EventHandler(
AddressOf
ckBox_CheckedChanged)
052.
Me
.myDgv.Controls.Add(ckBox)
053.
054.
myDgv.Columns(0).Frozen =
False
055.
056.
057.
ColumnTextBox =
New
DataGridViewTextBoxColumn()
058.
ColumnTextBox.DataPropertyName =
"CustomerID"
059.
ColumnTextBox.HeaderText =
"CustomerID"
060.
ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
061.
ColumnTextBox.Width = 100
062.
Me
.myDgv.Columns.Add(ColumnTextBox)
063.
064.
065.
ColumnTextBox =
New
DataGridViewTextBoxColumn()
066.
ColumnTextBox.DataPropertyName =
"Name"
067.
ColumnTextBox.HeaderText =
"Name"
068.
ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
069.
ColumnTextBox.Width = 100
070.
Me
.myDgv.Columns.Add(ColumnTextBox)
071.
072.
073.
ColumnTextBox =
New
DataGridViewTextBoxColumn()
074.
ColumnTextBox.DataPropertyName =
"Email"
075.
ColumnTextBox.HeaderText =
"Email"
076.
ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
077.
ColumnTextBox.Width = 100
078.
Me
.myDgv.Columns.Add(ColumnTextBox)
079.
080.
081.
ColumnTextBox =
New
DataGridViewTextBoxColumn()
082.
ColumnTextBox.DataPropertyName =
"CountryCode"
083.
ColumnTextBox.HeaderText =
"CountryCode"
084.
ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
085.
ColumnTextBox.Width = 100
086.
Me
.myDgv.Columns.Add(ColumnTextBox)
087.
088.
089.
ColumnTextBox =
New
DataGridViewTextBoxColumn()
090.
ColumnTextBox.DataPropertyName =
"Budget"
091.
ColumnTextBox.HeaderText =
"Budget"
092.
ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
093.
ColumnTextBox.Width = 100
094.
Me
.myDgv.Columns.Add(ColumnTextBox)
095.
096.
097.
ColumnTextBox =
New
DataGridViewTextBoxColumn()
098.
ColumnTextBox.DataPropertyName =
"Used"
099.
ColumnTextBox.HeaderText =
"Used"
100.
ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
101.
ColumnTextBox.Width = 100
102.
Me
.myDgv.Columns.Add(ColumnTextBox)
103.
104.
End
Sub