• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Populate Msflexgrid through Recordset

Populate Msflexgrid through Recordset

Populate Msflexgrid through Recordset

API Declarations


' in mycase name of msflexgrid is dbplayer



Rate Populate Msflexgrid through Recordset

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Public Sub populateDB(rss As Recordset)
Dim x As Integer
Dim dbrows As Integer
    dbplayer.Cols = rss.Fields.Count
    dbplayer.Rows = rss.RecordCount + 1
    dbplayer.Row = 0
    Do Until x = dbplayer.Cols
        dbplayer.Col = x
        dbplayer.Text = UCase(rss.Fields(x).Name)
        dbplayer.BackColorSel = &H8000000B
        x = x + 1
    Loop
    x = 0
    
    dbrows = 1
    Do Until dbrows = rss.RecordCount + 1
    Do Until x = dbplayer.Cols
        dbplayer.Col = x
        dbplayer.Row = dbrows
        dbplayer.Text = UCase(rss.Fields(x))
        dbplayer.BackColorSel = &H8000000B
        x = x + 1
    Loop
    x = 0
    dbrows = dbrows + 1
    rss.MoveNext

    Loop

End Sub