Hab die lösung wie es geht :
Hier die Klasse in der die Combobox gefüllt wird:
und hier der Aufruf im Form :
Hier die Klasse in der die Combobox gefüllt wird:
VB.NET-Quellcode
- Imports System
- Imports System.Windows.Forms
- Public Class multi_combo
- Public Sub anrede(ByVal anr As Integer, ByRef cboa As ComboBox)
- 'cboa = New multi_combo()
- Dim cbo As String = "ComboBox" & anr
- cbo = Replace(cbo, " ", "")
- cboa.Name = cbo
- 'MsgBox(cboa)
- With cboa
- .Items.Clear()
- .Text = ""
- Dim sql As String = "select * from hanrede order by anrede desc"
- Dim con As New MySqlConnection
- Dim cmd As New MySqlCommand(sql, con)
- Dim myAdapter As New MySqlDataAdapter
- Dim reader As MySqlDataReader
- con.ConnectionString = "server=localhost;" _
- & "uid=root;" _
- & "pwd=slotmachine;" _
- & "database=lenz"
- con.Open()
- reader = cmd.ExecuteReader()
- Do While reader.Read() 'Jede Reihe durchlaufen
- cboa.Items.Add(reader("anrede") & " / " _
- & reader("geschlecht"))
- 'MsgBox(reader.Item(2) & reader.Item(1))
- Loop
- reader.Close() 'Reader schliesen
- con.Close() 'Connection schliesen
- End With
- End Sub
- End Class
und hier der Aufruf im Form :