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