[RESOLVED] Database to Flexgrid. Help

For some reason that I do not know of, The flexgrid is not showing the first fields inside my database. what is wrong?
why will it not show the first field inside my database?
how do I fix this error?

Code:

---

Private Sub LoadRec()
'THIS WILL LOAD DATABASE TO REFLEX GRID
Dim Y As String
Dim Rowcount As Integer
Rowcount = 2
Set DB = OpenDatabase(App.Path & "\Database\Products.mdb")
Y = "select * from Inventory where number <> ''"
Set Rec = DB.OpenRecordset(Y, dbOpenSnapshot)
If Rec.EOF = False Then
    Rec.MoveNext
    Do While Not Rec.EOF 'THIS WILL READ THE ROWCOUNT 1 BY 1 UNTIL IT REACHES 6 THEN ENDS
        If Rowcount >= 6 Then
          Grid.Rows = Grid.Rows + 1
        End If
        'THIS WILL READ THE DATABASE FIELDS
    Grid.TextMatrix(Rowcount, 0) = Rec!Number
    Grid.TextMatrix(Rowcount, 1) = Rec!Name
    Grid.TextMatrix(Rowcount, 2) = Rec!Price
    Grid.TextMatrix(Rowcount, 3) = Rec!Quantity
    Grid.TextMatrix(Rowcount, 4) = Rec!Vendor
    Grid.TextMatrix(Rowcount, 5) = Rec!Description
    Rowcount = Rowcount + 1
    Rec.MoveNext
    Loop
    DB.Close
End If
End Sub

---

Langamer

If I understand you properly ..

Quote:

---

The flexgrid is not showing the first fields

---

... means that all these statements are not executed

Code:

---

Private Sub LoadRec()
    'THIS WILL LOAD DATABASE TO REFLEX GRID
    Dim Y As String
    Dim Rowcount As Integer
    Rowcount = 2
    Set DB = OpenDatabase(App.Path & "\Database\Products.mdb")
    Y = "select * from Inventory where number <> ''"
    Set Rec = DB.OpenRecordset(Y, dbOpenSnapshot)
    If Rec.EOF = False Then
        Rec.MoveNext
        Do While Not Rec.EOF 'THIS WILL READ THE ROWCOUNT 1 BY 1 UNTIL IT REACHES 6 THEN ENDS
            If Rowcount >= 6 Then
              Grid.Rows = Grid.Rows + 1
            End If
            'THIS WILL READ THE DATABASE FIELDS
            Grid.TextMatrix(Rowcount, 0) = Rec!Number
            Grid.TextMatrix(Rowcount, 1) = Rec!Name
            Grid.TextMatrix(Rowcount, 2) = Rec!Price
            Grid.TextMatrix(Rowcount, 3) = Rec!Quantity
            Grid.TextMatrix(Rowcount, 4) = Rec!Vendor
            Grid.TextMatrix(Rowcount, 5) = Rec!Description
            Rowcount = Rowcount + 1
            Rec.MoveNext
        Loop
        DB.Close
    End If
End Sub

---

Actually, now that I think about it, I think this is the problem
Perhaps you mean Rec.MoveFirst?

Spoo

lol, that literally fixed my problem for ages. Freaking teacher giving me the wrong codes.
So Rec.Movefirst shall read the first field of my table inside the database? is that correct?
and rec.movenext shall read the next field which is the second field ignoring the first field of my database?
thanks Spoo.

Langamer

Quote:

---

So Rec.Movefirst shall read the first field of my table inside the database?
is that correct?

---

Sort of, but not the way I would phrase it ...

To start with, it might be useful to think of a database's terms using
an Excel spreadsheet analogy.

• Records in a database are like rows in a spreadsheet
• Fields in a database are like columns in a spreadsheet.

MoveFirst sets the "pointer" to the first record in the table.

It's like reading the first row in a spreadsheet.
So the field values returned would the all of the columns for row 1.

MoveNext advances the "pointer" to the second record in the table.
So no, it does not do this ...

Quote:

---

and rec.movenext shall read the next field which is the second field ignoring the first field of my database?

---

Rather it's like now looking at row 2 in a spreadsheet.
It does not ignore the first field.

Does that help clear things up?

Spoo