Hallo Community,
bitte verteufelt mich nicht. Ich bin nur ein Anfänger, welcher sich langsam wieder in die Materie einarbeiten möchte.
Also es kann eine Verbindung zur MySQL Datenbank verbunden werden.
Die entsprechende Tabelle userlist ist erstellt und es gibt zwei Einträge.
Die Tabelle ist wie folgt aufgebaut: id, username, password, ...(unwichtig)
Alles funktioniert, bis auf Zeile 31.
Keine Ahnung, wie ich das Lösen kann. Aber ich ab zeile 28 komm ich selber nicht mehr richtig mit.
Danke im Voraus.
bitte verteufelt mich nicht. Ich bin nur ein Anfänger, welcher sich langsam wieder in die Materie einarbeiten möchte.
Also es kann eine Verbindung zur MySQL Datenbank verbunden werden.
Die entsprechende Tabelle userlist ist erstellt und es gibt zwei Einträge.
Die Tabelle ist wie folgt aufgebaut: id, username, password, ...(unwichtig)
Alles funktioniert, bis auf Zeile 31.
Keine Ahnung, wie ich das Lösen kann. Aber ich ab zeile 28 komm ich selber nicht mehr richtig mit.
Danke im Voraus.
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class globalconnection
- Dim MySQL As MySqlConnection
- Dim Adapter As New MySqlDataAdapter
- Dim SQL As String
- Dim Command As New MySqlCommand
- Dim data As MySqlDataReader
- Dim loginfo = {False, "id", "username", "passwort"}
- Function shortcon(ByVal server As String, ByVal username As String, ByVal password As String, ByVal database As String) As Boolean
- Try
- MySQL = New MySqlConnection
- MySQL.ConnectionString = "server=" + server + ";userid=" + username + "; password=" + password + ";database=" + database
- MySQL.Open()
- consettings.btn_con_test.BackColor = Color.Green
- Return True
- Catch ex As Exception
- MsgBox("Es konnte leider keine Verbindung zur MySQL Datenbank hergestellt werden. Bitte überprüfen Sie Ihre Internetverbindung und Eingaben", MsgBoxStyle.Exclamation, "Fehlerhafte Verbindung")
- consettings.btn_con_test.BackColor = Color.Red
- Return False
- End Try
- End Function
- Function login(ByVal user As String, ByVal pw As String) As Boolean
- If shortcon(My.Settings.con_address, My.Settings.con_username, My.Settings.con_password, My.Settings.con_db) Then
- Try
- SQL = "SELECT id FROM userlist WHERE username = '" + user + "' AND password = '" + pw + "'"
- Command.Connection = MySQL
- Command.CommandText = SQL
- data = Command.ExecuteReader <-- Hier entsteht anscheinend der Fehler
- If data.Read = pw Then
- Return True
- Else
- Return False
- End If
- Catch ex As Exception
- Return False
- End Try
- Else
- Return False
- End If
- End Function
- End Class
