Moin Moin Liebe VBler
ich habe mich gestern mal mit MySql beschäftigt
ich lese die daten wie Folgt aus
geht auch soweit so nun mein Problem
jeder Eintrag wo Ausgelesen werden soll soll er mir einem Button erstellen
Das geht ja auch mein Problem ist nun
wie wie kann ich in der schleife eine Control schleife laufen lassen
damit die Buttons nicht Doppelt erstellt werden
hier mal ein Kleiner abschnitt
ich danke euch schon mal Gruß Torty
ich habe mich gestern mal mit MySql beschäftigt
ich lese die daten wie Folgt aus
geht auch soweit so nun mein Problem
jeder Eintrag wo Ausgelesen werden soll soll er mir einem Button erstellen
Das geht ja auch mein Problem ist nun
wie wie kann ich in der schleife eine Control schleife laufen lassen
damit die Buttons nicht Doppelt erstellt werden
hier mal ein Kleiner abschnitt
VB.NET-Quellcode
- Sub list()
- Timer1.Stop()
- Dim myConnectionString As String
- Dim con As New MySqlConnection
- myConnectionString = SQLL ' Die verbindung zu MYSQL
- con.ConnectionString = myConnectionString
- Try
- con.Open()
- ''MessageBox.Show("Verbindung hergestellt ")
- Catch myerror As MySqlException
- MessageBox.Show("Verbindung konnte nicht hergestellt weil " & myerror.Message)
- End Try
- Dim mysqladapter As New MySqlDataAdapter
- Dim sqlquary = "select user from world1"
- Dim Command As New MySqlCommand
- Command.Connection = con
- Command.CommandText = sqlquary
- mysqladapter.SelectCommand = Command
- Dim mydata As MySqlDataReader
- mydata = Command.ExecuteReader
- For Each mycontrol As Control In Me.Controls() 'Listet mir meine Controls auf
- While mydata.Read() 'Listet mir meine Data einträge auf
- ' AB hier soll unterschieden werden ob User schon als Button existiert wen nicht dann erstelle den Button
- 'und trage ihn in der Listbox2 ein
- 'wen er schon existiert dann trage ihn in der listbox1 ein
- 'die Listboxen sind nur zur besseren Beschreibung Dar diese sind nachher nicht Vorhanden
- If mycontrol.Name = mydata(0) Then '<< funktioniert leider nicht
- ListBox1.Items.Add(mycontrol.Name)
- Else
- ListBox2.Items.Add(mydata(0))
- Dim box As Button
- box = New Button
- box.Name = mydata(0)
- box.Tag = "User"
- box.Height = 50
- box.Width = 50
- box.Top = emu
- box.Left = emu
- box.BackColor = Color.Black
- box.Visible = True
- Me.Controls.Add(box)
- emu = emu + 60
- End If
- End While
- Next
- End Sub
ich danke euch schon mal Gruß Torty