Guten Abend StageTwo,
ich möchte Daten (Z.b. ID) aus meiner Datenbank in eine Textbox verfrachten, die frage ist nur Wie?
Ich weiß das ich es mit Select machen muss, aber weiter komm ich auch nicht, ich hab schon im Internet geschaut aber finde dort auch nicht viel.
Das erstellen von Daten in der Datenbank (Register) sowie auslesen ob 2 Daten Richtig sind (Login) und das Updaten (Passwort wechseln) hab ich schonmal mit folgendem Grundgerüst erledigt.
Code
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=***.**.***.**;" & "user id=m*****;" & "password=**********;" & "database=*****"
- Try
- conn.Open()
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
- End Try
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = ""
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader()
- If myData.HasRows = 0 Then
- conn.Close()
- conn.Open()
- Else
- MsgBox("Fehler Code : Daten konnten nicht geladen werden.")
- End If
Könnte mir einer helfen?
Also ich möchte die ID von dem Benutzernamen in eine Textbox (oder Optimaler weise) Label bringen.
Habe es wie Folgt gelöst..
Code
- Try
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT ID FROM benutzer WHERE Benutzername= '" & lb_test.Text & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- 'myCommand.CommandText = "SELECT ID FROM benutzer WHERE Benutzername='test'"
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader()
- Do While myData.Read
- lb_id.Text = ("ID : " & (myData("ID")))
- MsgBox("Panel erfolgreich geladen")
- Loop
- Catch ex As Exception
- conn.Close()
- MsgBox("Fehler Code :" & ex.Message)
- End Try
- conn.Close()
kann geclosed werden.