Bestimmte Zelle aus einer Tabelle Auslesen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Rinecamo.

    Bestimmte Zelle aus einer Tabelle Auslesen

    Hallo Leute,
    Ich hab eine Tabelle in MySQL die Folgendermaßen aussieht:


    Benutzername und Passwort werden beim Login angegeben. Nun müsste ich nurnoch den "Rang", welcher zu dem Benutzer gehört in eine Varible schreiben lassen...

    Ich habs jetzt mit

    VB.NET-Quellcode

    1. Dim SQLAbfrage As String = "SELECT Rang FROM benutzer WHERE passwort = '1a1dc91c907325c69271ddf0c944bc72' AND benutzername = 'notepass'"

    versucht...

    Der Gesamte Code (Ist dann vielleicht Verständlicher)

    VB.NET-Quellcode

    1. Public Class Form8
    2. Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. Dim conn As MySqlConnection
    4. conn = New MySqlConnection
    5. conn.ConnectionString = "server=" & Form1.ComboBoxServer.SelectedItem & ";" _
    6. & "user id=" & Form1.TextBox1.Text & ";" _
    7. & "password=" & Form1.TextBox2.Text & ";" _
    8. & "database=" & Form1.TextBox3.Text & ""
    9. Form1.StatusLabelLogin.Text = "Stelle Verbindung zum SQL-Server her..."
    10. Try
    11. conn.Open() ' Verbindung öffnen
    12. Form1.StatusProgresslogin.Value = "30"
    13. Form1.StatusLabelLogin.Text = "Verbinde mit Datenbank..."
    14. Catch myerror As MySqlException
    15. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString) ' Falls Fehler : Fehler anzeigen
    16. End Try
    18. Dim benutzer As String = Form1.txt_benutzer.Text
    19. Dim passwort As String = MD5StringHash(Form1.txt_passwort.Text)
    22. Dim myAdapter As New MySqlDataAdapter
    23. Dim SQLAbfrage As String = "SELECT Rang FROM benutzer WHERE passwort = '1a1dc91c907325c69271ddf0c944bc72' AND benutzername = 'notepass'"
    27. Dim myCommand As New MySqlCommand
    28. myCommand.Connection = conn
    29. myCommand.CommandText = SQLAbfrage
    31. myAdapter.SelectCommand = myCommand
    32. Dim myData As MySqlDataReader
    33. myData = myCommand.ExecuteReader()
    34. If myData.HasRows Then
    35. conn.Close()
    36. conn.Open()
    37. Me.Hide()
    38. Form2.Show()
    44. Else
    45. MsgBox("Fehler")
    46. End If
    47. End Sub
    48. End Class



    Dieser Läuft durch, tut jedoch nichts sonst, weil ich nicht weis wie ich VB verständlich machen soll, dass "Rang" in einer Variable Gespeichert werden soll...

    PS: Falls wichtig Rang geht von 0-3

    MFG
    note