meine erste eigene klasse mit mysql ... conction string für combobox geht nicht

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von ronaldl.

    Hab die lösung wie es geht :

    Hier die Klasse in der die Combobox gefüllt wird:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Windows.Forms
    5. Public Class multi_combo
    8. Public Sub anrede(ByVal anr As Integer, ByRef cboa As ComboBox)
    10. 'cboa = New multi_combo()
    11. Dim cbo As String = "ComboBox" & anr
    12. cbo = Replace(cbo, " ", "")
    13. cboa.Name = cbo
    14. 'MsgBox(cboa)
    16. With cboa
    17. .Items.Clear()
    18. .Text = ""
    20. Dim sql As String = "select * from hanrede order by anrede desc"
    21. Dim con As New MySqlConnection
    22. Dim cmd As New MySqlCommand(sql, con)
    23. Dim myAdapter As New MySqlDataAdapter
    24. Dim reader As MySqlDataReader
    25. con.ConnectionString = "server=localhost;" _
    26. & "uid=root;" _
    27. & "pwd=slotmachine;" _
    28. & "database=lenz"
    30. con.Open()
    31. reader = cmd.ExecuteReader()
    32. Do While reader.Read() 'Jede Reihe durchlaufen
    33. cboa.Items.Add(reader("anrede") & " / " _
    34. & reader("geschlecht"))
    35. 'MsgBox(reader.Item(2) & reader.Item(1))
    36. Loop
    38. reader.Close() 'Reader schliesen
    39. con.Close() 'Connection schliesen
    40. End With
    43. End Sub
    44. End Class


    und hier der Aufruf im Form :

    VB.NET-Quellcode

    1. Public Sub kkn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. 'Anrede name der combobox an klasse senden
    3. Dim anrede_Klasse As multi_combo
    4. anrede_Klasse = New multi_combo()
    6. anrede_Klasse.anrede(1, ComboBox1)
    8. 'ende weiter mit Programm

Facebook
Telefonspende