Hallo liebes Forum,
ich habe mein Projekt nun mehr durch mit Option Strict ON.
Ich konnte einiges lernen auch dank diesem Forum.
Ein Fehler steht noch an bei den ich nicht weiter komme.
Ich möchte aus einer DGV eine Zeile löschen mit dem Button Löschen (nur die Zeile die folgende ID enthält)
Hier der CODE:
DataBoundItem wird hier rot unterstrichen und folgender Fehler wird ausgegeben:
BC30574:"Option Strict On" lässt spätes Binden nicht zu.
Kann mir bitte jemand erklären was hier falsch ist bzw. wie es richtig wäre.
Option Strict OFF funktioniert der Button Löschen einwandfrei.
Danke und einen schönen Abend
Gebhard
ich habe mein Projekt nun mehr durch mit Option Strict ON.
Ich konnte einiges lernen auch dank diesem Forum.
Ein Fehler steht noch an bei den ich nicht weiter komme.
Ich möchte aus einer DGV eine Zeile löschen mit dem Button Löschen (nur die Zeile die folgende ID enthält)
Hier der CODE:
VB.NET-Quellcode
- Private Sub ButtonDelete_Click(sender As Object, e As EventArgs) Handles ButtonDelete.Click
- If DataGridView1.RowCount = 0 Then
- MsgBox("Löschen nicht möglich, Tabellendaten sind leer", MsgBoxStyle.Critical, "Fehlermeldung")
- Return
- End If
- If DataGridView1.SelectedRows.Count = 0 Then
- MsgBox("Löschen nicht möglich. Wählen Sie die zu löschenden Tabellendaten aus", MsgBoxStyle.Critical, "Fehlermeldung")
- Return
- End If
- If MsgBox("Eintrag löschen?", CType(MsgBoxStyle.Question + MsgBoxStyle.OkCancel, Global.Microsoft.VisualBasic.MsgBoxStyle), "Bestätigung") = MsgBoxResult.Cancel Then Return
- Try
- Connection.Open()
- Catch ex As Exception
- MessageBox.Show("Verbindung fehlgeschlagen !!!" & vbCrLf & "Bitte überprüfen Sie, ob der Server bereit ist !!!", "Fehlermeldung", MessageBoxButtons.OK, MessageBoxIcon.Error)
- Return
- End Try
- Try
- If AllCellsSelected(DataGridView1) = True Then
- MySQLCMD.CommandType = CommandType.Text
- MySQLCMD.CommandText = "DELETE FROM " & Table_Name
- MySQLCMD.Connection = Connection
- MySQLCMD.ExecuteNonQuery()
- End If
- For Each row As DataGridViewRow In DataGridView1.SelectedRows
- If row.Selected = True Then
- MySQLCMD.CommandType = CommandType.Text
- MySQLCMD.CommandText = "DELETE FROM " & Table_Name & " WHERE ID = '" & row.DataBoundItem(8) & "'"
- MySQLCMD.Connection = Connection
- MySQLCMD.ExecuteNonQuery()
- End If
- Next
- Catch ex As Exception
- MsgBox("Fehler beim Löschen" & vbCr & ex.Message, MsgBoxStyle.Critical, "Fehlermeldung")
- Connection.Close()
- End Try
- PictureBoxImagePreview.Image = Nothing
- Connection.Close()
- ShowData()
- End Sub
DataBoundItem wird hier rot unterstrichen und folgender Fehler wird ausgegeben:
BC30574:"Option Strict On" lässt spätes Binden nicht zu.
Kann mir bitte jemand erklären was hier falsch ist bzw. wie es richtig wäre.
Option Strict OFF funktioniert der Button Löschen einwandfrei.
Danke und einen schönen Abend
Gebhard