DataBinding die Xte, ID-Wert aktualisieren

  • VB.NET
  • .NET (FX) 4.5–4.8
Gewinnspiel – 3-Tages-Freiticket für die BASTA! Spring 2025 zu gewinnen

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    DataBinding die Xte, ID-Wert aktualisieren

    Hallo zusammen,

    ich habe mir eine kleine Test-Access-ACCDB Datei erstellt. 2 Tabellen (Personen, Telefonnr). Beide haben ein Autowert ID-Feld als Long Integer.

    Personen_______Telefonnr
    ID_____________ID
    Vorname_______PersonenID (auch Zahl, Long Integer)
    Nachname_____Vorwahl
    ______________Durchwahl

    Dann habe ich diese Datenbank in mein Projekt eingebunden. Dann noch schnell eine Form mit 3 Buttons (Btn_Neue_Person, Btn_Speichern und Btn_Aktualisieren angelegt und den Anzeigetext geändert. Dann habe ich mir den DataSet-Designer geöffnet und eine Beziehung (Join) von Personen.ID nach Telefon.PersonenID gezogen, noch schnell den Punkt bei 'Sowohl Bezeichungs- als auch Fremdschlüsseleinschränkung aktiviert (Cascade, Cascade, None wurden ja automatisch eingestellt). Dann zurück in die Form und dort die Datetnquellen geöffnet. Als erstes dann die Personen-Tabelle als DGV auf die Form gezogen und dann die verknüpfte Tabelle 'Telefonnr' auch als DGV rüber gezogen. Weitere Einstellungen habe ich nicht mehr vorgenommen.

    Vor den ersten Start habe ich ein paar Testdaten in beide Tabellen eingetragen, damit ich zu mindestens das Join-Ergebnis sehen kann.

    Danach das ganze mit unten stehenden Code gestartet.

    Ergebnis
    1. Links in dem Personen-DGV stehen alle Datensätze vollständig drin. Auch die Telefonnr. für den ersten Datensatz werden angezeigt.
    2. Wechsel ich nun den Datensatz, dann ändert sich auch die Anzeige im Telefon-DGV
    3. Ändere ich nun im DGV den Vornamen bzw. Nachnamen und verlasse den Datensatz, werden diese Änderungen auch in der Access-Tabelle angezeigt (ggf. F5 drücken)
    4. Möchte ich nun einen neuen Datensatz eintragen, drücke ich Btn_Neue_Person und trage dort den Vornamen ein. Die ID ist -1.

    Soweit alles gut und schön.

    Möchte ich aber auch eine Telefonnr. eintragen, so kann ich dies zwar tun. Es wird auch PersonenID = -1 übernommen, aber wenn ich das ganze abspeichere, dann bekommt zwar Person.ID einen Autowert, dieser wird aber nicht in Telefonnr.PersonenID mit geändert. Dort steht in der Access-Datenbank immer noch -1.

    Jetzt die Frage:
    Wie komme ich direkt nach der Inputbox die ID aktualisiert zurück geliefert und kann somit auch die Telefonnr. eintragen. Denn mache ich die Eingabe einer Telefonnr. die schon einen Wert PersonenID>0 hat, so klappt der Rest einwandfrei.

    All die Beispiele, die ich bisher gesehen habe, fügen keinen neuen Datensatz hinzu in beiden Tabellen. Die meisten Beispiele sind nur für eine Tabelle.

    Über eine kurze Rückmeldung würde ich mich sehr freuen.

    Volker

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.Common
    3. Public Class Form1
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. ' Braucht man diese Zeilen?
    9. ' Wenn ja, dann muss man ggf. die Reihenfolge ändern: Erst die Haupttabellen und dann zum Schluss die Untertabellen
    10. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestDBDataSet.Personen". Sie können sie bei Bedarf verschieben oder entfernen.
    11. Me.PersonenTableAdapter.Fill(Me.TestDBDataSet.Personen)
    12. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestDBDataSet.Telefonnr". Sie können sie bei Bedarf verschieben oder entfernen.
    13. Me.TelefonnrTableAdapter.Fill(Me.TestDBDataSet.Telefonnr)
    15. PersonenDataGridView.AllowUserToAddRows = False
    16. ' TelefonnrDataGridView.AllowUserToAddRows = False
    18. End Sub
    20. Sub Speichern()
    21. ' Ist eine extra SUB, damit diese von jeder Stelle ggf. aufgerufen werden kann.
    23. Try
    25. ' Überprüft die Eingaben
    26. Me.Validate()
    28. ' Die Änderungen werden in die DataTable geschrieben
    29. Me.TelefonnrBindingSource.EndEdit()
    30. Me.PersonenBindingSource.EndEdit()
    32. ' und von dort aus in die Access-Datenbank
    33. Me.TableAdapterManager.UpdateAll(Me.TestDBDataSet)
    35. Catch ex As Exception
    37. ' Zeigt ggf. einen Fehler an
    38. MsgBox("Fehler beim speichern der Daten in die Access-Datenbank Fehler:" & vbCrLf & vbCrLf &
    39. ex.Message)
    41. End Try
    43. End Sub
    45. Private Sub PersonenDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles PersonenDataGridView.CellEnter
    47. ' Damit bei einem Wechsel innerhalb des DataGridViews gleich die ggf. vorhandenen Änderungen gesichert werden,
    48. ' wird hier erst einmal der Wert der ersten Spalte (ID) ermittelt
    49. Dim value As Object = PersonenDataGridView.Item(0, e.RowIndex).Value
    51. ' Wenn es keinen Wert gibt,
    52. If value = Nothing Or value < 0 Then
    54. ' dann passiert hier nichts mehr
    55. Exit Sub
    57. Else
    59. ' andernfalls werden die Änderungen gesichert
    60. Call Speichern()
    62. End If
    64. End Sub
    66. Private Sub TelefonnrDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles TelefonnrDataGridView.CellEnter
    68. ' Damit bei einem Wechsel innerhalb des DataGridViews gleich die ggf. vorhandenen Änderungen gesichert werden,
    69. ' wird hier erst einmal der Wert der ersten Spalte (ID) ermittelt
    70. Dim value As Object = TelefonnrDataGridView.Item(0, e.RowIndex).Value
    72. ' Wenn es keinen Wert gibt,
    73. If value = Nothing Or value < 0 Then
    75. ' auf die letzte Datenzeile gehen
    76. 'TelefonnrDataGridView.FirstDisplayedCell = TelefonnrDataGridView.Rows(TelefonnrDataGridView.RowCount - 1).Cells(0)
    78. 'Call Speichern()
    80. ' dann passiert hier nichts mehr
    81. Exit Sub
    83. Else
    85. ' andernfalls werden die Änderungen gesichert
    86. ' Call Speichern()
    88. End If
    90. End Sub
    92. Sub Aktualisieren()
    94. ' Hier soll eigentlich das passieren, was nicht klappt.
    96. ' Ich möchte nach der Eingabe eines Vornamens, dass die angezeigte ID sich auf den Wert ändert, des diese Zeile auch in der Datenbank hat.
    97. ' Aktuell steht dort immer -1 usw.
    99. End Sub
    100. Private Sub Btn_Speichern_Click(sender As Object, e As EventArgs) Handles Btn_Speichern.Click
    102. ' Ruft das Speichern der Daten in die Access-Datenbank auf
    103. Call Speichern()
    105. End Sub
    106. Private Sub Btn_Aktualisieren_Click(sender As Object, e As EventArgs) Handles Btn_Aktualisieren.Click
    108. Call Aktualisieren()
    110. End Sub
    111. Private Sub Btn_Neue_Person_Click(sender As Object, e As EventArgs) Handles Btn_Neue_Person.Click
    113. ' Für das Abfragen des Vornamens habe ich hier eine Variable deklariert,
    114. Dim NeuePerson As String
    116. ' die hier über eine Eingabebox ihren Wert bekommt.
    117. NeuePerson = InputBox("Welchen Vornamen hat die neue Person?", "", "Test")
    118. ' Gültigkeitsabfragen oder ähnliches spare ich mir hier erst einmal
    120. ' Jetzt wird die Eingabe in die Access-Datenbank eingetragen.
    121. TestDBDataSet.Personen.AddPersonenRow(NeuePerson, "")
    123. ' und die neue aktuelle letzte Zeile sowie die zweite Spalte (0 basiert) angesteuert
    124. PersonenDataGridView.CurrentCell = PersonenDataGridView(1, PersonenDataGridView.Rows.Count - 1)
    126. Try
    128. ' Die Änderungen werden jetzt gespeichert
    129. Call Speichern()
    131. ' und die ID soll hier eigentlich aktualisiert werden
    132. Call Aktualisieren()
    134. Catch ex As Exception
    136. MsgBox("Das Hinzufügen hat einen Fehler verursacht Fehler:" & vbCrLf & vbCrLf &
    137. ex.Message)
    139. End Try
    140. End Sub
    142. 'Private Sub Btn_Neue_Telefonnr_Click(sender As Object, e As EventArgs) Handles Btn_Neue_Telefonnr.Click
    144. ' ' Für das Abfragen des Vornamens habe ich hier eine Variable deklariert,
    145. ' Dim NeueTelefonnr As String
    147. ' ' die hier über eine Eingabebox ihren Wert bekommt.
    148. ' NeueTelefonnr = InputBox("Welche Vorwahl. hat die Person?", "", "12345")
    149. ' ' Gültigkeitsabfragen oder ähnliches spare ich mir hier erst einmal
    151. ' Dim PersonID As Int32
    152. ' PersonID = PersonenDataGridView.CurrentRow.Cells(1).Value
    154. ' ' Jetzt wird die Eingabe in die Access-Datenbank eingetragen.
    155. ' TestDBDataSet.Telefonnr.AddTelefonnrRow(PersonID, NeueTelefonnr, "", "")
    157. ' ' und die neue aktuelle letzte Zeile sowie die zweite Spalte (0 basiert) angesteuert
    158. ' TelefonnrDataGridView.CurrentCell = TelefonnrDataGridView(3, TelefonnrDataGridView.Rows.Count - 2)
    160. ' Try
    162. ' ' Die Änderungen werden jetzt gespeichert
    163. ' Call Speichern()
    165. ' ' und die ID soll hier eigentlich aktualisiert werden
    166. ' Call Aktualisieren()
    168. ' Catch ex As Exception
    170. ' MsgBox("Das Hinzufügen hat einen Fehler verursacht Fehler:" & vbCrLf & vbCrLf &
    171. ' ex.Message)
    173. ' End Try
    174. 'End Sub
    175. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Volker Bunge“ ()

    Dein Fehler ist bekannt.

    ErfinderDesRades schrieb:

    Die TableAdapterManager.UpdateAll()-Methode funktioniert leider nur bei Datenbanken, die In-/Out-DbParameter unterstützen: SqlServer, MySql, SqLite,...
    Bei anderen Datenbanken schlägt Sie fehl: Access, SqlCe,...
    Der Fehlschlag betrifft "nur" neu eingefügte Datensätze, deren Primkey-Spalte autoIncrementiert. Denn solche Primkeys werden im Dataset nur provisorisch generiert, und beim Abspeichern muss von der DB abgerufen werden, welchen AutoIncrement-Wert diese als den Endgültigen generiert hat.

    Schau mal hier, das ist eine Lösung auch für Access. (Da ist auch das Zitat her)

    Hallo Haudruferzappeltnoch,

    vielen Dank für den Link. Habe mir das Ganze mal durchgelesen und doch noch viele Bahnhöfe gesehen. Werde mir heute Nachmittag mal die Zip-Dateien ansehen und mit denen ein wenig rumspielen.

    Aber schon erstaunlich, dass man für so einen kleinen Auftrag einen so riesigen Aufwand betreiben muss.

    Liegt das jetzt eigentlich an den Datenbanken oder doch er an VB.Net? Denn ohne einen eindeutigen PrimaryKey ist doch ein Programm kpl. Sinnlos. Klar kann man wahrscheinlich das Ganze umgehen, wenn man gleich XML (oder sonst was) nutzt. Aber viele arbeiten halt gerne mit Datenbanken. Da es ja das Problem auch für andere Datenbankformate gibt, ist es doch erstaunlich, dass es mit "Bordmitteln" nicht so einfach geht.

    Da mein zukünftiges Projekt doch mit x Tabellen daher kommt, will ich natürlich auch eine möglichst einfache Handhabung der Tabellennutzung haben.

    Wenn ich es mal getestet habe, dann melde ich mich noch einmal.

    @ErfinderDesRades: Auch an Dich schon einmal hier einen ganz großen Daumen hoch für Deine Mühe bzw. Arbeit.

    Ich hoffe mal, das es am Ende nur ein paar Zeilen sind, die mir die ganze Arbeit erledigen.

    Gruß
    Volker


    ...Jetzt die Frage:
    Wie komme ich direkt nach der Inputbox die ID aktualisiert zurück geliefert und kann somit auch die Telefonnr. eintragen....



    mit "SELECT @@Identity" kannst die denn Autowert ermitteln.

    hier ein Bsp.
    die Tabelle tbl_Student hat zwei felder
    StudentID = Autowert
    StudentName = Text


    VB.NET-Quellcode

    1. Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
    2. Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;data source=E:\db2010.accdb"
    3. Using conn As New OleDbConnection(connect)
    4. Using cmd As New OleDb.OleDbCommand("INSERT INTO tbl_Student (StudentName) VALUES (@StudentName)", conn)
    5. cmd.Parameters.AddWithValue("@StudentName", txtName.Text)
    6. conn.Open()
    7. Try
    8. cmd.ExecuteNonQuery()
    9. Dim Newid As Integer
    10. cmd.CommandText = "SELECT @@Identity AS [id];"
    11. Newid = Convert.ToInt32(cmd.ExecuteScalar())
    12. 'txtID.Text = Newid
    13. Label1.Text = "Datensatz angelegt mit ID = " & Newid ' <-- dein Autowert
    14. Catch ex As Exception
    15. MessageBox.Show(ex.ToString())
    16. End Try
    17. End Using
    18. End Using
    19. End Sub

    Hallo Kasi, Hallo Haudruferzappeltnoch,

    @Haudruferzappeltnoch: Das ist schon erstaunlich, dass man so eine wichtige Sache vergisst und dann in all den Jahren nicht schafft, dieses Fehler irgendwie zu beheben.

    @Kasi: Auch Dir vielen Dank für Deine Antwort. Sie funktioniert super. Jetzt möchte ich aber noch, dass der neue Datensatz auch in meinem DGV (bzw. später in den Eingabefeldern) richtig angezeigt wird. Wie kann ich also den Inhalt aktualisieren?

    Vielen Dank

    Volker

    Hallo VB1963,

    vielen Dank für den Link. Der hat mich ein Stück nach vorne gebracht.

    Ich habe nun folgenden Code in meiner Form

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. ' **************************************************************************
    3. ' GANZ Wichtig: Auch im DataSet-Deisgner muss pro Tabellenadapter eine Ergänzung vorgenommen werden.
    4. ' Ohne diese Ergänzung wird der ID-Wert nicht aktualisiert
    5. ' Quelle: https://www.vb-paradise.de/index.php/Thread/40718-Auslesen-des-neuen-Wertes-der-Schl%C3%BCsselspalte-nach-dem-Erstellen-eines-neuen-Dat/
    6. ' https://www.vb-paradise.de/index.php/Thread/138330-DataBinding-die-Xte-ID-Wert-aktualisieren/#post1192950
    7. ' **************************************************************************
    8. Public Class Form1
    10. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. ' Wenn ja, dann muss man ggf. die Reihenfolge ändern: Erst die Haupttabellen und dann zum Schluss die Untertabellen
    13. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestDBDataSet.Personen". Sie können sie bei Bedarf verschieben oder entfernen.
    14. Me.PersonenTableAdapter.Fill(Me.TestDBDataSet.Personen)
    15. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestDBDataSet.Telefonnr". Sie können sie bei Bedarf verschieben oder entfernen.
    16. Me.TelefonnrTableAdapter.Fill(Me.TestDBDataSet.Telefonnr)
    18. End Sub
    20. Private Sub PersonenDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles PersonenDataGridView.CellEnter
    22. ' Die Änderungen werden direkt abgespeichert
    23. Call DataGridView_Zelle_verlassen(PersonenDataGridView)
    25. End Sub
    26. Private Sub PersonenDataGridView_Leave(sender As Object, e As EventArgs) Handles PersonenDataGridView.Leave
    28. ' Die Änderungen werden direkt abgespeichert
    29. Call DataGridView_Zelle_verlassen(PersonenDataGridView)
    31. End Sub
    33. Private Sub TelefonnrDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles TelefonnrDataGridView.CellEnter
    35. ' Die Änderungen werden direkt abgespeichert
    36. ' Wird benötigt, wenn man Bspw. nur einen Wert für den neuen Datensatz anlegt und ohne Enter zu drücken wo anders hingeht.
    37. Call DataGridView_Zelle_verlassen(TelefonnrDataGridView)
    39. End Sub
    40. Private Sub TelefonnrDataGridView_Leave(sender As Object, e As EventArgs) Handles TelefonnrDataGridView.Leave
    42. ' Die Änderungen werden direkt abgespeichert
    43. ' Wird benötigt, wenn man Bspw. nur einen Wert für den neuen Datensatz anlegt und ohne Enter zu drücken wo anders hingeht.
    44. Call DataGridView_Zelle_verlassen(TelefonnrDataGridView)
    46. End Sub
    48. Private Sub Btn_Speichern_Click(sender As Object, e As EventArgs) Handles Btn_Speichern.Click
    50. ' Ruft das Speichern der Daten in die Access-Datenbank auf
    51. Call Speichern()
    53. End Sub
    54. Sub Speichern()
    56. ' Ist eine extra SUB, damit diese von jeder Stelle ggf. aufgerufen werden kann.
    58. Try
    60. ' Überprüft die Eingaben
    61. Me.Validate()
    63. ' Die Änderungen werden in die DataTable geschrieben
    64. Me.TelefonnrBindingSource.EndEdit()
    65. Me.PersonenBindingSource.EndEdit()
    67. ' und von dort aus in die Access-Datenbank
    68. Me.TableAdapterManager.UpdateAll(Me.TestDBDataSet)
    70. Catch ex As Exception
    72. ' Zeigt ggf. einen Fehler an
    73. MsgBox("Fehler beim speichern der Daten in die Access-Datenbank Fehler:" & vbCrLf & vbCrLf &
    74. ex.Message)
    76. End Try
    78. End Sub
    80. Sub DataGridView_Zelle_verlassen(DGV As DataGridView)
    82. ' Wenn kein DataGridView übergeben wird,
    83. If IsNothing(DGV) Then
    85. ' dann hier gleich wieder raus
    86. Exit Sub
    88. End If
    90. ' Es wird geprüft, ob die aktuelle Zeile gleich der Zeile für Neueingaben ist
    91. If DGV.CurrentRow.Index = DGV.NewRowIndex Then
    93. ' wenn dass der Fall ist, dann passiert nichts
    95. Else
    97. ' andernfalls werden die Neueingaben gespeichert
    98. Call Speichern()
    100. End If
    102. End Sub
    104. End Class


    Anschließend habe ich noch meinen DataSet-Designer geöffnet (als die Ansicht, wo man die ganzen Tabellen und Beziehungen sieht). Dann habe ich einen Doppelklick auf den TableAdapter gemacht und folgendes Endergebnis erzeugt.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.Data.OleDb
    4. Namespace TestDBDataSetTableAdapters
    6. ' Dieser Teil muss pro Tabellenadapter eingefügt werden
    7. Partial Public Class PersonenTableAdapter
    9. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
    11. Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles _adapter.RowUpdated
    13. If e.StatementType = StatementType.Insert Then
    15. _IdentityCommand.Connection = e.Command.Connection
    16. _IdentityCommand.Transaction = e.Command.Transaction
    17. e.Row(e.Row.Table.PrimaryKey(0)) = _IdentityCommand.ExecuteScalar()
    19. End If
    21. End Sub
    23. End Class
    24. ' Ende des Teil für die oben stehende Tabelle
    26. ' Hier kommt auch gleich die nächste Tabelle
    27. ' Der größte Teil wiederholt sich.
    28. Partial Public Class TelefonnrTableAdapter
    30. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
    32. Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles _adapter.RowUpdated
    34. If e.StatementType = StatementType.Insert Then
    36. _IdentityCommand.Connection = e.Command.Connection
    37. _IdentityCommand.Transaction = e.Command.Transaction
    38. e.Row(e.Row.Table.PrimaryKey(0)) = _IdentityCommand.ExecuteScalar()
    40. End If
    42. End Sub
    44. End Class
    46. End Namespace
    48. Partial Class TestDBDataSet
    49. End Class


    Ich habe meinen Code auch ein wenig kommentiert, damit ich später noch alles weiss.

    Die ersten Test sahen sehr vielversprechend aus.

    Jetzt ist halt noch eine Frage offen: Kann man den zweiten Teil eigentlich irgendwie kürzen und es für alle Tabellenadapter gelten machen? Weil bei zig Tabellen ist es ja immer das Gleiche.

    Gruß

    Volker