Help - DataGrid !!!
Совсем простой пример
Dim rs As ADODB.Recordset
rs.Fields.Append("field1", ADODB.DataTypeEnum.adVarChar, 100)
rs.Fields.Append("field2", ADODB.DataTypeEnum.adVarChar, 5)
rs.Open()
rs.AddNew()
rs.Fields(0).Value = "dfhdfhdfhfx"
rs.Fields(1).Value = "str1"
rs.Update()
DataGrid1.DataSource = rs
На последней строке выдает ошибку
Microsoft Visual Studio .NET 2002 Complex DataBinding accepts as a data source either an IList or an IListSource
В каком направлении двигаться???
Цитата:
Originally posted by Igorek K
Нужна помощь!!!
Совсем простой пример
Dim rs As ADODB.Recordset
rs.Fields.Append("field1", ADODB.DataTypeEnum.adVarChar, 100)
rs.Fields.Append("field2", ADODB.DataTypeEnum.adVarChar, 5)
rs.Open()
rs.AddNew()
rs.Fields(0).Value = "dfhdfhdfhfx"
rs.Fields(1).Value = "str1"
rs.Update()
DataGrid1.DataSource = rs
На последней строке выдает ошибку
Microsoft Visual Studio .NET 2002 Complex DataBinding accepts as a data source either an IList or an IListSource
В каком направлении двигаться???
Нужна помощь!!!
Совсем простой пример
Dim rs As ADODB.Recordset
rs.Fields.Append("field1", ADODB.DataTypeEnum.adVarChar, 100)
rs.Fields.Append("field2", ADODB.DataTypeEnum.adVarChar, 5)
rs.Open()
rs.AddNew()
rs.Fields(0).Value = "dfhdfhdfhfx"
rs.Fields(1).Value = "str1"
rs.Update()
DataGrid1.DataSource = rs
На последней строке выдает ошибку
Microsoft Visual Studio .NET 2002 Complex DataBinding accepts as a data source either an IList or an IListSource
В каком направлении двигаться???
А разве не
Set DataGrid1.DataSource = rs
Или это я чего-то путаю?:)
Цитата:
Originally posted by ragerage
А разве не
Set DataGrid1.DataSource = rs
Или это я чего-то путаю?:)
А разве не
Set DataGrid1.DataSource = rs
Или это я чего-то путаю?:)
Путаете, в общем разобрался, если интересно то рабочий вариант выглядит так:
Цитата:
Dim rs As ADODB.Recordset = New ADODB.Recordset
Dim custDS1 As DataSet = New DataSet
rs.Fields.Append("field1", ADODB.DataTypeEnum.adVarChar, 100)
rs.Fields.Append("field2", ADODB.DataTypeEnum.adVarChar, 5)
rs.Open()
rs.AddNew()
rs.Fields(0).Value = "dfhdfhdfhfx"
rs.Fields(1).Value = "str1"
rs.Update()
'DataGrid1.DataSource = rs
custDA.Fill(custDS1, rs, "Customers")
DataGrid1.DataSource = custDS1.Tables("Customers")