DataBound Flex grid

[sumit_karan]

Hi All.
Does anyone have any source that binds a
msflexgrid to an ado recordset?
I dont think it works, Im hoping someone can
prove me wrong.

[Iouri]

It is much better to enter records to the flexgrid without using bound controls

Here the code how to enter rs to flexgrid

Set MyCon = CreateObject("ADODB.Connection")
MyCon.Open "dsn=TestDB_dsn"


Set ADC = CREATEOBJECT("ADODB.RECORDSET")

ADC.Open "SELECT * FROM " & r, MyCon, , , adOpenKeyset

MSFlexGrid1.Cols = ADC.Fields.Count + 1

Dim V

Do While Not ADC.EOF
V = V + 1
ADC.MoveNext
Loop

ADC.MoveFirst
MSFlexGrid1.Rows = V + 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 1
ADC.MoveFirst
Dim MyResource
MyResource = ADC.GetString

MsFlexGrid1.Cols = ADC.Fields.Count
For X = 0 To ADC.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, X) = ADC.Fields(X).Name
Next
MSFLEXGRID1.Row = 1
MSFLEXGRID1.Col = 0
MSFLEXGRID1.RowSel = MSFLEXGRID1.Rows - 1
MSFLEXGRID1.ColSel = MSFLEXGRID1.Cols - 1
MSFLEXGRID1.Clip = MyResource
MSFLEXGRID1.RowSel = MSFLEXGRID1.Row
MSFLEXGRID1.ColSel = MSFLEXGRID1.Col


Iouri Boutchkine
[email protected]