Datensätze ändern und speichern

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

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

    Datensätze ändern und speichern

    hallo,

    ich hbae ein kleines datenbank programm erstellt, und komme nicht mehr weiter. ich lasse mir die datensätze aus meiner datenbank in textboxen ausgeben was auch soweit ganz gut funktioniert. nun möchte ich einen datensatz ändern und speichern. nun mein problem: die änderung wird gespeichert aber leider werden alle datensätze in der datenbank überschrieben, sodass ich den bearbeiteten datensatz mehrmals in der datenbank habe. da komme ich im moment nicht weiter und benötige ein wenig unterstützung.

    hier der code:

    Verbindung zur datenbank:

    VB.NET-Quellcode

    1. Sub verbindung()
    3. c.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Christian\um2.mdf;Integrated Security=True;Connect Timeout=30"
    4. c.Open()
    6. Dim da As New SqlClient.SqlDataAdapter
    7. da.SelectCommand = (New SqlClient.SqlCommand("SELECT * FROM ku_um2_db", c))
    8. da.Fill(dt)
    9. c.Close()
    11. bs.DataSource = dt
    13. Dim b As Binding
    14. b = New Binding("Text", bs, "ID")
    15. IDTextBox.DataBindings.Add(b)
    17. b = New Binding("Text", bs, "Vorname")
    18. VornameTextBox.DataBindings.Add(b)
    20. b = New Binding("Text", bs, "Nachname")
    21. NachnameTextBox.DataBindings.Add(b)
    23. b = New Binding("Text", bs, "PLZ")
    24. PLZTextBox.DataBindings.Add(b)
    26. b = New Binding("Text", bs, "Ort")
    27. OrtTextBox.DataBindings.Add(b)
    29. b = New Binding("Text", bs, "Straße")
    30. StraßeTextBox.DataBindings.Add(b)
    32. b = New Binding("Text", bs, "Email")
    33. EmailTextBox.DataBindings.Add(b)
    35. b = New Binding("Text", bs, "Telefon")
    36. TelefonTextBox.DataBindings.Add(b)
    37. End Sub


    hier der code zum speichern der änderung:

    VB.NET-Quellcode

    1. Sub bearbeiten()
    3. posBearbeiten = bs.Position
    5. Dim sqlCmd As New System.Data.SqlClient.SqlCommand
    6. sqlCmd.Connection = c
    8. If Not neuerDatensatz Then 'Datensatz mit UPDATE aktualisieren
    9. sqlCmd.CommandText = "UPDATE ku_um2_db SET Vorname = '" & VornameTextBox.Text _
    10. & "', Nachname = '" & NachnameTextBox.Text _
    11. & "', PLZ = '" & PLZTextBox.Text & "', Ort = '" & OrtTextBox.Text _
    12. & "', Straße = '" & StraßeTextBox.Text & "', Email = '" & EmailTextBox.Text _
    13. & "', Telefon = '" & TelefonTextBox.Text & "'"
    15. Else
    16. sqlCmd.CommandText = "INSERT INTO ku_um2_db(Vorname, Nachname, PLZ, Ort, Straße, Email, Telefon)" _
    17. & "VALUES( '" & VornameTextBox.Text & "', '" & NachnameTextBox.Text & "', '" & PLZTextBox.Text _
    18. & "', '" & OrtTextBox.Text & "', '" & StraßeTextBox.Text & "', '" & EmailTextBox.Text & "', '" & TelefonTextBox.Text & "')"
    19. End If
    20. Try
    21. Debug.Print(sqlCmd.CommandText)
    23. Try
    24. sqlCmd.Connection.Open()
    25. sqlCmd.ExecuteNonQuery()
    27. Catch ex As Exception
    28. MessageBox.Show(ex.Message)
    29. Finally
    30. dt.Clear()
    31. da.Fill(dt)
    32. sqlCmd.Connection.Close()
    33. End Try
    35. If neuerDatensatz Then
    36. bs.MoveLast()
    37. Else
    38. bs.Position = posBearbeiten
    39. End If
    40. Catch ex As Exception
    41. MsgBox(ex.ToString)
    42. End Try
    44. End Sub


    hier die fehlermeldung:



    in meiner datenbank befinden sich aktuell 4 datensätze die nun leider alle identisch sind. irgendwo ist ein fehler , wenn ich datensätze aktualisiern will.

    Auf Anhieb würde ich sagen du hast die WHERE Klausel nicht drin, die den Datensatz selektiert, der geändert werden soll. Dafür würde sich die Nutzung einer ID anbieten. in etwa so:

    ​UPDATE ... SET ... WHERE ID=ID-NR
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    ich würde dringend davon abraten, so vorzugehen.
    Lerne erstmal Databinding, und lasse die Datenbank erstmal weg, weil das sind zwei Baustellen, und es ist seeehr empfehlenswert, sich in eins nach dem anderen einzuarbeiten.
    Und zwar in Databinding zuerst.
    guck dir dazu vier Views-Videos an - Bindings setzt man nicht im Code, und BindingSources erstellt man nicht im Code - das macht alles der Form-Designer, und das eröffnet jede Menge weiterer Möglichkeiten, die dir verschlossen bleiben, wenn du mit Code-Gemurkel einsteigst.

    Desgleichen mit der Datenbank.
    Hat man erst eine funktionsfähige und logisch korrekte Datenverarbeitung mit Dataset, aber ohne Datenbank, hingebastelt, ist es die zweite Baustelle, die Dataset-Befüllung dann umzustellen von aus Datei auf aus Datenbank.
    Weil mehr ist eine Datenbank nicht: Die schwierigere von zwei Arten, wie man das typDataset befüllen kann.
    Auch das kann man sehr einfach und generisch (d.h.: ein für allemal) lösen - aber nicht, bevor man mit typisierten Dataset und Databinding vernünftig umgehen kann.

Facebook
Telefonspende