id Transparent übergeben in Combobox

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von habunus.

    id Transparent übergeben in Combobox

    Hallo,

    wie stelle ich es an das die id Transparent übergeben wird in das Comboboxfeld ohne das man die id sieht?
    Es soll nur Vorname und Nachname zu sehen sein.

    VB.NET-Quellcode

    1. cmd.CommandText = "select id,vorname,nachname from kunden"
    3. Try
    4. reader = cmd.ExecuteReader()
    5. Do While reader.Read()
    6. ComboBoxAnrufslisteTelangenommen.Items.AddRange((New Object() {reader.Item("vorname") & " " & reader.Item("nachname")}))
    7. ComboBoxAnrufslisteanruffuer.Items.AddRange((New Object() {reader.Item("vorname") & " " & reader.Item("nachname")}))
    8. Loop
    9. reader.Close()
    11. Catch myerror As MySqlException
    12. MsgBox(myerror.Message)
    13. End Try


    Danke im Voraus.

    Habunus

    eine Liste mitfüllen mit den IDs und dann den Index der Combobox zum Auslesen nehmen ;)

    oO ? ... einfach eine globale Variabel vom Typ List(Of Integer) und dann immer wenn du die Items der Combobox veränderst die Liste auch verändern (also Add, Remove, Clear, ...) und wenn du etwas aus der Combobox auslesen willst die ID dann mit Variable(Combobox.SelectedIndex) rausholen ;)

    VB.NET-Quellcode

    1. Public IDs As New List(Of Integer)
    3. ' beim hinzufügen der Anrufer/Abnehmer
    4. IDs.Add(CInt(reader("id"))) ' du brauchst übrigends kein AddRange
    6. ' um ID rauszufinden
    7. IDs(Combobox.SelectedIndex)

    Das heißt also

    VB.NET-Quellcode

    1. Try
    2. reader = cmd.ExecuteReader()
    3. Do While reader.Read()
    5. IDs.Add(CInt(reader("id")))
    6. ComboBoxAnrufslisteTelangenommen.Items.AddRange((New Object() {reader.Item("vorname") & " " & reader.Item("nachname")})) 'Dropdown füge Vorname und Nachname ein
    7. ComboBoxAnrufslisteanruffuer.Items.AddRange((New Object() {reader.Item("vorname") & " " & reader.Item("nachname")})) 'Dropdown füge Vorname und Nachname ein
    9. Loop
    10. reader.Close()
    12. Catch myerror As MySqlException
    13. MsgBox(myerror.Message)
    14. End Try


    und auf die IDs könnte ich dann z.b.: eine msgbox machen zum Testen ?

    Habunus

    teste doch einfach und wenns Fehler gibt meldeste ihn ;)

    Hallo Mangafreak1995,

    also so wie es soll geht es noch nicht hier mal der Code:

    VB.NET-Quellcode

    1. Imports MySql
    2. Imports MySql.Data
    3. Imports MySql.Data.MySqlClient
    4. Imports MySql.Data.Types.MySqlConversionException
    5. Imports System
    6. Imports Microsoft.Win32
    7. Imports System.Security.Cryptography
    8. Imports System.Text
    9. Imports System.Net
    10. Imports System.Net.Mail
    11. Imports System.IO
    13. Public Class anrufsliste
    14. Public IDs As New List(Of Integer)
    15. Dim aktuelles_jahr As String = Date.Today
    16. Dim aktuelle_zeit As String = TimeOfDay
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. Close() 'Fenster schließen
    21. End Sub
    23. Private Sub anrufsliste_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    24. ComboBoxAnrufslisteAnrede.SelectedIndex = 0
    26. Dim cmd As New MySqlCommand
    27. Dim reader As MySqlDataReader
    28. cmd.Connection = mysql_con.conn
    30. cmd.CommandText = "select id,vorname,nachname from kunden where userlevel=1 or userlevel=2"
    32. Try
    34. reader = cmd.ExecuteReader()
    35. Do While reader.Read()
    38. IDs.Add(CInt(reader("id"))) ' du brauchst übrigends kein AddRange
    39. ComboBoxAnrufslisteTelangenommen.Items.AddRange((New Object() {reader.Item("vorname") & " " & reader.Item("nachname")})) 'Dropdown füge Vorname und Nachname ein
    40. ComboBoxAnrufslisteanruffuer.Items.AddRange((New Object() {reader.Item("vorname") & " " & reader.Item("nachname")})) 'Dropdown füge Vorname und Nachname ein
    42. MessageBox.Show(IDs(0))
    44. Loop
    45. reader.Close()
    47. Catch myerror As MySqlException
    48. MsgBox(myerror.Message)
    49. End Try
    50. End Sub
    52. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    54. MsgBox(IDs(0))
    56. Try
    57. Dim AnrufslisteAnrede As String = ""
    58. If ComboBoxAnrufslisteAnrede.SelectedIndex = 0 Then
    59. AnrufslisteAnrede = "Herr"
    60. ElseIf ComboBoxAnrufslisteAnrede.SelectedIndex = 1 Then
    61. AnrufslisteAnrede = "Frau"
    62. ElseIf ComboBoxAnrufslisteAnrede.SelectedIndex = 2 Then
    63. AnrufslisteAnrede = "Firma"
    65. End If
    68. Dim cmd As New MySqlCommand
    69. Dim reader As MySqlDataReader
    70. cmd.Connection = mysql_con.conn
    71. cmd.CommandText = ("Insert Into anrufsliste (anrede,vorname,nachname,strasse,plz,ort,tel,fax,email,gespraech_angenommen,angerufen_fuer,mail_senden,bemerkung,angerufen_datum,angerufen_zeit) VALUES ('" & AnrufslisteAnrede _
    72. & "','" & TextBoxAnrufslisteVorname.Text _
    73. & "','" & TextBoxAnrufslisteNachname.Text _
    74. & "','" & TextBoxAnrufslisteStrasse.Text _
    75. & "','" & TextBoxAnrufslistePlz.Text _
    76. & "','" & TextBoxAnrufslisteOrt.Text _
    77. & "','" & TextBoxAnrufslisteTel.Text _
    78. & "','" & TextBoxAnrufslisteFax.Text _
    79. & "','" & TextBoxAnrufslisteEmail.Text _
    80. & "','" & ComboBoxAnrufslisteTelangenommen.SelectedItem _
    81. & "','" & ComboBoxAnrufslisteanruffuer.SelectedItem _
    82. & "','" & CheckBoxAnrufslisteMailversand.Checked _
    83. & "','" & TextBoxAnrufslisteBetreff.Text _
    84. & "','" & aktuelles_jahr _
    85. & "','" & aktuelle_zeit & "') ")
    89. reader = cmd.ExecuteReader()
    90. reader.Close()
    92. Catch myerror As MySqlException
    93. MsgBox(myerror.Message)
    94. End Try
    95. MsgBox("Telefoeintrag wurde erfolgreich gespeichert")
    96. End If
    97. '###############################################################
    99. End Sub
    102. End Class


    Wenn ich nun bei Private Sub Button1_Click IDs(0) ausgebe habe immer nur die erste IDS von dem ersten User. Denke diese wird überschrieben dur die While Schleife. Wie könnte ich das verbessern damit ich alle IDs bekomme.

    Vielen Dank

    Habunus

    du musst natürlich 0 verändern ^^ 0 => 1. Element

Facebook
Telefonspende