SQLAdapter und DataTable bei Update/Insert neue ID

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

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Schwakowiak.

    SQLAdapter und DataTable bei Update/Insert neue ID

    Hallo liebe Leute,
    ich hoffe ihr könnt mir helfen :)

    Zur Zeit arbeite ich an einem kleinen Testprogramm indem ich Datenbankeinträge lesen, schreiben und einfügen möchte.
    Beim laden der WPF-Form wird das vorhandene DataGrid mit den Datenbankeinträgen gefüllt.
    Hier der XAML Code:

    XML-Quellcode

    1. <DataGrid x:Name="mitarbeiterGrid" ItemsSource="{Binding}" AutoGenerateColumns="False" Width=" Auto" >
    2. <DataGrid.Columns>
    4. <DataGridTextColumn IsReadOnly="True" Header="ID" Width="50" Binding="{Binding Path=Id}"> </DataGridTextColumn>
    5. <DataGridTextColumn Header="Vorname" Width="125" Binding="{Binding Path=Vorname}" ></DataGridTextColumn>
    6. <DataGridTextColumn Header="Nachname" Width="125" Binding="{Binding Path=Nachname}"></DataGridTextColumn>
    7. </DataGrid.Columns>
    9. </DataGrid>


    Member Variablen der Klasse "Mitarbeiter"

    VB.NET-Quellcode

    1. Dim da As OleDb.OleDbDataAdapter
    3. Dim dt As New DataTable()
    4. 'Connection String aus der app.config auslesen. So lässt sich das individuell anpassen
    5. Dim _connectionString As String = ConfigurationManager.ConnectionStrings("database").ConnectionString
    6. 'Verbindungsaufbau
    7. Dim _sqlConnection As New SqlConnection(_connectionString)
    8. 'SQL-Befehel
    9. Dim _queryCMD = "SELECT * FROM Mitarbeiter"
    10. Dim sqlAdapter As SqlDataAdapter = New SqlDataAdapter(_queryCMD, _sqlConnection)

    Den Connectionstring ziehe ich aus der App.Config

    Konstruktore der Form:

    VB.NET-Quellcode

    1. Public Sub New()
    3. ' Dieser Aufruf ist für den Designer erforderlich.
    4. InitializeComponent()
    6. _sqlConnection.Open()
    8. 'SqlAdapter fill das DataTable
    9. sqlAdapter.Fill(dt)
    11. 'Der dataGridView die Tabelle zuweisen
    12. mitarbeiterGrid.DataContext = dt
    13. 'Verbindung schließen
    14. _sqlConnection.Close()
    16. End Sub

    Bis dahin funktioniert auch alles top:-)

    Nun soll der User neue Zeilen einfügen löschen und editieren können.
    Wenn das Event Window_Closing eintrifft, updatet er mir die Tabelle - das funktioniert auch (wenn ich bestehende Datensätze bearbeite z.B. Vorname)

    VB.NET-Quellcode

    1. Private Sub Window_Closing(sender As Object, e As ComponentModel.CancelEventArgs)
    2. 'Update Command
    3. 'Update Commnand mit Variablen bestücken
    4. Dim upd As String = "Update Mitarbeiter SET Vorname = @vorname, Nachname = @nachname WHERE id = @id"
    5. 'SqlCommand generieren
    6. Dim cmd As New SqlCommand(upd, _sqlConnection)
    7. 'Parameter hinzufügen, vor und nachname
    8. cmd.Parameters.Add("@vorname", SqlDbType.VarChar, 25, "vorname")
    9. cmd.Parameters.Add("@nachname", SqlDbType.VarChar, 25, "nachname")
    10. 'Id bleibt im Originalen ja immer gleich. Hier wird nur verglichen
    11. Dim parm As SqlParameter = cmd.Parameters.Add("@id", SqlDbType.Int, 4, "id")
    12. '... Original
    13. parm.SourceVersion = DataRowVersion.Original
    15. 'dem SqlDapter den ganzen Befehl zuweisen
    16. sqlAdapter.UpdateCommand = cmd
    17. 'Update durchführen
    18. sqlAdapter.Update(dt)
    19. _sqlConnection.Close()
    21. End Sub


    Nun da ist auch das Problem. Habe ich neue Zeilen oder lösche ich welche - wirft er mir eine exception. Es wird ja auch kein DELETE oder INSERT Befehl ausgeführt und wie unterscheide ich die Fälle?

    Mit einem Button versuche ich eine neue Zeile eine ID zu zuweisen.

    VB.NET-Quellcode

    1. Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
    2. Dim currentID As String = ""
    3. For Each row As DataRow In dt.Rows
    5. For Each column As DataColumn In dt.Columns
    7. If Not (row.IsNull(column)) Then
    8. currentID = row(column)
    9. 'Ab hier wissen wir ob es ne id gibt oder nicht
    10. Else
    11. 'Autoincrement wäre hier schön
    12. 'row(column) = currentID + 1
    13. MessageBox.Show(currentID + 1)
    14. End If
    16. Next
    17. Next
    18. End Sub


    Hoffe ihr könnt mir helfen :)

    ich würd empfehlen, deinen ganzen DB-Ansatz in die Tonne zu treten.
    Lege dir ein typisiertes Dataset an, befülle es, und binde dein Xaml daran.
    Erstelle nicht bei jedem Befüllen eine neue DataTable, denn sonst ist ja logisch, dass du nix zurückspeichern kannst, wenn ständig deine Datenklassen ausgetauscht werden.

    Wie man ein typDataset am einfachsten befüllt und auch wieder abspeichert, ist hier gezeigt: Dataset->Db
    Der Code ist nicht ganz einfach, aber dafür sind sämtliche mit Befüllung und Rückspeicherung zusammenhängende Probleme damit abgehandelt.
    Und du musst ja nix selbst coden, sondern kannst den Code einfach einbinden in dein Projekt.

    Einzige Vorraussetzung: Der Klasse DatasetPersistance muss ein typisiertes Dataset übergeben werden, ich hoffe, du kriegst das hin, ein solches zu creiern.
    Denn sonst weiß DatasetPersistance nicht die Struktur der Tabellen, und kann keine geeigneten DataAdapter konfigurieren.

    Edit: Ups, du musst doch selbst coden! ich hab ja nur DatasetPersistances für SqlCe und Access dort beigelegt, für SqlServer musst du alle Auftreten von "SqlCe" austauschen durch "Sql" - damit es SqlServer unterstützt.
    Ausserdem ist der Kram mit RequeryID zu löschen, denn SqlServer handelt Insert-Commands intelligenter.

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

    Hallo Erfinder,
    nun vielen Dank für deine Antwort und deine Referenz.
    Deine Klasse habe ich auch eingebunden und SqlCe durch SQL ersetzt. Fehler gibt es soweit keine.

    Du sprichst von einem typisierten Dataset, aber wie genau setzte ich das um? Ich habe die Wahl zwischen DataTable und TableAdapter - wo genau liegt der unterschied? Ich denke ich sollte die Elemente stricken wie meine SQL-Datenbank? (Sind letzlich Vorname, Nachname und eine ID mit AutoInc.)



    ---
    Weitere Frage:
    Was meinst du mit RequeryID ? Für mich ist die ganze Klasse etwas komplex - bin sicherlich nicht so erfahren wie du :-).
    In meinem XAML hab ich ich das DataGrid - am liebsten würde ich es ohne Buttons nutzen.
    In deinem "Anwendungs" Beispiel verwendest du ja die Button Click events und fängst sie mit einem Case ab.

    Danke dir!

    Ich bin unsicher, was dein Bild zeigt.
    Weil man kann mit Menu-Daten-Datenquelle_hinzufügen sich ein typisiertes Dataset generieren lassen, das hat dann Tabellen, die so 2-geteilt sind wie deine obere Tabelle im Bildle.

    Daher Frage: Ist dieses typDataset mit Menu-Daten-Datenquelle_hinzufügen generiert, oder hast du diese (bescheutert benannten) Dataset-Tabellen händisch hingemacht? Zumindest "DataTable1" ist offensichtlich händisch erzeugt worden, bei "MitarbeiterTableAdapter" bin ich nicht sicher, weil diese 2-teilige Darstellung entsteht normalerweise nur, wenn man mit Menu-Daten-Datenquelle_hinzufügen sich ein typisiertes Dataset generiert.


    Daher Frage: Ist dieses typDataset mit Menu-Daten-Datenquelle_hinzufügen generiert?

    Ich habe beide Objekte händisch erstellt und nicht über Menu -> Datenquelle hinzufügen. Sry für den Namen, ich wollte nur etwas testen.
    Nun habe ich über Datenquelle->Hinzufügen->DataSet->SQL-Datenbank->Meine SQL-Tabelle ausgewählt und hinzugefügt.

    Muss ich das DataSet als neues Objekt instaziieren und dann das XAML DataGrid binden?

    VB.NET-Quellcode

    1. Dim ds As New workWearDS.MitarbeiterDataTable
    3. Dim _connectionString As String = ConfigurationManager.ConnectionStrings("database").ConnectionString
    4. _Persistance = New SqlPersistance(_connectionString, ds.DataSet)
    6. mitarbeiterGrid.DataContext = ds.DataSet.Tables(0)



    Hier noch ein Bild der Datenquelle:

    Gut, dann kannst du nun das generierte Dataset nacharbeiten, nämlich sämtliche TableAdapter runterschmeissen. Also die Tabellen behalten, die Adapter runterschmeissen. Die Adapter sind im Dataset-Designer die an die Tabellen unten "angeklebten" Rechtecke - man kann sie gesondert selektieren, und dann Entf drücken.

    Zu deim Code kann ich nichts sagen - das sind ja nur verlorene Zeilen im irgendwo.
    Bitte poste ganze Methoden.

    Und - ja, man muss ein workWearDS instanzieren, und zwar genau ein einziges Mal, nicht öfter, aber auch nicht weniger.
    Daher ist wichtig, zu wissen, in welcher Methode deine verlorenen Zeilen stehen - es muss eine Methode sein, die nur ein einziges mal aufgerufen wird.
    Ebenso das Persistance-Dingens - das muss auch genau ein einziges Mal, nicht öfter, aber auch nicht weniger, instanziert werden.
    Und dann im Xaml daran binden - nicht im Code (zeile#6 ist also zu löschen, egal wo die steht)

    Übrigens rede nicht mehr von Dataset, sondern du arbeitest mit einem workWearDS, das ist etwas anderes.
    Nämlich eine generierte Klasse, die von Dataset erbt.

    Und erstell das workWearDS - mach es nicht wie in zeile#1, wo kein workWearDS erstellt wird, sonder eine workWearDS.MitarbeiterDataTable.

    eine workWearDS.MitarbeiterDataTable ist was anderes als ein workWearDS, nämlich workWearDS.MitarbeiterDataTable ist eine im workWearDS befindliche typisierte DataTable, eine MitarbeiterDataTable, um genau zu sein, (und Genauigkeit ist wichtig.)

    Wenn du ein workWearDS erstellt hast, brauchst darfst du nicht extra eine MitarbeiterDataTable erstellen, denn eine MitarbeiterDataTable ist im workWearDS ja bereits enthalten.

    Du kannst auch mal die modifizierte Persistance-Klasse posten, ob du die Anpassung an SqlServer richtig hingekriegt hast, also das mit der RequeryId korrekt entfernt hast.

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

    Gut, dann kannst du nun das generierte Dataset nacharbeiten, nämlich sämtliche TableAdapter runterschmeissen. Also die Tabellen behalten, die Adapter runterschmeissen. Die Adapter sind im Dataset-Designer die an die Tabellen unten "angeklebten" Rechtecke - man kann sie gesondert selektieren, und dann Entf drücken.


    Hier ein Bild des DataSet Designers:



    Die instaziierung des workWearDS() hab ich angepasst und auch die Persistance Klasse wird einmal instaziiert und zwar beim erstellen der Form
    Für den Anfang würde ich lediglich das DataGrid füllen (XAML Code etwas weiter unten)
    Hier der einfache Code:

    VB.NET-Quellcode

    1. Imports System.Configuration
    2. Imports ProjWorkWear.workWearDS
    4. Public Class testquery
    6. Private _Persistance As SqlPersistance
    7. Public Sub New()
    9. InitializeComponent()
    12. Dim _connectionString As String = ConfigurationManager.ConnectionStrings("database").ConnectionString
    13. Dim ds As New workWearDS()
    14. _Persistance = New SqlPersistance(_connectionString, ds.Mitarbeiter.DataSet)
    16. End Sub
    19. End Class


    Allerdings habe ich nicht ganz verstanden was du mit RequireID meinst. Der Code der Persistance Klasse:

    VB.NET-Quellcode

    1. Imports System.Data.SqlClient
    2. Imports System.Data
    3. Imports System.Data.Common
    4. Public Class SqlPersistance
    6. Private _Con As SqlConnection
    7. Private _Adapters As Dictionary(Of DataTable, SqlDataAdapter)
    8. Private _RankedTables As List(Of DataTable)
    9. Private _Dts As DataSet
    10. Private _RequeryIdCommand As SqlCommand ' not neccessary, if in-/out-DbParameter-Support is present
    12. Public Sub New(connectionString As String, dts As DataSet)
    13. _Dts = dts
    14. _Con = New SqlConnection(connectionString)
    15. _RequeryIdCommand = New SqlCommand("SELECT @@IDENTITY", _Con)
    16. Dim sorter = New TopologicSort(dts.Tables.Cast(Of DataTable), True)
    17. _RankedTables = sorter.GetRankedTables
    18. _Adapters = New Dictionary(Of DataTable, SqlDataAdapter)
    19. For Each tb In _RankedTables
    20. Dim adp = New SqlDataAdapter("Select * from [" & tb.TableName & "]", _Con)
    21. Dim cmb = New SqlCommandBuilder(adp)
    22. If tb.PrimaryKey.Length = 1 AndAlso tb.PrimaryKey(0).AutoIncrement Then
    23. AddHandler adp.RowUpdated, AddressOf Table_RowUpdated ' not neccessary, if in-/out-DbParameter-Support is present
    24. End If
    25. _Adapters.Add(tb, adp)
    26. Next
    27. End Sub
    29. Public Sub FillAll()
    30. _Dts.Clear()
    31. _Con.Open()
    32. For Each tb In _RankedTables
    33. _Adapters(tb).Fill(tb)
    34. Next
    35. _Con.Close()
    36. End Sub
    38. ''' <summary> since SELECT and FROM-Clause are predefined by the datatable-structure sqlAfterFrom can contain any other valid Sql-clauses, especially WHERE. To prevent Sql-Injection-attacs it is strongly recommended to use '?' as Parameter-PlaceHolder and submit appropriate args</summary>
    39. Public Sub CustomFill(table As DataTable, sqlAfterFrom As String, ParamArray args() As Object)
    40. Dim childrenFinder = New TopologicSort(_RankedTables, False)
    41. For Each tb In childrenFinder.GetRankedTables(table) : tb.Clear() : Next
    42. Using adp = DirectCast(DirectCast(_Adapters(table), ICloneable).Clone, SqlDataAdapter)
    43. Dim cmd = adp.SelectCommand
    44. Dim splits = sqlAfterFrom.Split("?"c)
    45. For i = 0 To args.Length - 1
    46. Dim name = "@p" & i
    47. cmd.Parameters.AddWithValue(name, args(i))
    48. splits(i) = String.Concat(splits(i), " ", name, " ")
    49. Next
    50. cmd.CommandText &= " " & String.Concat(splits)
    51. _Con.Open()
    52. adp.Fill(table)
    53. _Con.Close()
    54. End Using
    55. End Sub
    57. Public Sub Save()
    58. _Con.Open()
    59. For Each tb In _RankedTables
    60. Dim rows = tb.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
    61. _Adapters(tb).Update(rows) ' first send Inserts and Updates
    62. Next
    63. Dim skipSubOrderedRowsConfig = New _AcceptruleCascadeConfig(_Dts)
    64. For Each tb In _RankedTables
    65. Dim n = _Adapters(tb).Update(tb) ' send the remaining Deletes, skipping Cascade-Deleted-Rows, which will be deleted by Db itself
    66. Next
    67. skipSubOrderedRowsConfig.Restore()
    68. _Con.Close()
    69. End Sub
    71. ''' <summary> on Insert-Statements requery the database-generated primary-key. This is not neccessary on in-/out-DbParameters supporting Databases </summary>
    72. Private Sub Table_RowUpdated(sender As Object, e As SqlRowUpdatedEventArgs)
    73. If e.StatementType <> StatementType.Insert Then Return
    74. Dim primCol = e.Row.Table.PrimaryKey(0)
    75. 'Dim primVal = _RequeryIdCommand.ExecuteScalar
    76. e.Row(primCol) = Convert.ChangeType(primVal, primCol.DataType)
    77. End Sub
    79. Private Class _AcceptruleCascadeConfig : Inherits List(Of Tuple(Of ForeignKeyConstraint, AcceptRejectRule))
    80. ' AccepRule.Cascade removes subordered rows from datasets change-tracking, during Updating Database
    81. ' Required while Updating deleted rows, since the db deletes subordered rows already by itself.
    82. Public Sub New(ByVal dts As DataSet)
    83. For Each rl As DataRelation In dts.Relations
    84. Dim ck = rl.ChildKeyConstraint
    85. If ck Is Nothing Then Continue For
    86. MyBase.Add(Tuple.Create(ck, ck.AcceptRejectRule))
    87. ck.AcceptRejectRule = AcceptRejectRule.Cascade
    88. Next
    89. End Sub
    90. Public Sub Restore()
    91. For Each tpl In Me
    92. tpl.Item1.AcceptRejectRule = tpl.Item2
    93. Next
    94. End Sub
    95. End Class
    97. Private Class TopologicSort
    98. Private _RankedTables As List(Of DataTable)
    99. Private _Hsh As HashSet(Of DataTable)
    100. Private _ConsiderParentRelations As Boolean ' (otherwise consider ChildRelations)
    101. Private _Tables As IEnumerable(Of DataTable)
    103. ''' <summary> if considerParentRelations = False it consideres ChildRelations </summary>
    104. Public Sub New(tables As IEnumerable(Of DataTable), considerParentRelations As Boolean)
    105. _Tables = tables : _ConsiderParentRelations = considerParentRelations
    106. End Sub
    108. ''' <summary> returns all to root related tables (either parents or childs), including root as last element. If no root specified returns all tables in topologic order </summary>
    109. Public Function GetRankedTables(Optional root As DataTable = Nothing) As List(Of DataTable)
    110. _Hsh = New HashSet(Of DataTable)(_Tables)
    111. _RankedTables = New List(Of DataTable)(_Hsh.Count)
    112. If root Is Nothing Then
    113. While _Hsh.Count > 0 : RecurseRelatedTables(_Hsh.First) : End While
    114. Else
    115. RecurseRelatedTables(root)
    116. End If
    117. Return _RankedTables
    118. End Function
    120. ''' <summary> before adding an element to result-list, recursively add its precusers </summary>
    121. Private Sub RecurseRelatedTables(tb As DataTable)
    122. If Not _Hsh.Remove(tb) Then Return 'prevent run in Cycles
    123. If _ConsiderParentRelations Then
    124. For Each rl As DataRelation In tb.ParentRelations
    125. RecurseRelatedTables(rl.ParentTable)
    126. Next
    127. Else
    128. For Each rl As DataRelation In tb.ChildRelations
    129. RecurseRelatedTables(rl.ChildTable)
    130. Next
    131. End If
    132. _RankedTables.Add(tb)
    133. End Sub
    134. End Class
    135. End Class




    XAML:

    XML-Quellcode

    1. <Window.Resources>
    2. <local:workWearDS x:Key="WorkWearDS"/>
    3. <CollectionViewSource x:Key="MitarbeiterViewSource" Source="{Binding Mitarbeiter, Source={StaticResource WorkWearDS}}"/>
    4. </Window.Resources>
    5. <Grid DataContext="{StaticResource MitarbeiterViewSource}">
    6. <DataGrid x:Name="MitarbeiterDataGrid" AutoGenerateColumns="False" EnableRowVirtualization="True" ItemsSource="{Binding }" RowDetailsVisibilityMode="VisibleWhenSelected">
    7. <DataGrid.Columns>
    8. <DataGridTextColumn x:Name="IdColumn" Binding="{Binding Id}" Header="Id" IsReadOnly="True" Width="SizeToHeader"/>
    9. <DataGridTextColumn x:Name="VornameColumn" Binding="{Binding Vorname}" Header="Vorname" Width="SizeToHeader"/>
    10. <DataGridTextColumn x:Name="NachnameColumn" Binding="{Binding Nachname}" Header="Nachname" Width="SizeToHeader"/>
    11. </DataGrid.Columns>
    12. </DataGrid>
    14. </Grid>
    15. </Window>


    Durch deinen Tipp der Genauigkeit mit dem DataSet, erhalte ich beim starten keine Fehler mehr. Allerdings auch keine Daten :)

    -----



    So, ich habe vergessen zu Fillen und saven ;(
    Wenn ich neue Datenzeilen einfüge, speichert er mir sie auch sogar mit AutoIncrement +1. Laut SQL Management Studio sind die Zeilen auch da.
    Allerdings funktioniert Updaten und löschen eines bestehenden Datensatzes nicht.
    Meldung:
    Dynamische SQL-Generierung für den DeleteCommand wird nicht für einen SelectCommand unterstützt, der keine Schlüsselspalteninformationen zurückgibt.


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

    hier die Persistance-Klasse ohne RequeryId.
    Dass du nicht verstehst, wovon ich rede, wundert mich. Einfach eine Textsuche nach "RequeryId" hätte dir doch gezeigt, wovon ich rede - zumindest teilweise. Egal - hier isses jdfs. nicht mehr drin
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.SqlClient
    2. Imports System.Data
    3. Imports System.Data.Common
    4. Public Class SqlPersistance
    6. Private _Con As SqlConnection
    7. Private _Adapters As Dictionary(Of DataTable, SqlDataAdapter)
    8. Private _RankedTables As List(Of DataTable)
    9. Private _Dts As DataSet
    11. Public Sub New(connectionString As String, dts As DataSet)
    12. _Dts = dts
    13. _Con = New SqlConnection(connectionString)
    14. Dim sorter = New TopologicSort(dts.Tables.Cast(Of DataTable), True)
    15. _RankedTables = sorter.GetRankedTables
    16. _Adapters = New Dictionary(Of DataTable, SqlDataAdapter)
    17. For Each tb In _RankedTables
    18. Dim adp = New SqlDataAdapter("Select * from [" & tb.TableName & "]", _Con)
    19. Dim cmb = New SqlCommandBuilder(adp)
    20. _Adapters.Add(tb, adp)
    21. Next
    22. End Sub
    24. Public Sub FillAll()
    25. _Dts.Clear()
    26. _Con.Open()
    27. For Each tb In _RankedTables
    28. _Adapters(tb).Fill(tb)
    29. Next
    30. _Con.Close()
    31. End Sub
    33. ''' <summary> since SELECT and FROM-Clause are predefined by the datatable-structure sqlAfterFrom can contain any other valid Sql-clauses, especially WHERE. To prevent Sql-Injection-attacs it is strongly recommended to use '?' as Parameter-PlaceHolder and submit appropriate args</summary>
    34. Public Sub CustomFill(table As DataTable, sqlAfterFrom As String, ParamArray args() As Object)
    35. Dim childrenFinder = New TopologicSort(_RankedTables, False)
    36. For Each tb In childrenFinder.GetRankedTables(table) : tb.Clear() : Next
    37. Using adp = DirectCast(DirectCast(_Adapters(table), ICloneable).Clone, SqlDataAdapter)
    38. Dim cmd = adp.SelectCommand
    39. Dim splits = sqlAfterFrom.Split("?"c)
    40. For i = 0 To args.Length - 1
    41. Dim name = "@p" & i
    42. cmd.Parameters.AddWithValue(name, args(i))
    43. splits(i) = String.Concat(splits(i), " ", name, " ")
    44. Next
    45. cmd.CommandText &= " " & String.Concat(splits)
    46. _Con.Open()
    47. adp.Fill(table)
    48. _Con.Close()
    49. End Using
    50. End Sub
    52. Public Sub Save()
    53. _Con.Open()
    54. For Each tb In _RankedTables
    55. Dim rows = tb.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
    56. _Adapters(tb).Update(rows) ' first send Inserts and Updates
    57. Next
    58. Dim skipSubOrderedRowsConfig = New _AcceptruleCascadeConfig(_Dts)
    59. For Each tb In _RankedTables
    60. Dim n = _Adapters(tb).Update(tb) ' send the remaining Deletes, skipping Cascade-Deleted-Rows, which will be deleted by Db itself
    61. Next
    62. skipSubOrderedRowsConfig.Restore()
    63. _Con.Close()
    64. End Sub
    66. Private Class _AcceptruleCascadeConfig : Inherits List(Of Tuple(Of ForeignKeyConstraint, AcceptRejectRule))
    67. ' AccepRule.Cascade removes subordered rows from datasets change-tracking, during Updating Database
    68. ' Required while Updating deleted rows, since the db deletes subordered rows already by itself.
    69. Public Sub New(ByVal dts As DataSet)
    70. For Each rl As DataRelation In dts.Relations
    71. Dim ck = rl.ChildKeyConstraint
    72. If ck Is Nothing Then Continue For
    73. MyBase.Add(Tuple.Create(ck, ck.AcceptRejectRule))
    74. ck.AcceptRejectRule = AcceptRejectRule.Cascade
    75. Next
    76. End Sub
    77. Public Sub Restore()
    78. For Each tpl In Me
    79. tpl.Item1.AcceptRejectRule = tpl.Item2
    80. Next
    81. End Sub
    82. End Class
    84. Private Class TopologicSort
    85. Private _RankedTables As List(Of DataTable)
    86. Private _Hsh As HashSet(Of DataTable)
    87. Private _ConsiderParentRelations As Boolean ' (otherwise consider ChildRelations)
    88. Private _Tables As IEnumerable(Of DataTable)
    90. ''' <summary> if considerParentRelations = False it consideres ChildRelations </summary>
    91. Public Sub New(tables As IEnumerable(Of DataTable), considerParentRelations As Boolean)
    92. _Tables = tables : _ConsiderParentRelations = considerParentRelations
    93. End Sub
    95. ''' <summary> returns all to root related tables (either parents or childs), including root as last element. If no root specified returns all tables in topologic order </summary>
    96. Public Function GetRankedTables(Optional root As DataTable = Nothing) As List(Of DataTable)
    97. _Hsh = New HashSet(Of DataTable)(_Tables)
    98. _RankedTables = New List(Of DataTable)(_Hsh.Count)
    99. If root Is Nothing Then
    100. While _Hsh.Count > 0 : RecurseRelatedTables(_Hsh.First) : End While
    101. Else
    102. RecurseRelatedTables(root)
    103. End If
    104. Return _RankedTables
    105. End Function
    107. ''' <summary> before adding an element to result-list, recursively add its precusers </summary>
    108. Private Sub RecurseRelatedTables(tb As DataTable)
    109. If Not _Hsh.Remove(tb) Then Return 'prevent run in Cycles
    110. If _ConsiderParentRelations Then
    111. For Each rl As DataRelation In tb.ParentRelations
    112. RecurseRelatedTables(rl.ParentTable)
    113. Next
    114. Else
    115. For Each rl As DataRelation In tb.ChildRelations
    116. RecurseRelatedTables(rl.ChildTable)
    117. Next
    118. End If
    119. _RankedTables.Add(tb)
    120. End Sub
    121. End Class
    122. End Class


    Dein Fehler geschieht dir übrigens ganz recht. Deine Datenbank-Tabelle hat keinen Primärschlüssel, und dann können keine Update- oder Delete- Commands erzeugt werden, denn diese müss einen Primärschlüsselwert angeben, damit die Db weiß, welcher Datensatz gemeint ist. (Also genau das, was die Exception dir ja auch schon gesagt hat.)

    Willst du nicht lieber erst die Grundlagen lernen, ehe du anfängst, mit Datenbanken zu hantieren?
    Ich hab eine Art Lehrplan, da ist für dich so einiges dabei (fängt schon mit Option Strict On an, also dort der punkt#1): Datenverarbeitungs-Vorraussetzungen

Facebook
Telefonspende