Tabellen auslesen funktioniert nicht

  • VB.NET

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

    Tabellen auslesen funktioniert nicht

    Hallo Zusammen,

    ich bin Umsteiger von VB6 auf VB2010 und versuche, ein von mir vor vielen Jahren in VB6 programmiertes Verwaltungsprogramm in den wichtigsten Funktionen in VB2010 Express zu implementieren. Leider scheitert es beim Auslesen von Daten.
    Ziel ist, den Inhalt einer MS-Access Datei in einem ListView darzustellen (ich habe gelesen, dass die Anbindung mittels DataGrid und Assistent ziemlich einfach ist - habe es auch schon probiert und es funktionierte. Allerdings ist das DataGrid nicht die gewünschte/geforderte Ausgabedarstellung. Es muss ein ListView sein.
    Jetzt habe ich ja den Code schon, und dachte mir, da etwas abzukupfern. Im einfachsten Fall per Copy&Paste. Die Verbindung zur Datenbank wird aufgebaut, allerdings klappt das mit dem Auslesen der Tabellen nicht. Die Fehlermeldung lautet: "Data type mismatch in criteria expression."
    Hier, ausschnittsweise der Quellcode, den ich in ein Modul gepackt habe:
    Der Debugger steigt aus in Funktion "openDatabaseTable_HANDKASSE_Read" bei cmd.ExecuteReader mit der oben genannten Meldung.

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Module smec_funktionen
    4. Public currentYear As String
    5. Public connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=FINANZEN.MDB;Persist Security Info=True;Jet OLEDB:Database Password=1234"
    6. Dim con As New OleDbConnection
    8. Public Function openDatabaseTable_HANDKASSE_Read() As OleDbDataReader
    9. Dim cmd As New OleDbCommand
    10. cmd.Connection = openDatabase()
    11. cmd.CommandText = "select * from smec_handkasse where jahr='2010'"
    12. openDatabaseTable_HANDKASSE_Read = cmd.ExecuteReader
    13. End Function
    15. Private Function openDatabase() As OleDbConnection
    16. con.ConnectionString = connectString
    17. Try
    18. con.Open()
    19. 'MsgBox("State: " & con.State.ToString)
    20. Catch ex As Exception
    21. MessageBox.Show("openDatabase: " & ex.Message)
    22. con.Close()
    23. End Try
    24. openDatabase = con
    25. End Function
    27. Public Sub getListViewData_Handkasse(ByRef listViewName As ListView)
    28. With listViewName
    29. .Clear()
    30. .Columns.Clear()
    31. .Items.Clear()
    32. .FullRowSelect = True
    33. 'Column definition
    34. .View = View.Details ' IMPORTANT - Set the view to Details to allow tabulation (column mode)
    35. .GridLines = True
    36. .Columns.Add("Datum", 100, HorizontalAlignment.Left)
    37. .Columns.Add("Beleg-Nr.", 100, HorizontalAlignment.Left)
    38. .Columns.Add("Buchungstext", 300, HorizontalAlignment.Left)
    39. .Columns.Add("Einnahme", 100, HorizontalAlignment.Left)
    40. .Columns.Add("Ausgabe", 100, HorizontalAlignment.Left)
    41. .Columns.Add("Saldo", 100, HorizontalAlignment.Left)
    42. .Columns.Add("Position", 200, HorizontalAlignment.Left)
    43. End With
    44. Call loadListViewData(listViewName)
    46. End Sub
    48. Public Sub loadListViewData(ByRef listViewName As ListView)
    49. Dim oleReader As OleDbDataReader = openDatabaseTable_HANDKASSE_Read()
    50. Do While oleReader.Read()
    51. Dim LItem As New ListViewItem
    52. 'LItem.Text = (oleReader("Datum"))
    53. LItem.SubItems.Add(oleReader("Belegnummer"))
    54. LItem.SubItems.Add(oleReader("Buchungstext"))
    55. LItem.SubItems.Add(oleReader("Einnahme"))
    56. LItem.SubItems.Add(oleReader("Einnahme"))
    57. LItem.SubItems.Add(oleReader("Betrag"))
    58. LItem.SubItems.Add(oleReader("Positionsnummer"))
    60. listViewName.Items.AddRange(New ListViewItem() {LItem})
    61. Loop
    62. closeDatabase()
    63. End Sub


    Eigentlich ist mein Ziel, ein DataSet oder eine DataTable(?) mit den Datensätzen zu füllen, sodass ich nur einmal beim Aufruf in die Datenbank gucke, mir alles hole, die Verbindung wieder schließe und dann für die Anzeige im ListView mir die Daten aus dem DataSet hole.

    Viele Grüße & ein gesundes Jahr 2011 an alle :)

    wenn ich das richtig sehe versucht du in einer funktion die gleiche funktion wieder aufzurufen:

    VB.NET-Quellcode

    1. Public Function openDatabaseTable_HANDKASSE_Read() As OleDbDataReader
    2. Dim cmd As New OleDbCommand
    3. cmd.Connection = openDatabase()
    4. cmd.CommandText = "select * from smec_handkasse where jahr='2010'"
    5. openDatabaseTable_HANDKASSE_Read = cmd.ExecuteReader 'hier rifst du die aktion wieder auf
    6. End Function


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

Facebook
Telefonspende