brettawv
asked on
ExtendedDataGrid datasource problem
I am trying to use the third party extendeddatagrid component. I am using this with vb.net. I have it working succesfully with an IList, but I am unable to get it to work with an oledb datasource. It doesn't seem my datasource no matter what I try. What am I missing? Any help would be greatly appreciated. Here is the code I'm using under button1 that works:
Dim SqlString As String
Dim DS As New DataSet
Dim ConnStr As String = "Provider=Microsoft.Jet.OL EDB.4.0;Da ta Source=C:\Program Files\awv binder\DATA\extdatgrid.mdb "
Dim MyConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Conn Str)
SqlString = "SELECT * From customer"
Dim MyDataAdapter As New OleDb.OleDbDataAdapter(Sql String, MyConn)
MyDataAdapter.Fill(DS, "customer")
Dim c1 As New Customer
c1.Name = DS.Tables("customer").Rows (0).Item(" Name")
c1.Importance = DS.Tables("customer").Rows (0).Item(" Importance ")
c1.Description = DS.Tables("customer").Rows (0).Item(" Descriptio n")
Dim cust() As Customer = {c1}
ExtendedDataGrid2.DataSour ce = cust
Dim t1 As ProgressBarColumnControl = New ProgressBarColumnControl
Dim t2 As MultiLineTextBox = New MultiLineTextBox
Dim ts1 As Leadit.ExtendedDataGrid.Ex tendedData GridTableS tyle = New Leadit.ExtendedDataGrid.Ex tendedData GridTableS tyle
ts1.MappingName = ExtendedDataGrid2.DataSour ce.GetType .Name
Dim NameCol As DataGridTextBoxColumn = New DataGridTextBoxColumn
NameCol.MappingName = "Name"
NameCol.HeaderText = "Name"
NameCol.Width = 75
NameCol.ReadOnly = True
ts1.GridColumnStyles.Add(N ameCol)
Dim ImportanceCol As Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn = New Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn
ImportanceCol.Control = t1.GetType()
ImportanceCol.MappingName = "Importance"
ImportanceCol.HeaderText = "Importance"
ImportanceCol.Width = 75
ts1.GridColumnStyles.Add(I mportanceC ol)
Dim DescriptionCol As Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn = New Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn
DescriptionCol.Control = t2.GetType()
DescriptionCol.MappingName = "Description"
DescriptionCol.HeaderText = "Description"
DescriptionCol.Width = 200
'DescriptionCol.ReadOnly = True
ts1.GridColumnStyles.Add(D escription Col)
ts1.PreferredRowHeight = 40
ExtendedDataGrid2.TableSty les.Add(ts 1)
Here is the code under button1 that doesn't work:
Dim SqlString As String
Dim DS As New DataSet
Dim ConnStr As String = "Provider=Microsoft.Jet.OL EDB.4.0;Da ta Source=C:\Program Files\awv binder\DATA\extdatgrid.mdb "
Dim MyConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Conn Str)
SqlString = "SELECT * From customer"
Dim MyDataAdapter As New OleDb.OleDbDataAdapter(Sql String, MyConn)
MyDataAdapter.Fill(DS, "customer")
Dim c1 As New Customer
c1.Name = DS.Tables("customer").Rows (0).Item(" Name")
c1.Importance = DS.Tables("customer").Rows (0).Item(" Importance ")
c1.Description = DS.Tables("customer").Rows (0).Item(" Descriptio n")
'Dim cust() As Customer = {c1}
ExtendedDataGrid2.DataSour ce = DS
ExtendedDataGrid2.DataMemb er = "customer"
Dim t1 As ProgressBarColumnControl = New ProgressBarColumnControl
Dim t2 As MultiLineTextBox = New MultiLineTextBox
Dim ts1 As Leadit.ExtendedDataGrid.Ex tendedData GridTableS tyle = New Leadit.ExtendedDataGrid.Ex tendedData GridTableS tyle
ts1.MappingName = "customer"
'ExtendedDataGrid2.DataSou rce.GetTyp e.Name()
Dim NameCol As DataGridTextBoxColumn = New DataGridTextBoxColumn
NameCol.MappingName = "Name"
NameCol.HeaderText = "Name"
NameCol.Width = 75
NameCol.ReadOnly = True
ts1.GridColumnStyles.Add(N ameCol)
Dim ImportanceCol As Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn = New Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn
ImportanceCol.Control = t1.GetType()
ImportanceCol.MappingName = "Importance"
ImportanceCol.HeaderText = "Importance"
ImportanceCol.Width = 75
ts1.GridColumnStyles.Add(I mportanceC ol)
Dim DescriptionCol As Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn = New Leadit.ExtendedDataGrid.Ex tendedData GridContro lColumn
DescriptionCol.Control = t2.GetType()
DescriptionCol.MappingName = "Description"
DescriptionCol.HeaderText = "Description"
DescriptionCol.Width = 200
'DescriptionCol.ReadOnly = True
ts1.GridColumnStyles.Add(D escription Col)
ts1.PreferredRowHeight = 40
ExtendedDataGrid2.TableSty les.Add(ts 1)
Please Help!
Dim SqlString As String
Dim DS As New DataSet
Dim ConnStr As String = "Provider=Microsoft.Jet.OL
Dim MyConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Conn
SqlString = "SELECT * From customer"
Dim MyDataAdapter As New OleDb.OleDbDataAdapter(Sql
MyDataAdapter.Fill(DS, "customer")
Dim c1 As New Customer
c1.Name = DS.Tables("customer").Rows
c1.Importance = DS.Tables("customer").Rows
c1.Description = DS.Tables("customer").Rows
Dim cust() As Customer = {c1}
ExtendedDataGrid2.DataSour
Dim t1 As ProgressBarColumnControl = New ProgressBarColumnControl
Dim t2 As MultiLineTextBox = New MultiLineTextBox
Dim ts1 As Leadit.ExtendedDataGrid.Ex
ts1.MappingName = ExtendedDataGrid2.DataSour
Dim NameCol As DataGridTextBoxColumn = New DataGridTextBoxColumn
NameCol.MappingName = "Name"
NameCol.HeaderText = "Name"
NameCol.Width = 75
NameCol.ReadOnly = True
ts1.GridColumnStyles.Add(N
Dim ImportanceCol As Leadit.ExtendedDataGrid.Ex
ImportanceCol.Control = t1.GetType()
ImportanceCol.MappingName = "Importance"
ImportanceCol.HeaderText = "Importance"
ImportanceCol.Width = 75
ts1.GridColumnStyles.Add(I
Dim DescriptionCol As Leadit.ExtendedDataGrid.Ex
DescriptionCol.Control = t2.GetType()
DescriptionCol.MappingName
DescriptionCol.HeaderText = "Description"
DescriptionCol.Width = 200
'DescriptionCol.ReadOnly = True
ts1.GridColumnStyles.Add(D
ts1.PreferredRowHeight = 40
ExtendedDataGrid2.TableSty
Here is the code under button1 that doesn't work:
Dim SqlString As String
Dim DS As New DataSet
Dim ConnStr As String = "Provider=Microsoft.Jet.OL
Dim MyConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Conn
SqlString = "SELECT * From customer"
Dim MyDataAdapter As New OleDb.OleDbDataAdapter(Sql
MyDataAdapter.Fill(DS, "customer")
Dim c1 As New Customer
c1.Name = DS.Tables("customer").Rows
c1.Importance = DS.Tables("customer").Rows
c1.Description = DS.Tables("customer").Rows
'Dim cust() As Customer = {c1}
ExtendedDataGrid2.DataSour
ExtendedDataGrid2.DataMemb
Dim t1 As ProgressBarColumnControl = New ProgressBarColumnControl
Dim t2 As MultiLineTextBox = New MultiLineTextBox
Dim ts1 As Leadit.ExtendedDataGrid.Ex
ts1.MappingName = "customer"
'ExtendedDataGrid2.DataSou
Dim NameCol As DataGridTextBoxColumn = New DataGridTextBoxColumn
NameCol.MappingName = "Name"
NameCol.HeaderText = "Name"
NameCol.Width = 75
NameCol.ReadOnly = True
ts1.GridColumnStyles.Add(N
Dim ImportanceCol As Leadit.ExtendedDataGrid.Ex
ImportanceCol.Control = t1.GetType()
ImportanceCol.MappingName = "Importance"
ImportanceCol.HeaderText = "Importance"
ImportanceCol.Width = 75
ts1.GridColumnStyles.Add(I
Dim DescriptionCol As Leadit.ExtendedDataGrid.Ex
DescriptionCol.Control = t2.GetType()
DescriptionCol.MappingName
DescriptionCol.HeaderText = "Description"
DescriptionCol.Width = 200
'DescriptionCol.ReadOnly = True
ts1.GridColumnStyles.Add(D
ts1.PreferredRowHeight = 40
ExtendedDataGrid2.TableSty
Please Help!
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I set it up through the forms designer and it still doesn't work.
ASKER
OK I got it to work, however it doesn't show up until I click on a grid cell. Is there a way to have them show up when the grid is filled.
ASKER