Datareader - unterschiedliche Ergebnisse

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von simpelSoft.

    Datareader - unterschiedliche Ergebnisse

    Hallo

    Ich versuche in Visual Basic 2010 Express eine DBF-Datenbank auszulesen, wobei gegebenenfalls mehrere Abfragen hintereinander erforderlich sind.
    Bei dem beigeschlossenen Beispiel verstehe ich nicht, warum bei dem ersten Aufruf 10 und bei dem zweiten Aufruf null Treffer gefunden werden.
    Vielen Dank für Eure Hilfe

    Sub main()
    Dim db_sql As String

    db_sql = "select * from ADRESSEN where NAME like 'x%'"
    Call db_abfrage(db_sql)

    Call db_abfrage(db_sql)
    End Sub

    Private Sub db_abfrage(ByVal db_sql As String)
    Dim db_constr As String = "Provider = Microsoft.jet.oledb.4.0; data source = c:\;Extended Properties=dBase IV"
    Dim db_table As New DataTable()

    Using db_conn As New System.Data.OleDb.OleDbConnection(db_constr)
    db_conn.Open()

    Using db_cmd As New OleDb.OleDbCommand(db_sql, db_conn)
    Using db_DataReader As OleDb.OleDbDataReader = db_cmd.ExecuteReader()
    db_table.Load(db_DataReader)
    db_DataReader.Close()
    End Using
    End Using
    db_conn.Close()
    End Using

    MsgBox(db_table.Rows.Count)
    End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „stauder“ ()

    Hallo

    Bei dem Einfügen schienen die Zeileneinschübe noch da zu sein. Bin ein ungeübter Forenschreiber. Ein neuer Versuch mit manuellem EInschub:

    Quellcode

    1. Sub main()
    2. Dim db_sql As String
    4. db_sql = "select * from ADRESSEN where NAME like 'x%'"
    5. db_abfrage(db_sql)
    7. db_abfrage(db_sql)
    8. End Sub
    10. Private Sub db_abfrage(ByVal db_sql As String)
    12. Dim db_constr As String = "Provider = Microsoft.jet.oledb.4.0; data source = c:\;Extended Properties=dBase IV"
    13. Dim db_table As New DataTable()
    15. Using db_conn As New System.Data.OleDb.OleDbConnection(db_constr)
    16. db_conn.Open()
    18. Using db_cmd As New OleDb.OleDbCommand(db_sql, db_conn)
    19. Using db_DataReader As OleDb.OleDbDataReader = db_cmd.ExecuteReader()
    20. db_table.Load(db_DataReader)
    21. db_DataReader.Close()
    22. End Using
    23. End Using
    24. db_conn.Close()
    25. End Using
    27. MsgBox(db_table.Rows.Count)
    28. End Sub

    Nächster Versuch:

    VB.NET-Quellcode

    1. Sub main()
    2. Dim db_sql As String
    4. db_sql = "select * from ADRESSEN where NAME like 'x%'"
    5. db_abfrage(db_sql)
    7. db_abfrage(db_sql)
    8. End Sub
    10. Private Sub db_abfrage(ByVal db_sql As String)
    11. Dim db_constr As String = "Provider = Microsoft.jet.oledb.4.0; data source = c:\;Extended Properties=dBase IV"
    12. Dim db_table As New DataTable()
    14. Using db_conn As New System.Data.OleDb.OleDbConnection(db_constr)
    15. db_conn.Open()
    17. Using db_cmd As New OleDb.OleDbCommand(db_sql, db_conn)
    18. Using db_DataReader As OleDb.OleDbDataReader = db_cmd.ExecuteReader()
    19. db_table.Load(db_DataReader)
    20. db_DataReader.Close()
    21. End Using
    22. End Using
    23. db_conn.Close()
    24. End Using
    26. MsgBox(db_table.Rows.Count)
    27. End Sub

    stauder schrieb:

    Kann es sich um ein Problem mit der DBF-Datei und nicht der Programmlogik handeln?


    Möglich wäre es, denn zumindest bei der Query sehe ich keinen Grund, das nur 1x geliefert wird.
    Was den Rest des Codes angeht - mit OleDb habe ich keine Erfahrung.
    Du könntest die DBF übrigens auch problemlos in eine modernere Datenbank wandeln (z.B. MySQL oder SQlite) und damit arbeiten, falls es Dein Projekt zulässt.

    Nachtrag: ich habe Deinen Code kurz überflogen - alles hast Du uns aber nicht gezeigt? Was machst Du denn mit der gefüllten DataTable? Ich sehe da nichts.

Facebook
Telefonspende