DataBinding die Xte, ID-Wert aktualisieren

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

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

    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

    Hallo zusammen,

    ich muss mich leider noch einmal hier an Euch wenden, denn der o. g. Code funktioniert so nicht in dem eigentlichen Programm. Der neue Datensatz wird bei mir nicht richtig angelegt.

    Als erstes habe ich mal die beiden Programme parallel gestartet und mit F9 direkt bei der Inputbox-Zeile gestoppt. Von dort aus ging es dann mit F11 abwechselnd Schritt für Schritt weiter.
    Desweitern habe ich auch noch Haltepunkte im DataSet bei If e.StatementType = StatementType.Insert Then gesetzt

    Folgende Unterschiede gibt es:

    1. Nach dem BindingSource.AddNew geht mein Programm in die Private Sub Artikel_Rollendes_MaterialDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Artikel_Rollendes_MaterialDataGridView.CellEnter anstelle der Private Sub Artikel_StammdatenDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Artikel_StammdatenDataGridView.CellEnter

    2. Nach dem Form1.TableAdapterManager.UpdateAll(Form1.TestdatenbankDataSet) in der Speicher - Sub geht mein Programm direkt weiter. Das Testprogramm hingegen geht in die DataSet und e.StatementType ist hier gleich 1 StatementType.Insert.

    3. Beim zweiten Speichern (also nach dem AddNew) geht mein Programm zwar in den DataSet-Code, aber dort ist e.StatementType = 2 (also Update)

    Meine beiden aktuell genutzten Tabellen sind mit einer "Nur Beziehung" verbunden. In meinem Testprogramm hingegen als "Sowohl Beziehungs- als auch Fremdschlüsseleinschränkung". Aber daran kann es nicht liegen, denn wenn ich mein Testprogramm auch nur als "Nur Beziehung" einstelle, funktioniert dies auch immer noch.

    Alle ID Felder und auch das Verknüpfungsfeld sind Int32-Felder.

    Meine zweite Tabelle ist im DataGridView mit der Untertabelle der Haupttabelle verbunden und nicht direkt mit der Untertabelle. Daher ändern sich auch ordentlich die Daten der Untertabelle, wenn in der Haupttabelle sich der Datensatz ändert. Somit müsste hier auch alles richtig sein.

    Da ich in beiden Projekten nichts weiter im DataSet eingestellt habe (außer natürlich den TableAdapter-Code eingefügt habe) sehe ich hier auch nicht das Problem. Mein Hauptprogramm besitzt im Dataset natürlich schon alle in Frage kommenden Tabellen, von denen ich aktuell aber nur 2 benutze. Das dürfte doch eigentlich auch egal sein.

    Da ich leider jetzt nicht mehr weiter weis, hoffe ich, dass Ihr mir helfen könnt.

    Über einige Antworten würde ich mich sehr freuen.

    Gruß
    Volker

    Hier mal meine DataGridView-Subs

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Artikel_StammdatenDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Artikel_StammdatenDataGridView.CellEnter
    3. ' Die Änderungen werden direkt abgespeichert
    4. Call DataGridView_Zelle_verlassen(Artikel_StammdatenDataGridView, Welche_Daten_ENUM.Hauptformular)
    6. End Sub
    7. Private Sub Artikel_StammdatenDataGridView_Leave(sender As Object, e As EventArgs) Handles Artikel_StammdatenDataGridView.Leave
    9. ' Die Änderungen werden direkt abgespeichert
    10. Call DataGridView_Zelle_verlassen(Artikel_StammdatenDataGridView, Welche_Daten_ENUM.Hauptformular)
    12. End Sub
    13. Private Sub Artikel_Rollendes_MaterialDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Artikel_Rollendes_MaterialDataGridView.CellEnter
    15. ' Die Änderungen werden direkt abgespeichert
    16. Call DataGridView_Zelle_verlassen(Artikel_Rollendes_MaterialDataGridView, Welche_Daten_ENUM.Hauptformular)
    18. 'Call Rollende_Artikel_aktualisieren()
    20. End Sub
    21. Private Sub Artikel_Rollendes_MaterialDataGridView_Leave(sender As Object, e As EventArgs) Handles Artikel_Rollendes_MaterialDataGridView.Leave
    23. ' Die Änderungen werden direkt abgespeichert
    24. Call DataGridView_Zelle_verlassen(Artikel_Rollendes_MaterialDataGridView, Welche_Daten_ENUM.Hauptformular)
    26. End Sub

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

    Hallo Haudruferzappeltnoch,

    Hier nun mal mein Code, der aktuell benutzt wird

    Form1
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' **************************************************************************
    2. ' GANZ Wichtig: Auch im DataSet-Deisgner muss pro Tabellenadapter eine Ergänzung vorgenommen werden.
    3. ' Ohne diese Ergänzung wird der ID-Wert nicht aktualisiert
    4. ' Quelle: https://www.vb-paradise.de/index.php/Thread/40718-Auslesen-des-neuen-Wertes-der-Schl%C3%BCsselspalte-nach-dem-Erstellen-eines-neuen-Dat/
    5. ' https://www.vb-paradise.de/index.php/Thread/138330-DataBinding-die-Xte-ID-Wert-aktualisieren/#post1192950
    6. ' **************************************************************************
    7. Imports System.ComponentModel
    8. Imports System.Data.Common
    9. Imports System.Data.OleDb
    10. Imports System.IO
    11. Imports System.Net.WebRequestMethods
    12. Imports System.Windows.Forms.VisualStyles.VisualStyleElement
    14. #Region "Programmstart"
    15. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    17. ' Call Tabellenbeziehungen_erstellen()
    19. ' Damit die Load-Sub nicht so viel Inhalt hat, werden die Tabelleninhalte über eine SUb eingelesen
    20. Call Tabelleninhalt_laden(Welche_Daten_ENUM.Hauptformular)
    22. '' Ein paar Grundeinstellungen vornehmen
    23. 'Call Steuerelemente_einstellen(Welche_Daten_ENUM.Hauptformular)
    25. 'Call Interne_Bilder_zuweisen(Welche_Daten_ENUM.Hauptformular)
    27. 'Call Stammdaten_Bilder_aktualisieren()
    29. 'Call Rollende_Artikel_aktualisieren()
    31. 'Call DGV_Ueberschriften_aendern(Artikel_StammdatenDataGridView)
    33. End Sub
    35. #End Region
    36. #Region "DataGridView Aktionen"
    37. Private Sub Artikel_StammdatenDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Artikel_StammdatenDataGridView.CellEnter
    39. ' Die Änderungen werden direkt abgespeichert
    40. Call DataGridView_Zelle_verlassen(Artikel_StammdatenDataGridView, Welche_Daten_ENUM.Hauptformular)
    42. End Sub
    43. 'Private Sub Artikel_StammdatenDataGridView_Leave(sender As Object, e As EventArgs) Handles Artikel_StammdatenDataGridView.Leave
    45. ' ' Die Änderungen werden direkt abgespeichert
    46. ' Call DataGridView_Zelle_verlassen(Artikel_StammdatenDataGridView, Welche_Daten_ENUM.Hauptformular)
    48. 'End Sub
    49. ''Private Sub Artikel_Rollendes_MaterialDataGridView_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Artikel_Rollendes_MaterialDataGridView.CellEnter
    51. '' ' Die Änderungen werden direkt abgespeichert
    52. '' Call DataGridView_Zelle_verlassen(Artikel_Rollendes_MaterialDataGridView, Welche_Daten_ENUM.Hauptformular)
    54. '' 'Call Rollende_Artikel_aktualisieren()
    56. ''End Sub
    57. 'Private Sub Artikel_Rollendes_MaterialDataGridView_Leave(sender As Object, e As EventArgs) Handles Artikel_Rollendes_MaterialDataGridView.Leave
    59. ' ' Die Änderungen werden direkt abgespeichert
    60. ' Call DataGridView_Zelle_verlassen(Artikel_Rollendes_MaterialDataGridView, Welche_Daten_ENUM.Hauptformular)
    62. 'End Sub
    64. #End Region
    65. #Region "Datensatznavigation"
    66. Private Sub PBox_DS_Erster_Click(sender As Object, e As EventArgs) Handles PBox_DS_Erster.Click
    68. Artikel_StammdatenBindingSource.MoveFirst()
    70. End Sub
    72. Private Sub PBox_DS_Vorheriger_Click(sender As Object, e As EventArgs) Handles PBox_DS_Vorheriger.Click
    74. Artikel_StammdatenBindingSource.MovePrevious()
    76. End Sub
    77. Private Sub PBox_DS_Naechster_Click(sender As Object, e As EventArgs) Handles PBox_DS_Naechster.Click
    79. Artikel_StammdatenBindingSource.MoveNext()
    81. End Sub
    82. Private Sub PBox_DS_Letzter_Click(sender As Object, e As EventArgs) Handles PBox_DS_Letzter.Click
    84. Artikel_StammdatenBindingSource.MoveLast()
    86. End Sub
    87. Private Sub PBox_DS_Speichern_Click(sender As Object, e As EventArgs) Handles PBox_DS_Speichern.Click
    89. ' Zuerst einmal ggf. eine Datenänderung abspeichern
    90. Call Datensatzaenderung_abspeichern(Welche_Daten_ENUM.Hauptformular)
    92. End Sub
    93. Private Sub PBox_DS_Neu_Click(sender As Object, e As EventArgs) Handles PBox_DS_Neu.Click
    95. ' Für das Abfragen des Vornamens habe ich hier eine Variable deklariert,
    96. Dim NeueArtikelNr As String
    98. ' die hier über eine Eingabebox ihren Wert bekommt.
    99. NeueArtikelNr = InputBox("Welche Artikelnr. wollen Sie anlegen?", "", "Test")
    101. ' Zur Sicherheit wird jetzt noch einmal nachgefragt, ob die Eingabe korrekt ist
    102. If MsgBox("Sie sind gerade dabei, einen neuen Datensatz anzulegen." & vbCrLf & vbCrLf &
    103. "Ihre Eingabe war:" & vbCrLf & vbCrLf &
    104. NeueArtikelNr & vbCrLf & vbCrLf &
    105. "Ist diese Eingabe richtig?", MsgBoxStyle.DefaultButton2 + MsgBoxStyle.YesNo, "Neue Artikelnr. anlegen") = vbNo Then
    107. ' wenn nicht, dann wird das Anlegen eines neuen Datensatzes hier abgebrochen
    108. Exit Sub
    110. Else
    112. ' andernfalls wird die Eingabe als neuer Datensatz angelegt
    114. ' Einen neuen Datensatz hinzufügen.
    115. ' Durch den restlichen Code wird auch sofort die ID hinzugefügt.
    116. Artikel_StammdatenBindingSource.AddNew()
    118. ' und den Wert zuweisen
    119. Me.Artikel_Stammdaten_ArtikelnrTextBox.Text = NeuePerson
    121. ' Den neuen Datensatz auch in die Datenbank übernehmen
    122. Call Datensatzaenderung_abspeichern(Welche_Daten_ENUM.Hauptformular)
    124. ' Jetzt noch das erste Eingabefeld ansteuern.
    125. Me.Artikel_Stammdaten_ArtikelnrTextBox.Select()
    127. End If
    129. End Sub
    130. Private Sub PBox_DS_Loeschen_Click(sender As Object, e As EventArgs) Handles PBox_DS_Loeschen.Click
    132. ' Bevor der aktuelle Datensatz gelöscht wird, muss noch eine Sicherheitsabfrage beantwortet werden
    133. If MsgBox("Sie sind gerade dabei, den Datensatz" & vbCrLf & vbCrLf &
    134. Me.Artikel_Stammdaten_ArtikelnrTextBox.Text & " " & Me.Artikel_Stammdaten_BezeichnungTextBox.Text & vbCrLf & vbCrLf &
    135. "zu löschen." & vbCrLf & vbCrLf &
    136. "Wenn Sie jetzt auf Ja drücken, dann sind auch ggf. alle anderen Daten in den untergeordneten Tabellen nicht mehr nutzbar bzw. vorhanden.", MsgBoxStyle.DefaultButton2 + MsgBoxStyle.YesNo) = MsgBoxResult.No Then
    138. ' wurde diese verneint, dann wird hier abgebrochen und alles bleibt so wie gehabt.
    139. Exit Sub
    141. Else
    143. ' andernfalls wird der aktuelle Datensatz gelöscht
    144. ' Durch die eingestellten Beziehungen der einzelnen Tabellen, werden auch hier die Inhalte der Untertabellen mit gelöscht.
    145. ' Dadurch entstehen keine verweisten Datensätze und die Datenbank wird nicht zugemüllt.
    146. Artikel_StammdatenBindingSource.RemoveCurrent()
    148. End If
    150. End Sub
    152. #End Region


    Modul Tabellenzugriffe
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Tabelleninhalt_laden(Welche_Daten As Welche_Daten_ENUM)
    3. Select Case Welche_Daten
    5. Case Welche_Daten_ENUM.Hauptformular
    7. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestdatenbankDataSet.Artikel_Stammdaten". Sie können sie bei Bedarf verschieben oder entfernen.
    8. Form1.Artikel_StammdatenTableAdapter.Fill(Form1.TestdatenbankDataSet.Artikel_Stammdaten)
    10. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestdatenbankDataSet.Artikel_Rollendes_Material". Sie können sie bei Bedarf verschieben oder entfernen.
    11. Form1.Artikel_Rollendes_MaterialTableAdapter.Fill(Form1.TestdatenbankDataSet.Artikel_Rollendes_Material)
    13. ' Das Anfügen von neuen Datensätzen und das Löschen von Datensätzen über das DataGridView verhindern. Es können also nur Daten geändert und gelöscht werden.
    14. ' Das Hinzufügen und das Löschen passiert über einen eigenen Button
    15. Form1.Artikel_StammdatenDataGridView.AllowUserToAddRows = False
    16. Form1.Artikel_StammdatenDataGridView.AllowUserToDeleteRows = False
    18. Form1.Artikel_Rollendes_MaterialDataGridView.AllowUserToAddRows = False
    19. Form1.Artikel_Rollendes_MaterialDataGridView.AllowUserToDeleteRows = False
    21. Case Welche_Daten_ENUM.Form_UT_Hersteller
    23. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestdatenbankDataSet.UT_Hersteller". Sie können sie bei Bedarf verschieben oder entfernen.
    24. Form_UT_Hersteller.UT_HerstellerTableAdapter.Fill(Form_UT_Hersteller.TestdatenbankDataSet.UT_Hersteller)
    26. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestdatenbankDataSet.UT_Anrede". Sie können sie bei Bedarf verschieben oder entfernen.
    27. Form_UT_Hersteller.UT_AnredeTableAdapter.Fill(Form_UT_Hersteller.TestdatenbankDataSet.UT_Anrede)
    29. 'TODO: Diese Codezeile lädt Daten in die Tabelle "TestdatenbankDataSet.UT_Laender". Sie können sie bei Bedarf verschieben oder entfernen.
    30. Form_UT_Hersteller.UT_LaenderTableAdapter.Fill(Form_UT_Hersteller.TestdatenbankDataSet.UT_Laender)
    32. ' Das Anfügen von neuen Datensätzen und das Löschen von Datensätzen über das DataGridView verhindern. Es können also nur Daten geändert und gelöscht werden.
    33. ' Das Hinzufügen und das Löschen passiert über einen eigenen Button
    34. Form_UT_Hersteller.UT_HerstellerDataGridView.AllowUserToAddRows = False
    35. Form_UT_Hersteller.UT_HerstellerDataGridView.AllowUserToDeleteRows = False
    37. End Select
    39. Call Datenfelder_zuweisen(Welche_Daten)
    41. End Sub


    Modul Tabellenfelder_binden
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Windows.Data
    3. Module Tabellenfelder_binden
    4. Sub Datenfelder_zuweisen(Welche_Daten As Welche_Daten_ENUM)
    6. Select Case Welche_Daten
    8. Case Welche_Daten_ENUM.Hauptformular
    10. ' Stammdaten
    11. Call Datenfeld_zuweisen("Artikel_Stammdaten_ArtikelnrTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    12. Call Datenfeld_zuweisen("Artikel_Stammdaten_Artikelnr_AltTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    13. Call Datenfeld_zuweisen("Artikel_Stammdaten_Angelegt_amTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    14. Call Datenfeld_zuweisen("Artikel_Stammdaten_Geaendert_amTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    15. Call Datenfeld_zuweisen("Artikel_Stammdaten_BezeichnungTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    16. Call Datenfeld_zuweisen("TBox_Barcodeanzeige", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    17. Call Datenfeld_zuweisen("Artikel_Stammdaten_BarcodenrTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    18. Call Datenfeld_zuweisen("Artikel_Stammdaten_Barcodeaufkleber_OriginalbezeichnungTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    19. Call Datenfeld_zuweisen("Artikel_Stammdaten_ISBNNummerTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    20. Call Datenfeld_zuweisen("Artikel_Stammdaten_QRCode_InhaltTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    21. Call Datenfeld_zuweisen("Artikel_Stammdaten_Artikelnr_gesichertCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    22. Call Datenfeld_zuweisen("Artikel_Stammdaten_Besteht_aus_mehreren_TeilenCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    23. Call Datenfeld_zuweisen("Artikel_Stammdaten_Barcodeaufkleber_druckenCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    24. Call Datenfeld_zuweisen("Artikel_Stammdaten_Aufkleber_neu_druckenCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    25. Call Datenfeld_zuweisen("Artikel_Stammdaten_Aufkleber_TrainsafeCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    26. Call Datenfeld_zuweisen("Artikel_Stammdaten_Wunschliste_anzeigenCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    27. Call Datenfeld_zuweisen("Artikel_Stammdaten_VerkauftCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    28. Call Datenfeld_zuweisen("Artikel_Stammdaten_NachkontrollierenCheckBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    29. Call Datenfeld_zuweisen("Artikel_Stammdaten_Schnellinfo_BaureiheTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    30. Call Datenfeld_zuweisen("Artikel_Stammdaten_Schnellinfo_BetriebsnrTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    31. Call Datenfeld_zuweisen("Artikel_Stammdaten_Schnellinfo_DekoderAdresseTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    33. ' Stammdaten - Verdeckte Felder
    34. Call Datenfeld_zuweisen("Artikel_Stammdaten_UT_EingabemaskenIDTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    35. Call Datenfeld_zuweisen("Artikel_Stammdaten_UT_SpurweitenIDTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    36. Call Datenfeld_zuweisen("Artikel_Stammdaten_UT_LaenderIDTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    37. Call Datenfeld_zuweisen("Artikel_Stammdaten_UT_ZustandIDTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    38. Call Datenfeld_zuweisen("Artikel_Stammdaten_Schnellinfo_BildpfadTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    39. Call Datenfeld_zuweisen("IDTextBox", Welche_Daten_ENUM.Hauptformular_Stammdaten, Form1.Panel_Stammdaten)
    41. ' Rollendes Material
    42. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_BahngesellschaftenIDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    43. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_HerkunftsgesellschaftenIDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    44. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_HerstellerIDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    45. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_HauptrubrikIDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    46. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_Unterrubrik1IDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    47. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_Unterrubrik2IDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    48. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_BaureiheTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    49. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_BetriebsnrTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    50. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_RevisionsdatumTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    51. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_UT_EpochenIDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    53. ' Rollendes Material - Verdeckte Felder
    54. Call Datenfeld_zuweisen("Artikel_Rollendes_Material_Artikel_StammdatenIDTextBox", Welche_Daten_ENUM.Hauptformular_RollendesMaterial, Form1.Panel_Daten)
    56. Case Welche_Daten_ENUM.Form_UT_Hersteller
    58. ' Grunddaten
    59. Call Datenfeld_zuweisen("UT_Hersteller_BezeichnungTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    60. Call Datenfeld_zuweisen("UT_Hersteller_LangbezeichnungTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    61. Call Datenfeld_zuweisen("UT_Hersteller_VornameTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    62. Call Datenfeld_zuweisen("UT_Hersteller_NachnameTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    63. Call Datenfeld_zuweisen("UT_Hersteller_AkademischerGradTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    64. Call Datenfeld_zuweisen("UT_Hersteller_AbteilungTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    65. Call Datenfeld_zuweisen("UT_Hersteller_StrasseTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    66. Call Datenfeld_zuweisen("UT_Hersteller_PLZTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    67. Call Datenfeld_zuweisen("UT_Hersteller_OrtTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    68. Call Datenfeld_zuweisen("UT_Hersteller_PLZPostfachTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    69. Call Datenfeld_zuweisen("UT_Hersteller_PostfachTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    70. Call Datenfeld_zuweisen("UT_Hersteller_BundeslandTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Grunddaten)
    72. ' Kommunikation
    73. Call Datenfeld_zuweisen("UT_Hersteller_EMailAdresseTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Kommunikation)
    74. Call Datenfeld_zuweisen("UT_Hersteller_VorwahlTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Kommunikation)
    75. Call Datenfeld_zuweisen("UT_Hersteller_DurchwahlTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Kommunikation)
    76. Call Datenfeld_zuweisen("UT_Hersteller_FaxTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Kommunikation)
    77. Call Datenfeld_zuweisen("UT_Hersteller_HandyTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Kommunikation)
    79. ' Interene Daten
    80. Call Datenfeld_zuweisen("UT_Hersteller_EingabemaskenTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Interene_Daten)
    81. Call Datenfeld_zuweisen("UT_Hersteller_DateipfadTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Interene_Daten)
    82. Call Datenfeld_zuweisen("UT_Hersteller_UT_VerzeichnisseIDTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Interene_Daten)
    83. Call Datenfeld_zuweisen("UT_Hersteller_QRCodeTextTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Interene_Daten)
    85. ' Zahlungsinformationen
    86. Call Datenfeld_zuweisen("UT_Hersteller_IBANTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Zahlungsinformationen)
    87. Call Datenfeld_zuweisen("UT_Hersteller_BICTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Zahlungsinformationen)
    88. Call Datenfeld_zuweisen("UT_Hersteller_KontonummerTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Zahlungsinformationen)
    89. Call Datenfeld_zuweisen("UT_Hersteller_BLZTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Zahlungsinformationen)
    91. ' Shopimformationen
    92. Call Datenfeld_zuweisen("UT_Hersteller_WEBSeiteTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Shopimformationen)
    93. Call Datenfeld_zuweisen("UT_Hersteller_OeffnungszeitenTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Shopimformationen)
    94. Call Datenfeld_zuweisen("UT_Hersteller_OnlineShopCheckBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Shopimformationen)
    95. Call Datenfeld_zuweisen("UT_Hersteller_AnmeldenameTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Shopimformationen)
    96. Call Datenfeld_zuweisen("UT_Hersteller_PasswortTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Shopimformationen)
    97. Call Datenfeld_zuweisen("UT_Hersteller_Anmelde_Email_AdresseTextBox", Welche_Daten_ENUM.Form_UT_Hersteller, Form_UT_Hersteller.GBox_Shopimformationen)
    99. End Select
    101. End Sub
    103. Sub Datenfeld_zuweisen(Feldname As String, Welche_Daten As Welche_Daten_ENUM, Steuerelemt As Control)
    105. Dim ControlArt As String
    106. If InStr(Feldname, "TextBox") > 0 Then ControlArt = "TextBox"
    107. If InStr(Feldname, "CheckBox") > 0 Then ControlArt = "CheckBox"
    109. Select Case Welche_Daten
    111. Case Welche_Daten_ENUM.Hauptformular_Stammdaten
    113. Select Case ControlArt
    114. Case "TextBox"
    115. Steuerelemt.Controls(Feldname).DataBindings.Add("Text",
    116. Form1.Artikel_StammdatenBindingSource,
    117. Replace(Feldname, ControlArt, ""),
    118. False,
    119. DataSourceUpdateMode.OnPropertyChanged)
    120. Case "CheckBox"
    121. Steuerelemt.Controls(Feldname).DataBindings.Add("Checked",
    122. Form1.Artikel_StammdatenBindingSource,
    123. Replace(Feldname, ControlArt, ""),
    124. False,
    125. DataSourceUpdateMode.OnPropertyChanged)
    127. End Select
    129. Case Welche_Daten_ENUM.Hauptformular_RollendesMaterial
    131. Select Case ControlArt
    132. Case "TextBox"
    133. Steuerelemt.Controls(Feldname).DataBindings.Add("Text",
    134. Form1.Artikel_Rollendes_MaterialBindingSource,
    135. Replace(Feldname, ControlArt, ""),
    136. False,
    137. DataSourceUpdateMode.OnPropertyChanged)
    138. Case "CheckBox"
    139. Steuerelemt.Controls(Feldname).DataBindings.Add("Checked",
    140. Form1.Artikel_Rollendes_MaterialBindingSource,
    141. Replace(Feldname, ControlArt, ""),
    142. False,
    143. DataSourceUpdateMode.OnPropertyChanged)
    145. End Select
    147. Case Welche_Daten_ENUM.Form_UT_Hersteller
    149. Select Case ControlArt
    150. Case "TextBox"
    151. Steuerelemt.Controls(Feldname).DataBindings.Add("Text",
    152. Form_UT_Hersteller.UT_HerstellerBindingSource,
    153. Replace(Feldname, ControlArt, ""),
    154. False,
    155. DataSourceUpdateMode.OnPropertyChanged)
    156. Case "CheckBox"
    157. Steuerelemt.Controls(Feldname).DataBindings.Add("Checked",
    158. Form_UT_Hersteller.UT_HerstellerBindingSource,
    159. Replace(Feldname, ControlArt, ""),
    160. False,
    161. DataSourceUpdateMode.OnPropertyChanged)
    163. End Select
    165. End Select
    167. End Sub
    168. End Module


    DataSet-Code
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Namespace TestdatenbankDataSetTableAdapters
    4. Partial Public Class Artikel_Rollendes_MaterialTableAdapter
    6. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
    7. Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles _adapter.RowUpdated
    9. If e.StatementType = StatementType.Insert Then
    11. _IdentityCommand.Connection = e.Command.Connection
    12. _IdentityCommand.Transaction = e.Command.Transaction
    13. e.Row(e.Row.Table.PrimaryKey(0)) = _IdentityCommand.ExecuteScalar()
    15. End If
    17. End Sub
    19. End Class
    21. Partial Public Class Artikel_StammdatenTableAdapter
    23. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
    24. Private Sub Adapter_RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles _adapter.RowUpdated
    26. If e.StatementType = StatementType.Insert Then
    28. _IdentityCommand.Connection = e.Command.Connection
    29. _IdentityCommand.Transaction = e.Command.Transaction
    30. e.Row(e.Row.Table.PrimaryKey(0)) = _IdentityCommand.ExecuteScalar()
    32. End If
    34. End Sub
    36. End Class
    38. End Namespace
    40. Partial Class TestdatenbankDataSet
    41. End Class


    Mein Hauptprogramm geht in der Zeile 116 (Form1) einfach weiter. Mein Testprogramm springt in die DataGridView_CellEnter-Sub und von dort aus nach dem TableAdapterManager.UpdateAll in den DataSet-Code mit Insert und beim zweiten Speichern natürlich im Update.

    Ich hoffe, dass ich jetzt nichts vergessen habe und Du bzw. Ihr mir helfen könnt.

    Gruß
    Volker

    _________________________________________________________________________________________________________________________

    Hallo Zusammen,

    habe gerade selbst die Lösung gefunden. (Hier habe ich den Denkanstoss her: vbarchiv.net/forum/id22_i48458…e-funktioniert-nicht.html)

    Den Code habe ich erst einmal als erstes in das Form_Load gepackt und dann getestet.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' Alle Ja/Nein Felder auf einen Defaultwert setzen
    2. ' Ohne diese Grundeinstellung klappt später das Hinzufügen nicht.
    3. For Each table As DataTable In TestdatenbankDataSet.Tables
    4. For Each column As DataColumn In table.Columns
    5. ' Überprüfen, ob die Spalte vom Typ Boolean ist
    6. If column.DataType Is GetType(Boolean) Then
    7. ' Setze den Default-Wert auf False
    8. column.DefaultValue = False
    9. End If
    10. Next
    11. Next


    Plötzlich läuft es.

    Da ich natürlich nicht an solch eine Kleinigkeit gedacht habe, habe ich leider auch nicht erwähnt, dass mein Testprojekt kein solches Feld hat. Daher hat dieses Projekt auch keine Probleme damit. Mein Hauptprojekt hat aber diverse Tabellen mit diversen Ja/Nein-Feldern und somit habe ich mich jetzt entschlossen, diesen schnellen und einfachen Weg zu gehen. Klar kann man jetzt natürlich auch alle in Frage kommenden Felder im DataSet umstellen, aber so geht es am schnellsten.

    NOCH EINE FRAGE: Aber eine ganz wichtige Frage habe ich trotzdem noch

    Kann ich den DataSet Code irgendwie für alle Tabellen nur einmal einfügen oder muss ich tatsächlich alle Tabellen einzeln so eintragen?

    Vielen Dank trotzdem.

    Volker

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

    Im DataSet-Designer kann man Default-Werte für die Spalten direkt vergeben. Das mache ich aber selten, deswegen weiß ich nicht hundertprozentig, wie das DataSet damit umgeht, also wann genau der Default-Wert auch geschrieben wird. Müsstest mal ausprobieren

    Ansonsten muss ich auch sagen benutze ich meist DGV und BindingSource in einer Weise, das alles automatisch läuft.

    VB.NET-Quellcode

    1. Private Sub PBox_DS_Naechster_Click(sender As Object, e As EventArgs) Handles PBox_DS_Naechster.Click
    3. Artikel_StammdatenBindingSource.MoveNext()
    5. End Sub
    Warum steuerst du das DGV mit Buttons?

    Hallo Haudruferzappeltnoch,

    das Steuern mit Buttons ist er so was optisches.

    Mein DataGridView ist recht flach in der Höhe, da darunter noch viel Platz gebraucht wird. Klar, könnte man die Daten auch über das DataGridView wechseln, aber spätestens der erste und letzte Datensatz geht über Buttons schneller. Evtl. wird das DGV auch noch ein und ausgeblendet und dann bräuchte ich die Buttons auf jeden Fall.

    Was aber auch noch kommen soll, ist ein Filtermöglichkeit über alle Spalten bzw. über eine vorher festzulegende Spalte. Hierzu wollte ich wahrscheinlich einfach passende Textboxen über oder unter die jeweiligen Spalten packen und man kann dann seinen Filter einfach festlegen. Soweit bin ich aber noch nicht, sondern dass ist erst einmal eine Idee. Mal sehen, wie ich es tatsächlich umsetze. Wenn es geht, dann wäre es cool, wenn ich passende Controls per Code erzeuge, die dann so ausgerichtet sind in der Breite bzw. mittigen Position, wie im DGV.

    Hast Du evtl. noch eine Lösung für meine zusätzliche Frage bzgl. Vereinfachung des DataSet-Codes? Das würde mich gerade auch noch sehr interessieren. Müsste ich tatsächlich für jede Tabelle einen solchen Code einfügen, dann wäre der Optik hier wohl recht schnell ein Minus zu geben. Vor allem deswegen, da der eigentliche Code ja immer der selbe ist.

    Noch einen schönen Sonntag.

    Volker

    Mir fehlt da glaub auch bisschen Kontext zu.
    Aber das dreht sich denke ich um die Problematik mit Access und AutoIncrement Spalten oder?

    Generell braucht jede Tabelle ihren Adapter, deswegen ist eine AdapterManager Klasse entscheidend.
    Da hatte man dich schon drauf hingewiesen auf die DbPersistance von EdR, die behebt auch das AutoIncrement Problem, benutzt du die schon?