kostenloser Webspace werbefrei: lima-city


MySQL Spalte in Textbox einfügen

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    projekt-olympia

    projekt-olympia hat kostenlosen Webspace.

    Hallo ich habe ein großes Problem :-(. Wie kann ich in einer Textbox den Inhalt einer besimmten Spalte anzeigen lassen?!
    Ich habe die Spalte "Users", "Password" und eben "email" und genau diese Spalte (oder besser den Inhalt) möchte ich in der besagten Textbox anzeigen lassen. Nur wo und wie kann ich dies umsetzen?!

    Hier ist der bisherige Code:

    Imports MySql.Data.MySqlClient
    Imports System.Data.SqlClient
    Imports MySql
    Imports MySql.Data
    
    Public Class MySQL_Login
    
        Dim MySqlConnection As MySqlConnection
        Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            'Label, dass anzeigt, dass die Verbindung aufgebaut wird
            lbVerbindung.Text = "Verbindung wird aufgebaut"
            'Neue MySQL Connection
            MySqlConnection = New MySqlConnection
            'ergänze deine Daten (der standart-Port ist 3306
            MySqlConnection.ConnectionString = "server=mysql.supersurf.de;port=3306; user ID=xxxxxx; password=xxxxxx; database=db_257611_2"
            MySqlConnection.Open()
            Dim Myadapter As New MySqlDataAdapter
            'heraussuchen der Datenbank Tabelle und überprüfen deiner Daten
            Dim sqlquary = "SELECT * From Users WHERE Username='" & UsernameTextBox.Text & "'AND Password='" & PasswordTextBox.Text & "';"
            Dim command As New MySqlCommand
            command.Connection = MySqlConnection
            command.CommandText = sqlquary
            Myadapter.SelectCommand = command
            Dim mydata As MySqlDataReader
            mydata = command.ExecuteReader
            'überprüfen, ob deine Eingaben richtig waren
            If mydata.HasRows = 0 Then
                lbVerbindung.Text = "Keine Verbindung!"
            Else
                lbVerbindung.Text = "Erfolgreiche Verbindung"
                'Aktion, die ausgeführt wird, nachdem du verbunden wurdest
                Bibliothek.Show()
    
                
                      
    
    
                Me.Hide()
            End If
    
        End Sub
    
    End Class


    Ich hoffe ihr könnt mir helfen! :thumb:
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. Textbox im Sinne von ganz normalem Text, oder wie meinst du das?!?
  4. Autor dieses Themas

    projekt-olympia

    projekt-olympia hat kostenlosen Webspace.

    raphael811 schrieb:
    Textbox im Sinne von ganz normalem Text, oder wie meinst du das?!?


    Ja, der Text aus der MySQL-Spalte "rang" soll in einer ganz normalen Textbox stehen!
  5. conn.open
    cmd.commandtext="SELECT * FROM TABELLE"
    dim reader as new mysql.datareader
    reader=cmd.executereader
    do while reader.read
    textbox1.text=reader("SPALTE")
    end while
    reader.close
    conn.close


    Gruß
    Leon
  6. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!