Hallo
Ich möchte gerne etwas das in der Datenbank ist auf die Form kriegen.
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "server=hst;" & "user id=root;" & "password=;" & "database=dbk"
Try
conn.Open() ' Verbindung öffnen
Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString, MsgBoxStyle.Critical) ' Falls Fehler : Fehler anzeigen
End Try
Dim benutzer As String = (TextBox1.Text)
Dim passwort As String = (TextBox2.Text)
Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'" ' Das ist die Abfrage welche Prüft ob der Account existiert.Die textbox1 ist die Textbox in der der Benutzername eingeben wird und textbox2 bekommt das Passwort
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.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!", MsgBoxStyle.Information)
conn.Close()
conn.Open()
loginerfolgreich.Show()
Else 'Sonst wird angezeigt das die Daten falsch sind
MsgBox("Benutzername oder Passwort falsch!!!", MsgBoxStyle.Critical)
End If
Jetzt sollte ich als Admin auf einer Form die Textbox1 und 2 von ihm öffnen sehen und ändern löschen können.
kann mir jemand helfen
Thx im vorraus
Ich möchte gerne etwas das in der Datenbank ist auf die Form kriegen.
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "server=hst;" & "user id=root;" & "password=;" & "database=dbk"
Try
conn.Open() ' Verbindung öffnen
Catch myerror As MySqlException
MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString, MsgBoxStyle.Critical) ' Falls Fehler : Fehler anzeigen
End Try
Dim benutzer As String = (TextBox1.Text)
Dim passwort As String = (TextBox2.Text)
Dim myAdapter As New MySqlDataAdapter
Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + Replace(benutzer, " ", "") + "' AND Passwort='" & Replace(passwort, " ", "") & "'" ' Das ist die Abfrage welche Prüft ob der Account existiert.Die textbox1 ist die Textbox in der der Benutzername eingeben wird und textbox2 bekommt das Passwort
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = SQLAbfrage
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.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!", MsgBoxStyle.Information)
conn.Close()
conn.Open()
loginerfolgreich.Show()
Else 'Sonst wird angezeigt das die Daten falsch sind
MsgBox("Benutzername oder Passwort falsch!!!", MsgBoxStyle.Critical)
End If
Jetzt sollte ich als Admin auf einer Form die Textbox1 und 2 von ihm öffnen sehen und ändern löschen können.
kann mir jemand helfen
Thx im vorraus