Ich möchte den Datensatz löschen.
Dabei gibt TB_Löschen(Textbox) die Angebotsnummer, die gelöscht werden soll an.
Warum geht es so nicht.
Keine Fehlermeldung, aber auch keine Wirkung:
Private Sub B_löschen_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim DS_löschen As New DataSet()
Dim lösch As String
'SQL Kommando definieren
Dim sql As String
sql = "Select angebot_nr FROM angebot_tab WHERE angebot_nr= '" & TB_löschen.Text & "'"
'SQL ausführen
Dim cmd As New MySQLCommand(sql, conn)
'Datenadapter definieren
adapt.SelectCommand = cmd
adapt.Fill(DS_löschen, "angebot_tab")
Dim table As New DataTable()
Dim zeile As DataRow
Dim spalte As DataColumn
table = DS_löschen.Tables("angebot_tab")
zeile = table.Rows(0)
spalte = table.Columns("angebot_nr")
lösch = zeile(spalte)
'Löschen eines Angebotes
conn.Open()
Dim deleteParameter(,) As Object = New Object(,) {{"angebot_nr", "=", lösch}}
Dim deleteCommand = New MySQLDeleteCommand(conn, "angebot_tab", deleteParameter, Nothing) 'Delete-Commando ausführen
conn.Close()
End Sub
Dabei gibt TB_Löschen(Textbox) die Angebotsnummer, die gelöscht werden soll an.
Warum geht es so nicht.
Keine Fehlermeldung, aber auch keine Wirkung:
Private Sub B_löschen_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim DS_löschen As New DataSet()
Dim lösch As String
'SQL Kommando definieren
Dim sql As String
sql = "Select angebot_nr FROM angebot_tab WHERE angebot_nr= '" & TB_löschen.Text & "'"
'SQL ausführen
Dim cmd As New MySQLCommand(sql, conn)
'Datenadapter definieren
adapt.SelectCommand = cmd
adapt.Fill(DS_löschen, "angebot_tab")
Dim table As New DataTable()
Dim zeile As DataRow
Dim spalte As DataColumn
table = DS_löschen.Tables("angebot_tab")
zeile = table.Rows(0)
spalte = table.Columns("angebot_nr")
lösch = zeile(spalte)
'Löschen eines Angebotes
conn.Open()
Dim deleteParameter(,) As Object = New Object(,) {{"angebot_nr", "=", lösch}}
Dim deleteCommand = New MySQLDeleteCommand(conn, "angebot_tab", deleteParameter, Nothing) 'Delete-Commando ausführen
conn.Close()
End Sub