Datenbank speichert Änderungen nicht

  • VB.NET
  • .NET (FX) 4.0

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Datenbank speichert Änderungen nicht

    Hallo zusammen,

    Arbeite mich gerade in Datenbankprogrammierung ein. Stehe noch ganz am Anfang, glaubte aber den Code unten zu verstehen. Er funktioniert auch super bis man das Programm neu startet. Dann sind nämlich alle Änderungen, die ich in die Access-Datenbank übernommen geglaubt hatte (durch Klicken des zweiten Buttons) einfach nicht mehr vorhanden und die Datenbank präsentiert sich (durch klicken des ersten Buttons) im DataGridView so, als wäre sie nie durch das Programm angefasst worden.

    Programmoberfläche: ein DataGridView, zwei Buttons...

    Funktionalität:
    - Beim Klicken des ersten Buttons wird das DataGridView mit Daten aus der bekannten Nordwind.mdb (Access-Datenbank) gefüllt.
    - Nun können im DataGridView Zeilen gelöscht, hinzugefügt oder geändert werden.
    - Beim Klicken des zweiten Buttons werden die Änderungen im DataGridView zurück in die Datenbank Nordwind.mdb geschrieben.

    Code:

    Quellcode

    1. Imports System.Data.OleDb
    3. Public Class Form1
    4. Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Nordwind.mdb")
    5. Private da As OleDbDataAdapter = Nothing
    6. Private ds As DataSet = Nothing
    8. ''' Liefert gefülltes DataSet au der Datenbank
    9. Public Function getArtikel() As DataSet
    10. Dim selStr As String = "SELECT ArtikelNr, Artikelname, Einzelpreis, Mindestbestand FROM Artikel ORDER BY Artikelname"
    11. da = New OleDbDataAdapter(selStr, conn)
    13. 'Neu hinzugefügte Datensätze erhalten sofort einen Primärschlüssel
    14. da.MissingSchemaAction = MissingSchemaAction.AddWithKey
    15. conn.Open()
    16. Dim ds As New DataSet()
    17. da.Fill(ds, "Artikel")
    18. conn.Close()
    19. Return ds
    20. End Function
    22. ''' Zurückschreiben der im DataSet vorgenommenen Änderungen in die Datenbank
    23. Public Sub setArtikel(ByRef ds As DataSet)
    24. Dim cb As New OleDbCommandBuilder(da)
    25. 'Anwenden
    26. conn.Open()
    27. da.Update(ds, "Artikel")
    28. conn.Close()
    30. End Sub
    32. '' Anzeigen
    33. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    34. DataGridView1.DataSource = Nothing
    35. ds = getArtikel()
    37. DataGridView1.DataSource = ds
    38. DataGridView1.DataMember = "Artikel"
    40. 'Aufruf der Routine zum Formatieren des DataGridViews
    41. formatDataGridView(DataGridView1)
    42. End Sub
    44. ''' Aktualisieren
    45. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    46. Dim ds1 As DataSet = ds.GetChanges()
    47. If ds1 IsNot Nothing Then
    48. Try
    49. setArtikel(ds1)
    50. ds.Merge(ds1)
    51. ds.AcceptChanges()
    52. MessageBox.Show("Datenbank wurde aktualisiert!", "Erfolg")
    54. Catch ex As Exception
    55. ds.RejectChanges()
    56. MessageBox.Show(ex.Message, "Fehler")
    58. End Try
    59. End If
    60. End Sub
    62. Private Sub formatDataGridView(dgv As DataGridView)
    63. dgv.Columns.Remove("Einzelpreis")
    64. Dim tbc As New DataGridViewTextBoxColumn()
    65. tbc.DataPropertyName = "Einzelpreis"
    66. tbc.HeaderText = "Einzelpreis"
    67. tbc.Width = 80
    68. tbc.DefaultCellStyle.Format = "c"
    69. tbc.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    70. tbc.DefaultCellStyle.Font = New Font(DataGridView1.Font, FontStyle.Bold)
    71. tbc.DisplayIndex = 2
    72. dgv.Columns.Add(tbc)
    73. End Sub
    75. End Class


    Kann mir jmd sagen, wieso Änderungen beim Neustart des Programms verloren gehen. Wenn ich Button1 nach vorgenommenen und gespeicherten Änderungen klicken, ohne das Programm neu zu starten, scheint er korrekt die geänderte Datenbank zu laden...

    Danke für jede Hilfe!!!

    icekuhn

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

    Es ist oft bei den Datei-Eigenschaften der eingebundenen Datenbank Ins Ausgabeverzeichnis kopieren: Immer eingestellt.
    Bei einem neuen Testlauf wird dann automatisch die im vorigen Testlauf geänderte DB überschrieben und man glaubt - es wurden keine Änderungen gespeichert. Überprüfe diese Einstellung einmal...

    icekuhn schrieb:

    Arbeite mich gerade in Datenbankprogrammierung ein.
    Ich empfehle immer, erst ganz zuletzt die DB einzubinden, und zuvor ohne DB zu entwickeln.
    Und solange man nicht wesentliche Vorraussetzungen erlernt hat, erst recht nicht anfangen mit Datenbank-Zugriffen.
    Bei deim Code ist überaus krude, was du da mit Getchanges, Merge und AcceptChanges treibst.
    Aber dass du schoma einen CommandBuilder verwendest ist immerhin sehr erfreulich :thumbsup:
    Nur solltest du nicht für jedes Abspeichern einen neuen davon erzeugen - einer reicht pro DataAdapter.

    Egal - lass die Finger von diesen Dingen, bis du dir erstmal relationale Datenmodellierung und Databinding angeeignet hast (und das geht einfacher ohne Db)
    Datenverarbeitungs-Vorraussetzungen

    (So, das war mein Standard-Sprüchlein für Db-Anfänger. Andere raten anderes, aber guck dir zumindest den Link und v.a. die von da aus weiterführenden Links an, guck sie alle an, sorgfältig, ohne Ausnahme, und auch die Videos etc pp...)

Facebook
Telefonspende