Učebnice pro střední školy Visual Basic 6.0 autor David Morkes vydavatel Computer Press.
Můžeš mi ještě pomoct při zobrazování dat?

Private Sub Form_Load()
Dim strSQL As String
Dim rso As rdoResultset
Dim PocetRad As Integer
flxResult.TextMatrix(0, 0) = "Titul"
flxResult.TextMatrix(0, 1) = "Jméno"
flxResult.TextMatrix(0, 2) = "Příjmení"
flxResult.TextMatrix(0, 3) = "Plat (Kč)"
flxResult.TextMatrix(0, 4) = "Poznámka"
flxResult.ColWidth(0) = 1000
flxResult.ColWidth(1) = 1500
flxResult.ColWidth(2) = 1500
flxResult.ColWidth(3) = 1000
flxResult.ColWidth(4) = 3300

strSQL = "SELECT * FROM SezPrac Order By prijmeni"
Set rso = cn.OpenResultset(strSQL, rdOpenStatic)
flxResult.Redraw = False
PocetRad = 0
Do While Not rso.EOF
flxResult.AddItem ""
flxResult.TextMatrix(flxResult.Rows - 1, 0) = rso!Titul
flxResult.TextMatrix(flxResult.Rows - 1, 1) = rso!Jméno
flxResult.TextMatrix(flxResult.Rows - 1, 2) = rso!Příjmení
flxResult.TextMatrix(flxResult.Rows - 1, 3) = rso!Plat
flxResult.TextMatrix(flxResult.Rows - 1, 4) = rso!Poznámka
rso.MoveNext
PocetRad = PocetRad + 1
Loop
If PocetRad > 0 Then flxResult.RemoveItem 1
flxResult.Redraw = True
flxResult.Refresh
Set rso = Nothing
End Sub

Hlášení: Object Collection: Couldn't find item indicated by text.

Díky