Alle Datensätze anzeigen lassen

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Maxim.

    Alle Datensätze anzeigen lassen

    Hi,

    ich möchte alle Datensätze, die ich aus einer Tabelle auslese, in einem ListBox oder ähnlichem z.B. DataGrid anzeigen lassen.
    Die sql Anweisung stimmt. Ich weiß nur nicht, wie ich die datensätze aus dem recordset in einem DataGrid Fenster anzeigen lassen kann.
    Bitte um kurzen Beispielcode. Am besten wäre es, wenn ich die Datensätze dann im DataGrid noch anklicken könnte.
    Bitte um HILFE.

    Auf ANFRAGE: :)
    ich habe diese "Problem" damals so gelöst.

    Visual Basic-Quellcode

    1. 'Ausgabe auf MSFlexGrid
    2. While (Not rs.EOF)
    5. Form3.MSFlexGrid1.Row = zeile 'Erste Datenspalte auswählen
    6. Form3.MSFlexGrid1.Col = 0
    7. Form3.MSFlexGrid1.Text = rs!Kundennummer 'Text in aktueller Zelle eintragen.
    8. Form3.MSFlexGrid1.Col = 1
    9. Form3.MSFlexGrid1.Text = rs!anrede
    10. Form3.MSFlexGrid1.Col = 2
    11. Form3.MSFlexGrid1.Text = rs!nachname
    13. Form3.MSFlexGrid1.Col = 3
    14. Form3.MSFlexGrid1.Text = rs!vorname
    15. Form3.MSFlexGrid1.Col = 4
    16. sPrepaidkontoformat = Format(rs!prepaidkonto, "00.00")
    17. Form3.MSFlexGrid1.Text = sPrepaidkontoformat
    18. Form3.MSFlexGrid1.Col = 5
    19. Form3.MSFlexGrid1.Text = iausgeliehen
    20. Form3.MSFlexGrid1.Col = 6
    21. Form3.MSFlexGrid1.Text = ireserviert
    23. 'Progresbar laden/befühlen
    24. If (Form1.ProgressBarKundenstammanzeigen.Value < i - 1) Then
    25. Form1.ProgressBarKundenstammanzeigen.Value = CInt(Form1.ProgressBarKundenstammanzeigen.Value) + 1
    26. Else: Form1.ProgressBarKundenstammanzeigen.Value = 0
    27. End If
    29. If (Form3.ProgressBarKundenstamm.Value < i - 1) Then
    30. Form3.ProgressBarKundenstamm.Value = CInt(Form3.ProgressBarKundenstamm.Value) + 1
    31. Else:
    32. Form3.ProgressBarKundenstamm.Value = 0
    33. End If
    35. rs.MoveNext
    36. zeile = zeile + 1
    37. Wend

Facebook
Telefonspende