Hi there guys
Below is the code for the working datagrid
Below is the code for calling the rows of data into the datagrid
Public Sub MySqlReadData(ByVal MyADOConnection As MySqlConnection)
Dim MySqlDataAdapter As New MySqlDataAdapter("SELECT * FROM message ORDER BY id DESC", MyADOConnection)
Dim MySqlDataSet As New DataSet()
Try
If (MySqlDataAdapter.Fill(MySqlDataSet) > 0) Then
MySqlDataGrid.DataSource = MySqlDataSet.Tables(0)
End If
Catch MyError As MySqlException
MessageBox.Show("Error Connecting To Database")
End Try
End Sub
I created another sub class for dynamically programmed datagrid.
Private Function CreateTableStyle()
Dim TblStyle As New DataGridTableStyle()
TblStyle.MappingName = "Forex Trader"
Dim cbid As New ColumnStyles.DataGridLinkLabelColumn
AddHandler cbid.LinkClicked, AddressOf cbid_LinkClicked
cbid.MappingName = "id"
cbid.HeaderText = "Transaction No."
cbid.Width = 40
Dim cbuser As New DataGridTextBoxColumn
cbuser.MappingName = "User"
cbuser.HeaderText = "User"
cbuser.Width = 40
Dim cbamount As New DataGridTextBoxColumn
cbamount.MappingName = "Amount"
cbamount.HeaderText = "Amount"
cbamount.Width = 40
Dim cbamountcurrency As New DataGridTextBoxColumn
cbamountcurrency.MappingName = "Amount_Currency"
cbamountcurrency.HeaderText = "Amount Currency"
cbamountcurrency.Width = 40
Dim cbtask As New DataGridTextBoxColumn
cbtask.MappingName = "Task"
cbtask.HeaderText = "Task"
cbtask.Width = 40
Dim cbrate As New DataGridTextBoxColumn
cbrate.MappingName = "Rate"
cbrate.HeaderText = "Rate"
cbrate.Width = 40
Dim cbratecurrency As New DataGridTextBoxColumn
cbratecurrency.MappingName = "Rate_Currency"
cbratecurrency.HeaderText = "Rate Currency"
cbratecurrency.Width = 40
TblStyle.GridColumnStyles.Add(cbid)
TblStyle.GridColumnStyles.Add(cbamount)
TblStyle.GridColumnStyles.Add(cbamountcurrency)
TblStyle.GridColumnStyles.Add(cbtask)
TblStyle.GridColumnStyles.Add(cbrate)
TblStyle.GridColumnStyles.Add(cbratecurrency)
MySqlDataGrid.TableStyles.Add(TblStyle)
Return TblStyle
End Function
What am I missing?