etwas aus einer datenbank auslesen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Kevin.

    etwas aus einer datenbank auslesen

    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
    Hier ist deine Lösung ^^


    VB.NET-Quellcode

    1. Dim myAdapter As New MySqlDataAdapter
    2. Dim myData As New DataTable
    3. Dim vSQL As New String(Nothing)
    4. myData.Reset()
    5. vSQL = "SELECT * FROM TABELLE"
    6. Dim myconnectionstring As String = ""
    7. If myconnectionstring = "" Then
    8. myconnectionstring = "Database=db;Data Source=ip;User Id=id;Password=pw"
    9. End If
    10. Dim myConnection As New MySqlConnection(myconnectionstring)
    11. Dim myCommand As New MySqlCommand
    12. myCommand.Connection = myConnection
    13. myCommand.CommandText = vSQL
    14. myConnection.Open()
    15. myAdapter.SelectCommand = myCommand
    16. myAdapter.Fill(myData)
    17. Label2.Text = myData.Rows.Item(0).Item(1) 'Auslesen der Spalte Item (0) und Item (1) '
    18. myConnection.Close()