SQL Ergebnis in ein Array

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Manü.

    SQL Ergebnis in ein Array

    Hallo,

    brauche mal Unterstützung.
    Über Sql frage ich in einer Accesstabelle Zeiten ab.
    Bei Übereinstimmung sollen aus der zweiten Spalte der Tabelle (Aktion) die dort hinterlegten Werte in einem Array hinterlegt werden.
    In eine Listbox werde die Daten zur Zeit schon angezeigt.

    Kann mir jemand sagen wie ich diese Array befüllen kann?
    Ich habe hier schon mal mein Glück probiert, leider ohne Erfolg. Der Fehler steck in Zeile 33


    Visual Basic-Quellcode

    1. Private Sub subÖffnen()
    3. Dim itmX As ListItem
    5. Datei = "c:\Hauscontrol.mdb"
    7. Set db = New ADODB.Connection
    8. strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    9. Datei
    11. db.Open strdb
    12. Set rst = New ADODB.Recordset
    13. rst.CursorType = adOpenStatic
    14. rst.LockType = adLockOptimistic
    15. rst.Open "SELECT * FROM " & dsTabelle & " WHERE Zeit = " & "'" & dsFilter & "'", db
    17. ListView1.ListItems.Clear
    19. Do While Not rst.EOF
    20. Set itmX = ListView1.ListItems.Add(, , rst!Zeit)
    21. itmX.SubItems(1) = rst!Aktion
    24. rst.MoveNext
    26. Loop
    27. lblAnzDatensätze = rst.RecordCount
    31. If rst.RecordCount > 0 Then
    32. For a = 1 To rst.RecordCount
    33. Aktionen(a) = rst!Aktion
    34. Next a
    35. Else
    37. End If
    41. End Sub

    ahoi,

    als erstes würde ich meinen du hast evtl einen überlauf
    setz bei dem recordcount mal ein -1 dazu ;)

    Visual Basic-Quellcode

    1. For a = 1 To rst.RecordCount - 1
    ansonnsten solltest du schreiben was für ein fehler kommt
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de