Login über Access-Datenbank funktioniert nicht. ExecuteReader wird als Fehler angezeigt

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Login über Access-Datenbank funktioniert nicht. ExecuteReader wird als Fehler angezeigt

    Hallo zusammen,

    ich versuche mit unten stehenden Code ein Login zu programmieren.
    Aber es kommt ständig der Fehler: Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben. & die cmd.ExecuteReader wird als Fehler markiert.

    Kann mir hier jemand unter die Arme greifen und den richtigen Hinweis geben?

    VB.NET-Quellcode

    1. Private Sub cmdLogin_Click(sender As Object, e As EventArgs) Handles cmdLogin.Click
    3. Dim con As New OleDbConnection
    5. Dim cmd As New OleDbCommand
    7. Dim reader As OleDbDataReader
    9. Dim benutzer As String
    11. Dim passwort As String
    13. benutzer = txtBenutzer.Text
    15. passwort = txtPasswort.Text
    17. con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\schulcrt\Documents\AuditPlanner!.accdb;"
    19. cmd.Connection = con
    21. con.Open()
    23. cmd.CommandText = "select Benutzername, Passwort from Benutzer where Benutzer = '" & benutzer & "' and Passowrt = '" & passwort & "'"
    25. reader = cmd.ExecuteReader
    27. If reader.HasRows = True Then
    29. frmMain.mnuPlanner.Enabled = True
    31. frmMain.mnuViewer.Enabled = True
    33. End If
    35. con.Close()
    37. End Sub


    Vielen Dank.

    Gruß, Mac

    Schon krass. Da sitzt mein eine Stunde vor dem Code und sieht diesen Schreibfehler nicht. Das ist der Hammer :D
    Aber danke für den Hinweis.

    Noch eine andere Frage:

    Welches Werkzeug sollte ich nutzen wenn ich eine Excel-Datei importieren möchte und die Darstellung der der Excelansicht ähnlich sein soll.
    Weiterhin möchte ich dann in dieser Liste suchen und bei bestimmten Kriterien Zeilen farbig markieren und Werte darin umschreiben.
    Danke für einen Hinweis. Ich bin Anfänger aber lerne gern 8o

    VG, Mac

Facebook
Telefonspende