Subroutine that anyFlexGrid with a specific Recordset

Category:

Database

Type:

Modules

Difficulty:

Intermediate

Author:

Anonymous

Version Compatibility: Visual Basic 6

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Sub FillGrid(DataGrd As MSFlexGrid, DataRs As Recordset)
    Dim I, J
    
    If Not ((DataRs.EOF) And (DataRs.BOF)) Then
        DataRs.MoveLast
        DataRs.MoveFirst
        DataGrd.Cols = 6 'DataRs.Fields.Count - 1
        DataGrd.Rows = 10 'DataRs.RecordCount + 1
        'get header from the table
        'For I = 0 To DataRs.Fields.Count - 1
        For I = 0 To 4
           PutDataInGrid DataGrd, DataRs.Fields(I).Name, 0, I
        Next I
        'get data from table
        J = 1
        Do Until DataRs.EOF
            'For I = 0 To DataRs.Fields.Count
            For I = 0 To 4
                If IsNull(DataRs.Fields(I).Value) Then
                    PutDataInGrid DataGrd, "", J, I
                Else
                    PutDataInGrid DataGrd, DataRs.Fields(I).Value, J, I
                End If
            Next I
            DataRs.MoveNext
            J = J + 1
        Loop
    End If
End Sub
Sub PutDataInGrid(DataGrd As MSFlexGrid, Dtxt, ByVal RO As Integer, ByVal CL As Integer)
    DataGrd.Row = RO
    DataGrd.Col = CL
    DataGrd.Text = Dtxt
End Sub