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.
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
- Public Class Form1
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- 'TODO: Diese Codezeile lädt Daten in die Tabelle "Datenbank_artikelDataSet.Tabelle1". Sie können sie bei Bedarf verschieben oder entfernen.
- Me.Tabelle1TableAdapter.Fill(Me.Datenbank_artikelDataSet.Tabelle1)
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim query As String
- Dim conStr As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Application.StartupPath & "\datenbank_artikel.mdb;"
- query = "INSERT INTO tabelle1 (name, nachname, abteilung, artikel, anzahl) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "')"
- Dim conn As New System.Data.Odbc.OdbcConnection(conStr)
- Dim com As New System.Data.Odbc.OdbcCommand(query, conn)
- Try
- conn.Open()
- com.ExecuteNonQuery()
- MsgBox("OK")
- Catch ex As Exception
- MsgBox("Fehler" & vbCrLf & ex.Message)
- Finally
- conn.Close()
- End Try
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- If MsgBox("Wollen Sie wirklich den Datensatz löschen?", MsgBoxStyle.YesNoCancel) = MsgBoxResult.Yes Then
- Dim x As Integer
- x = TextBox6.Text
- Datenbank_artikelDataSet.Tabelle1.Rows(x - 1).Delete()
- MsgBox("Der Datensatz wurde gelöscht!")
- Me.Tabelle1TableAdapter.Update(Me.Datenbank_artikelDataSet.Tabelle1)
- TextBox7.Text = ""
- Else
- End If
- End Sub
- End Class