Datensatz aus Datenbank löschen "Access"

  • VB.NET

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

    Datensatz aus Datenbank löschen "Access"

    Huhu zusammen,

    Ich habe mal eine Frage und zwar ich will einen Datensatz aus meiner Datenbannk löschen aber leider hänge ich an dem Befehl zum löschen.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    4. 'TODO: Diese Codezeile lädt Daten in die Tabelle "Datenbank_artikelDataSet.Tabelle1". Sie können sie bei Bedarf verschieben oder entfernen.
    5. Me.Tabelle1TableAdapter.Fill(Me.Datenbank_artikelDataSet.Tabelle1)
    7. End Sub
    9. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    10. Dim query As String
    11. Dim conStr As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Application.StartupPath & "\datenbank_artikel.mdb;"
    12. query = "INSERT INTO tabelle1 (name, nachname, abteilung, artikel, anzahl) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "')"
    14. Dim conn As New System.Data.Odbc.OdbcConnection(conStr)
    15. Dim com As New System.Data.Odbc.OdbcCommand(query, conn)
    17. Try
    18. conn.Open()
    19. com.ExecuteNonQuery()
    20. MsgBox("OK")
    21. Catch ex As Exception
    22. MsgBox("Fehler" & vbCrLf & ex.Message)
    23. Finally
    24. conn.Close()
    25. End Try
    26. End Sub
    28. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    29. If MsgBox("Wollen Sie wirklich den Datensatz löschen?", MsgBoxStyle.YesNoCancel) = MsgBoxResult.Yes Then
    31. Dim x As Integer
    32. x = TextBox6.Text
    33. Datenbank_artikelDataSet.Tabelle1.Rows(x - 1).Delete()
    34. MsgBox("Der Datensatz wurde gelöscht!")
    35. Me.Tabelle1TableAdapter.Update(Me.Datenbank_artikelDataSet.Tabelle1)
    36. TextBox7.Text = ""
    37. Else
    38. End If
    39. End Sub
    40. End Class

    Ok ich habe es hinbekommen war nur ein kleiner Fehler den ich hatte ich muss in die TextBox die ID eintragen statt den Namen. Ich habe aber noch ein Problem wenn ich ein Datensatz hinzugefügt haben muss ich das Programm neustarten damit der Datensatz angezeigt wird was muss ich tun damit der Datensatz z.B durch das Drücken eines Aktualisierungsbuttons Aktualisiert wird? mit Me.Refresh funktioniert es nicht da passiert nichts.


    mfg Nicolas

    Nix musst du tun.
    Einfach dem Dataset eine DataRow zufügen - nichts weiter.
    Meist schreibe ich dafür nichtmal Code, weil ein DGV hat ja diese Zufügezeile unten dran, wo man einfach reinschreibt, und zugefügt ist.

    Wenn du dann iwann später auf "Save" drückst, speichert er eh alle vorgenommenen Änderungen ab, und also auch den neuen Datensatz.

Facebook