Hallo
Und zwar habe ich ein Problem. Ich wollte zur Übung ein Login System in Visual Basic 2010 nachbauen und scheitere nun an der Übergabe des SQL Befehls bzw. am auslesen aus der Acces Datenbank. Per Click auf den Login Button will ich mein Benutzernamen & Passwort abfragen. Ich lasse mal mein Code hier.
Das Problem entsteht in Zeile 29. Dort wo ich meinen Benutzernamen und Passwort auslesen möchte. Entschuldigt die unübersichtliche Programmierung und offensichtliche Fehler(lerne noch )
Ich hoffe jemand weiß was ich Falsch mache und kann mir dazu einen guten Tipp zum Weg der Lösung geben.
Viele Dank!
Und zwar habe ich ein Problem. Ich wollte zur Übung ein Login System in Visual Basic 2010 nachbauen und scheitere nun an der Übergabe des SQL Befehls bzw. am auslesen aus der Acces Datenbank. Per Click auf den Login Button will ich mein Benutzernamen & Passwort abfragen. Ich lasse mal mein Code hier.
VB.NET-Quellcode
- Private Sub Loginbtt_Click(sender As System.Object, e As System.EventArgs) Handles Loginbtt.Click
- Dim con As New OleDbConnection 'con ist die Variable für den Connection String
- Dim benutzer As String = LoginName.Text 'benutzer ist die Variable für den Benutzernamen
- Dim passwort As String = Passworttxt.Text 'passwort ist die Variable für das Passwort
- Dim Abfrage As String
- '---CONNECTION ZUR DATENBANK-----------------------------------------------------------------------------------------------------
- con.ConnectionString =
- "Provider=Microsoft.ACE.OLEDB.12.0;" &
- "Data Source=C:\Users\timok\Desktop\Login_DB1.accdb;" ' Connection String zur Datenbank
- Try
- con.Open() ' Verbindung öffnen
- Catch ex As Exception
- MsgBox("Keine Verbindung zur Datenbank : " & ex.Message) ' Fehlermeldung falls keine Verbindung zur Datenbank besteht
- End Try
- '-------------------------------------------------------------------------------------------------------------------------------
- Dim myAdapter As New OleDbDataAdapter
- Abfrage = "SELECT * FROM logindaten WHERE Benutzername ='" + Replace(benutzer, " ", "") & "' AND Passwort ='" & Replace(passwort, " ", "") & "'" 'Abfrage ist die Variable für die SQL Abfrage"
- Dim Command As New OleDb.OleDbCommand
- Command.Connection = con
- Command.CommandText = Abfrage
- myAdapter.SelectCommand = Command
- Dim myData As OleDbDataReader
- myData = Command.ExecuteReader() 'Hier startet man die SQL Abfrage
- If myData.HasRows Then ' Wenn die Abfrage Einträge enthält / also der Benutzer und das Passwort stimmen überein
- MsgBox("Einloggen erfolgreich !")
- Else 'Sonst wird angezeigt das die Daten falsch sind
- MsgBox("Falsche Daten")
- End If
- con.Close()
- End Sub
Das Problem entsteht in Zeile 29. Dort wo ich meinen Benutzernamen und Passwort auslesen möchte. Entschuldigt die unübersichtliche Programmierung und offensichtliche Fehler(lerne noch )
Ich hoffe jemand weiß was ich Falsch mache und kann mir dazu einen guten Tipp zum Weg der Lösung geben.
Viele Dank!