Comments on: about flexrgrid control

By: shasta88

shasta88 — Thu, 30 Jun 2005 16:24:37 +0000

I don’t use them, but Microsoft has a data bound grid control.

By: crvasquez

crvasquez — Wed, 22 Jun 2005 16:27:09 +0000

This code sample shows you how to load data from a database into a Flexgrid. It is the same concept to obtain the data from Flexgrid and put it into a database.

******************************************************

Private Sub Form_Load()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dbase As String
Dim sSQL As String
Dim iCount As Integer
Dim iField As Integer
Dim columnwidth() As Single
Dim fieldwidth As Single

‘ Get the data.
dbase = “c:somedatabase.mdb”

‘ Open a connection.
Set cn = New ADODB.Connection
cn.ConnectionString = _
“Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & dbase & “;” & _
“Persist Security Info=False”
cn.Open

‘ Select the data.
sSQL = “SELECT * FROM SOMETABLE”

‘ Create Recordset
Set rs = cn.Execute(sSQL)

‘ Define MSFlexGrid
‘ Use one fixed row and no fixed columns.
MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0

‘ Display column headers.
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = rs.Fields.Count
ReDim columnwidth(0 To rs.Fields.Count – 1)
For iCount = 0 To rs.Fields.Count – 1
MSFlexGrid1.TextMatrix(0, iCount) = rs.Fields(iCount).Name
columnwidth(iCount) = TextWidth(rs.Fields(iCount).Name)
Next

‘ Display the values for each row.
iField = 1
Do While Not rs.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
For iCount = 0 To rs.Fields.Count – 1
MSFlexGrid1.TextMatrix(iField, iCount) = _
rs.Fields(iCount).Value

‘ See how big the value is.
fieldwidth = TextWidth(rs.Fields(iCount).Value)
If columnwidth(iCount)