ID/Primary Key der ausgewaehlten Zeile einer Combobox in eine Variable speichern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von andydan.

    ID/Primary Key der ausgewaehlten Zeile einer Combobox in eine Variable speichern

    Hallo Leute,

    ich moechte wissen ob mir jemand eine bessere Idee hat wie meine im Code.
    Ich moechte bei auswahl einer bestimmten Zeile auf die ID des Eintrages zugreifen und ihn in eierr Variable zur weiterverarbeitung speichern.
    Momentan habe ich mir mit enem Label beholfen aber ich wollte wissen welche Variante es noch gibt die vielleicht eleganter und fachmaenisch korrekter ist.

    Vielen Dank im voraus

    Andy


    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Imports System.Windows.Forms
    3. Public Class Form1
    4. Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dan\Documents\Lieferungen.accdb")
    5. Dim Table As New DataTable
    6. Dim Table2 As New DataTable
    10. Public Sub Filter()
    12. Dim ID As Integer
    13. Dim i As Integer
    14. Dim l As Integer
    15. Dim searchquery As String = "Select * from HStamm"
    16. Dim command As New OleDbCommand(searchquery, conn)
    17. Dim adapter As New OleDbDataAdapter(command)
    18. adapter.Fill(Table)
    19. adapter.Fill(Table2)
    21. HStammBindingSource.DataSource = Table
    22. With HStammBindingSource
    23. DataGridView1.DataSource = .DataSource
    24. cbo1.DataSource = .DataSource
    25. cbo1.DisplayMember = "Hstamm"
    26. cbo1.ValueMember = "Nachname"
    27. lbl1.DataBindings.Add("Text", .DataSource, "ID_HStamm")
    28. lbl1.Text = l
    29. End With
    31. HStammBindingSource.DataSource = Table2
    32. With HStammBindingSource
    33. cbo2.DataSource = .DataSource
    34. cbo2.DisplayMember = "Hstamm"
    35. cbo2.ValueMember = "ID_Hstamm"
    36. End With
    38. i = Table.Rows.Count - 1
    39. ID = CInt(Table.Rows(i).Item("ID_HStamm"))
    40. lblID.Text = ID
    41. End Sub


    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Dassis verwunderlich.
    Wenn du einen Wert in ein Label tun kannst, wieso dann nicht in eine Variable?

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Imports System.Windows.Forms
    3. Public Class Form1
    4. Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dan\Documents\Lieferungen.accdb")
    5. Dim Table As New DataTable
    6. Dim Table2 As New DataTable
    7. Dim Id1 as Integer
    8. Dim Id2 as Integer
    10. Public Sub Filter()
    12. Dim ID As Integer
    13. Dim i As Integer
    14. Dim l As Integer
    15. Dim searchquery As String = "Select * from HStamm"
    16. Dim command As New OleDbCommand(searchquery, conn)
    17. Dim adapter As New OleDbDataAdapter(command)
    18. adapter.Fill(Table)
    19. adapter.Fill(Table2)
    21. HStammBindingSource.DataSource = Table
    22. With HStammBindingSource
    23. DataGridView1.DataSource = .DataSource
    24. cbo1.DataSource = .DataSource
    25. cbo1.DisplayMember = "Hstamm"
    26. cbo1.ValueMember = "Nachname"
    27. lbl1.DataBindings.Add("Text", .DataSource, "ID_HStamm")
    28. Id1 = l
    29. End With
    31. HStammBindingSource.DataSource = Table2
    32. With HStammBindingSource
    33. cbo2.DataSource = .DataSource
    34. cbo2.DisplayMember = "Hstamm"
    35. cbo2.ValueMember = "ID_Hstamm"
    36. End With
    38. i = Table.Rows.Count - 1
    39. ID = CInt(Table.Rows(i).Item("ID_HStamm"))
    40. Id2 = ID
    41. End Sub

    Hallo ErfinderDesRades,
    vielen Dank fuer deine schnelle Antwort.
    Ich muss mich Entschuldigen. Habe gerade gesehen das ich irgendwie einen fehler im code hatte.
    Hier der richtige Code der bei mir zwar Funktioniert, sich aber auf die Ursprungsfrage bezieht.
    Ich rede dabei um die Zeile 27-28.
    Gibt es hier eine bessere Loesung an die ID?HStamm dranzukommen und in eine Variable zu speichern?
    Ich will die ID danach in einem Insert einer neuen Talbelle weiterverarbeiten.
    als zweite Frage haette ich noch. Spricht was dagegen nur eine BindingSource zu verwenden um mehrere cbo Boxen zu fuellen wie ich es gemacht habe oder findest du das ok?

    Danke Andy

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Imports System.Windows.Forms
    3. Public Class Form1
    4. Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dan\Documents\Lieferungen.accdb")
    5. Dim Table As New DataTable
    6. Dim Table2 As New DataTable
    9. Public Sub Filter()
    11. Dim ID As Integer
    12. Dim i As Integer
    13. Dim l As Long
    14. Dim searchquery As String = "Select * from HStamm"
    15. Dim command As New OleDbCommand(searchquery, conn)
    16. Dim adapter As New OleDbDataAdapter(command)
    17. adapter.Fill(Table)
    18. adapter.Fill(Table2)
    19. 'befuellen der cbo1 und merken der ID in variable l aus cbo1.text
    20. HStammBindingSource.DataSource = Table
    21. With HStammBindingSource
    22. DataGridView1.DataSource = .DataSource
    23. cbo1.DataSource = .DataSource
    24. cbo1.DisplayMember = "Hstamm"
    25. cbo1.ValueMember = "Nachname"
    26. lbl1.DataBindings.Add("Text", .DataSource, "ID_HStamm")
    27. l = lbl1.Text
    28. End With
    30. HStammBindingSource.DataSource = Table2
    31. With HStammBindingSource
    32. cbo2.DataSource = .DataSource
    33. cbo2.DisplayMember = "Hstamm"
    34. cbo2.ValueMember = "ID_Hstamm"
    35. End With
    37. i = Table.Rows.Count - 1
    38. ID = CInt(Table.Rows(i).Item("ID_HStamm"))
    39. lblID.Text = ID
    40. End Sub

    Du kannst mal probieren

    VB.NET-Quellcode

    1. l = Table(0)("ID_HStamm")
    Müsste dasselbe bei rauskommen wie bei deiner Zeile#27.
    Wenn du cbo1 und lbl1 ansonsten nicht weiter brauchst, können die Zeilen #20 - 28 dann gelöscht werden.

    Aber mir sieht das alles ziemlich planlos aus.
    Imo muss man eine Anwendung mit Datenbank-Anbindung komplett anders aufziehen, aber dafür fehlen dir vermutlich sämtliche Grundlagen.
    Daher werden meine Vorschläge, selbst wenn sie punktuell funktionieren, dem Gesamt-Schlamassel nicht abhelfen.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Ja, und

    VB.NET-Quellcode

    1. l = Table(0)("ID_HStamm")
    ?
    Haste es denn mal ausprobiert?


    Achso - zum Auseinandersetzen: Möglicherweise brauchst du gar keine Datenbank. Das würde vieles ungeheuer erleichtern.
    Erklär mal, was du programmieren willst, und warum du dafür eine Datenbank brauchst (oder zu brauchen meinst).

    ich habe es ausprobiert aber ich bekomme den Wert Nothing.
    Ich habe eine Datenbank in der Tabelle Kunden, Geraete .... drin ist
    Ich moechte jetzt das man die daten eingeben kann bearbeiten abrufen usw.
    Habe auch Comboboxen drin die sich die Daten von der db abrufen sollen und dem benutzer dann die moeglichkeit einer auswahl geben.
    In der Form in der ich neue Daten anlege wollte ich die ID haben un das in die Tabelle Auftraege speichern zu koennen.

    andydan schrieb:

    ich habe es ausprobiert aber ich bekomme den Wert Nothing.
    kann nicht sein. l ist vom Datentyp Long, und kann niemals Nothing werden. Zahlen werden 0, aber nicht Nothing.
    Egal.

    In deiner Datenbank sind also Kunde, Geraet, und ... drin.
    Auch egal - zunächst musst du - s.o. - überhaupt lernen, Datentypen zu unterscheiden.
    Als allererstes ist da Visual Studio - Empfohlene Einstellungen zu absolvieren.
    Das macht den Compiler streng, sodass er Datentypen strict unterscheidet.
    Als Folge davon werden unerkannte Fehler sichtbar, und indem du diese auf korrekte Weise behebst, fängst du auch an, Datentypen zu unterscheiden - und das ist eine fundamentale Vorbedingung fürs Proggen.
    Ich fahre hier auch garnet fort, sondern melde dich, wenn du damit durch bist, und erzähl, wie's dir damit ergangen ist.

    super. Danke fuer die Tipps.

    Ich melde mich

    Andy
    p.s. du hast natuerlich Recht. Ich bekomme den Wert 1. richtig
    Was er aber nicht macht ist das wenn ich etwas anderes auswaehle in der cboBox, das er den Wert der ID wechselt.

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

    @ErfinderDesRades
    vielen Dank noch mal fuer deine Tips. Ich habe mir das von dir gesagte yu Heryen genommen und mich erst mal "ein wenig" durchgelesen.
    Mit ein wenig meine ich das ich aus dem lesen bald nicht mehr rauskam.
    Ich habe durch die Tutorials die auch oft von dir stammten eine ganz andere sicht auf das ganze bekommen.
    Heute habe ich auch ein Marathon an den Videos die du vor langer Zeit mal auf Youtube veroeffentlicht hast(vier Views ...) hinter mir und ich muss sagen ich habe sehr viel dabei lernen koennen. Vielen Dank noch mal auch dafuer.
    Es habe sich dabei natuerlich andere Fragen aufgetan allerdings moechte ich erst mal mein neu erworbenes Wissen einsetzen und danach mich um den rest kuemmern.

    Ich wuensche dir noch einen schoene Abend.
    Bis zum naechsten mal.

Facebook
Telefonspende