ComboBox mit Daten aus SQL Datenbank füllen

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Speedy51.

    ComboBox mit Daten aus SQL Datenbank füllen

    Hallo brauche eure Hilfe:

    Ich habe eine ComboBox die ich so gefüllt habe:

    VB.NET-Quellcode

    1. Dim tsmannschaftrot As New SoccerDBTableAdapters.mannschaftTableAdapter
    2. Dim m1 As SoccerDB.mannschaftDataTable = tsmannschaftrot.GetData
    3. mannschaft1.ItemsSource = m1
    4. mannschaft1.DisplayMemberPath = "mname"
    5. mannschaft1.SelectedValuePath = "idmannschaft"

    Die Combobox ist in einem extra Fenster.

    Im eigentlichen MainWindow möchte ich jetzt in einen Textfeld das stehen haben was in der Combobox nun ausgewählt wurde wie bewerkstellige ich das?

    Versuch mal fogendes:

    Quellcode

    1. DeinMainWindow.DeinTextfeld.Text = DeinExtraFenster.DeineCombobox.SelectedItem.ToString


    Das müsste beispielsweise in das SelectedIndexChange-Event der Combobox, oder jedes andere Event, durch welches der Teil ausgeführt werden soll.

    Hmm also wenn ich das jetzt richtig verstehe füllst du deine Comboboc mit einem kompletten DataGrid-Element. Dementsprechend wird im Textfeld die Klasse ausgegeben. Wird denn in der Combobox alles richtig angezeigt? Ich vermute nämlich, dass da nur ein String reingehört, wie der Name der Mannschaft, wenn ich den Code richtig gelesen habe. Dann sollte es auch mit dem Übertragen funktionieren.

    also die Combobox wird richtig angezeigt alle Mannschaften sind da...

    Es gibt mehrer Comboboxen hier:

    VB.NET-Quellcode

    1. Dim tsmannschaftrot As New SoccerDBTableAdapters.mannschaftTableAdapter
    2. Dim m1 As SoccerDB.mannschaftDataTable = tsmannschaftrot.GetData
    3. mannschaft1.ItemsSource = m1
    4. mannschaft1.DisplayMemberPath = "mname"
    5. mannschaft1.SelectedValuePath = "idmannschaft"
    8. Dim tsmannschaftblau As New SoccerDBTableAdapters.mannschaftTableAdapter
    9. Dim m2 As SoccerDB.mannschaftDataTable = tsmannschaftblau.GetData
    10. mannschaft2.ItemsSource = m2
    11. mannschaft2.DisplayMemberPath = "mname"
    12. mannschaft2.SelectedValuePath = "idmannschaft"
    14. Dim tsNamen As New SoccerDBTableAdapters.spielerTableAdapter
    15. Dim t As SoccerDB.spielerDataTable = tsNamen.GetData
    16. spieler1r.ItemsSource = t
    17. spieler1r.DisplayMemberPath = "name"
    18. spieler1r.SelectedValuePath = "idspieler"
    21. Dim tsNamen2 As New SoccerDBTableAdapters.spielerTableAdapter
    22. Dim t2 As SoccerDB.spielerDataTable = tsNamen.GetData
    23. spieler2r.ItemsSource = t2
    24. spieler2r.DisplayMemberPath = "name"
    25. spieler2r.SelectedValuePath = "idspieler"
    27. Dim tsNamen3 As New SoccerDBTableAdapters.spielerTableAdapter
    28. Dim t3 As SoccerDB.spielerDataTable = tsNamen.GetData
    29. spieler1b.ItemsSource = t3
    30. spieler1b.DisplayMemberPath = "name"
    31. spieler1b.SelectedValuePath = "idspieler"
    33. Dim tsNamen4 As New SoccerDBTableAdapters.spielerTableAdapter
    34. Dim t4 As SoccerDB.spielerDataTable = tsNamen.GetData
    35. spieler2b.ItemsSource = t4
    36. spieler2b.DisplayMemberPath = "name"
    37. spieler2b.SelectedValuePath = "idspieler"


    die Comboboxen und der code dazu ist in einem Fenster welches nach einem Klick auf ein Button im MainWindow aufgeht
    falls dan bei dem neuen Fenster auf ok gedrückt wird ,wird true zurück gesendet

    VB.NET-Quellcode

    1. If fenster.DialogResult = True Then


    und falls dies der Fall sein sollte sollen die Namen die in den Comboboxen ausgewählt wurden in ein Textfeld eingetragen werden

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Speedy51“ ()

    Geil hat gefunzt :D echt klasse vielen dank euch !!!!

    edit:
    zu früh gefreut funzt nicht immer:
    wenn ich eine Combobox leer lasse kommt dieser fehler:


    "Object reference not set to an instance of an object."

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Speedy51“ ()

    So what?

    Guter Stil ist immer, zu prüfen, ob etwas auch möglich ist und nicht einfach davon auszugehen, DASS es so ist.

    if combobox.selecteditem isnot nothing then
    if typeof combobox.selecteditem is datarowview then
    usw

    alternativ:
    if combobox.selecteditem isnot nothing andalso typeof combobox.selecteditem is datarowview
    ' blup
    else
    ' textbox löschen
    endif

    dan muss ich das aber für alle einzel machen oder nicht?

    VB.NET-Quellcode

    1. If Not fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    3. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    4. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    6. End If

    wenn ich das so mache wird es angezeigt aber nur dan wenn alle boxen ausgewählt wurden
    falls eine box nicht ausgewählt wird wird da ncihts eingetragen im textbox


    edit:

    ok habs jetzt so hingekriegt:


    VB.NET-Quellcode

    1. If Not fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    3. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    4. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    6. End If
    8. If fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    10. spielerrotname.Text = DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    11. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    13. End If
    15. If Not fenster.spieler1r.SelectedIndex < 0 And fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    17. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString()
    18. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    20. End If
    22. If Not fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    24. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    25. spielerblauname.Text = DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    27. End If
    29. If Not fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And fenster.spieler2b.SelectedIndex < 0 Then
    31. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString() + vbNewLine + DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    32. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString()
    34. End If
    36. If fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    38. spielerrotname.Text = DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    39. spielerblauname.Text = DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    41. End If
    43. If Not fenster.spieler1r.SelectedIndex < 0 And fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And fenster.spieler2b.SelectedIndex < 0 Then
    45. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString()
    46. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString()
    48. End If
    50. If fenster.spieler1r.SelectedIndex < 0 And Not fenster.spieler2r.SelectedIndex < 0 And Not fenster.spieler1b.SelectedIndex < 0 And fenster.spieler2b.SelectedIndex < 0 Then
    52. spielerrotname.Text = DirectCast(fenster.spieler2r.SelectedItem, System.Data.DataRowView)("name").ToString()
    53. spielerblauname.Text = DirectCast(fenster.spieler1b.SelectedItem, System.Data.DataRowView)("name").ToString()
    55. End If
    57. If Not fenster.spieler1r.SelectedIndex < 0 And fenster.spieler2r.SelectedIndex < 0 And fenster.spieler1b.SelectedIndex < 0 And Not fenster.spieler2b.SelectedIndex < 0 Then
    59. spielerrotname.Text = DirectCast(fenster.spieler1r.SelectedItem, System.Data.DataRowView)("name").ToString()
    60. spielerblauname.Text = DirectCast(fenster.spieler2b.SelectedItem, System.Data.DataRowView)("name").ToString()
    62. End If


    danke

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Speedy51“ ()

    Brauche nochmal eure Hilfe also:

    Ich habe ein MainWindow auf dem 2 Button sind , wen man auf einen der 2 buttons klickt öffnet sich ein fenster mit 4 comboboxen(Team Rot Spieler 1,Team Rot Spieler 2,Team Blau Spieler 1,Team Blau Spieler 2) wo man die namen auswählen kann
    welche von einer msql datenbank kommen.
    Wenn man dort die Namen ausgewählt hat und auf ok gedrückt wird wird true zurück gesendet und die Namen werden in 2 Textboxen eingetragen mit +vbnewline+

    und wenn man jetzt auf den anderen Button im Mainwindow klickt sollte das spiel losgehen und ein Eintrag sollte in meiner Msql Datenbank eingetragen werden so:

    VB.NET-Quellcode

    1. tsGame.Insert(Now, player1r, player2r, player1b, player2b, mannschaft1, mannschaft2, 1)
    2. game = tsGame.GetDataByLastIdGame.Rows(0)


    Aber wenn man jetzt ein 1 vs 1 möchte also bei den Combobxen blos Team Rot Spieler 1 und Team Blau Spieler 1 auswählt und die 2 anderen Comboboxen leer lässt,
    wird ja bei den leeren comboboxen "nothing" gesendet und ich bekomm den fehler:


    Quellcode

    1. The INSERT statement conflicted with the FOREIGN KEY constraint "FK_game_mannschaft". The conflict occurred in database "soccer", table "dbo.mannschaft", column 'idmannschaft'. The statement has been terminated.


    Könnt ihr mir helfen wie ich das bewerkstellige?

Facebook