SQL Abfrage mit OleDb Provider funktioniert nicht

  • VB.NET

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

    SQL Abfrage mit OleDb Provider funktioniert nicht

    Hallo Community,

    Ich hoffe der Post ist hier richtig, denn ich benutze das Forum zum ersten mal.

    Ich habe folgendes Problem:
    Mein Programmcode baut Verbindung mit einer Access Datenbank auf via OleDb. Wenn ich folgende Windows Form Debugge oder Erstelle, wird nichts aus der Datenbank geladen. Ausserdem ist cmd.ExecutedQueries = 0. In anderen Modulen, funktioniert das updaten und erstellen von Datensätzen problemlos.
    Was mache ich falsch?

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Public Class Hauptfenster
    5. 'Bei Initialisieren des Hauptfensters eingeleitet
    6. Private Sub Hauptfenster_Initialize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. 'Überschriften für die einzelnen Spalten
    9. With Me.ListView1.Columns
    10. .Add("Auftragsnummer")
    11. .Add("Firma")
    12. .Add("Auftragswert")
    13. End With
    15. 'lade nun aufträge
    16. laden()
    17. End Sub
    19. Sub laden()
    20. Dim con As New OleDbConnection
    21. Dim cmd As New OleDbCommand
    22. Dim reader As OleDbDataReader
    24. 'Verbindung zur Datenbank
    25. con.ConnectionString =
    26. "Provider=Microsoft.ACE.OLEDB.12.0;" &
    27. "Data Source=C:\Users\Sebastian\Dropbox\Desktop\test.accdb;"
    28. cmd.Connection = con
    29. Try
    30. con.Open()
    32. 'Hole alle vorhandenen aufträge aus tabelle auftraege
    33. cmd.CommandText = "select * from auftraege"
    34. Debug.Print(cmd.CommandText & vbCrLf & "Executed Queries: " & cmd.ExecuteNonQuery)
    36. 'Erstelle den auftrag
    37. Dim auftrag As New ListViewItem
    38. reader = cmd.ExecuteReader
    39. reader.Read()
    41. 'Listview leeren und optionen
    42. ListView1.Items.Clear()
    43. ListView1.View = View.Details
    44. ListView1.BeginUpdate()
    46. 'füge zur listview hinzu
    47. Do While reader.Read
    49. 'deklariere variablen
    50. Dim auftragsnummer As String = reader("auftragsnummer")
    51. Dim firma As String = reader("firma")
    52. Dim wert As String = reader("wert")
    54. auftrag = New ListViewItem(auftragsnummer)
    55. auftrag.UseItemStyleForSubItems = False
    56. auftrag.SubItems.Add(firma)
    57. auftrag.SubItems.Add(wert)
    59. ListView1.Items.Add(auftrag)
    60. Loop
    62. reader.Close()
    64. ListView1.EndUpdate()
    65. Catch ex As Exception
    66. MessageBox.Show(ex.Message)
    67. Exit Sub
    68. End Try
    69. con.Close()
    71. End Sub
    73. 'wird eingeleitet wenn "Aüfträge laden betätigt wird
    74. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    75. laden()
    76. End Sub
    78. 'ruft das Aufträge hinzufügen Fenster auf
    79. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    80. auftrag_hinzufuegen.ShowDialog()
    81. End Sub
    83. End Class



    Die Ausgabe der Debug-Konsole sie wie folgt aus:
    Spoiler anzeigen

    Quellcode

    1. "KIT Project.exe" (CLR v4.0.30319: DefaultDomain): "C:\Windows\Microsoft.Net\assembly\GAC_32\mscorlib\v4.0_4.0.0.0__b77a5c561934e089\mscorlib.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    2. "KIT Project.exe" (CLR v4.0.30319: DefaultDomain): "C:\Users\Sebastian\Dropbox\Bronection\KIT Project\KIT Project\bin\Debug\KIT Project.exe" geladen. Symbole wurden geladen.
    3. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\Microsoft.VisualBasic\v4.0_10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualBasic.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    4. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System\v4.0_4.0.0.0__b77a5c561934e089\System.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    5. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Core\v4.0_4.0.0.0__b77a5c561934e089\System.Core.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    6. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Windows.Forms\v4.0_4.0.0.0__b77a5c561934e089\System.Windows.Forms.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    7. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Drawing\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    8. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Remoting\v4.0_4.0.0.0__b77a5c561934e089\System.Runtime.Remoting.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    9. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_32\System.Data\v4.0_4.0.0.0__b77a5c561934e089\System.Data.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    10. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_32\System.Transactions\v4.0_4.0.0.0__b77a5c561934e089\System.Transactions.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    11. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_32\System.EnterpriseServices\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    12. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_32\System.EnterpriseServices\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.Wrapper.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    13. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Configuration\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    14. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Xml\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.dll" geladen. Das Laden von Symbolen wurde übersprungen. Das Modul ist optimiert, und die Debugoption "Nur eigenen Code" ist aktiviert.
    15. select * from auftraege
    16. Executed Queries: 0
    17. "KIT Project.exe" (CLR v4.0.30319: KIT Project.exe): "C:\Windows\Microsoft.Net\assembly\GAC_MSIL\mscorlib.resources\v4.0_4.0.0.0_de_b77a5c561934e089\mscorlib.resources.dll" geladen. Das Modul wurde ohne Symbole erstellt.
    18. Das Programm "[5196] KIT Project.exe" wurde mit Code 0 (0x0) beendet.



    Würde mich freuen wenn jemand eine Antwort hat.

    Danke und viele Grüße
    Woodl

    Ich kann dir nur von deiner ganzen Vorgehensweise abraten.
    Um sich in Datenbänkerei effektiv einzarbeiten sollte man, bevor man überhaupt eine DB zugreift, eine Menge anderen Stoffes lernen.
    Sonst fängt man es so an wie du, und verbaut sich damit alle Möglichkeiten fortgeschrittener Datenbänkerei (Trennung von Daten und Oberfläche, designergestütztes komplexes Databinding, typ-sichere Datenverarbeitung).

    Arbeite mal Datenverarbeitungs-Vorraussetzungen Stück für Stück durch, zB. dass du Option Strict off proggst sieht man schon an deim codeschnipsel.

    ExecuteNonquery ist deshalb 0 weil:
    "Bei den Anweisungen UPDATE, INSERT und DELETE ist der Rückgabewert die Anzahl der vom Befehl betroffenen Zeilen", Ein Select ist eben nicht dabei , das findest du hier
    msdn.microsoft.com/de-de/libra…nquery%28v=vs.110%29.aspx

    Wenn Du an der Stelle die Anzhal brauchst, nimm einen DataReader und das SELECt muss dann so ausshehen
    SELECT COUNT(*) AS AnzahlDS FROM DeienTablle
    ....
    ......
    MessageBox.Show("" & myReader!AnzahlDS )

    Dein Code hat schon so seine Böcke, sollte aber was anzeigen in der ListView.
    JonDonym
    Eine Anonymisierung-Tool, das nicht nur deine IP verdeckt, sondern deine History, BrowserTyp, Windows-Version etc.
    Das Tool hat ca. 5 FreeKaskaden und ca. 10 Premium. Minimum 5 EUR für ein Volumen von 650MB.