データグリッドビューの削除ボタン

[ad_1]

こんにちは！このコードの何が問題なのか教えていただけますか? 選択行を削除すると、「コーヒーの削除に失敗しました」というメッセージが表示され続けます。

私が試したこと：

サブ削除()
If MessageBox.Show(“ARE YOU SURE YOU WANT TO DELETE THIS RECORD?”, “TIPAS FOODCOURT KIOSK”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

試す
cn.Open()
cm = New OleDbCommand(“DELETE FROM tblmerchant WHERE DESCRIPTION=@DESCRIPTION”, cn)

Dim x As New Integer
cm.Parameters.Clear()

cm.Parameters.AddWithValue(“@DESCRIPTION”, descrip.Text)
x = cm.ExecuteNonQuery
x > 0 の場合
MessageBox.Show(“YOUR RECORD IS SUCCESFULLY DELETED”, “TIPAS FOODCOURT KIOSK”, MessageBoxButtons.OK, MessageBoxIcon.Information)
そうしないと
MsgBox(“コーヒーの削除に失敗しました!”, vbCritical)

終了条件
Me.Dispose()
ex を例外としてキャッチ
MsgBox(ex.Message)
エンドトライ
cn.Close()
終了条件
サブ終了

解決策 1

わかりません – テキストボックスに何が入っているかわかりません。

行が削除されていない場合は、条件に一致する行がないことを意味します: WHERE DESCRIPTION=@DESCRIPTION. したがって、デバッガーから始めて、正確に何を見てください descrip.Text 含まれている場合は、適切なアプリを使用してデータソースを確認し、 description 列が含まれています。

実行中のデータやコードにアクセスすることはできません。

[ad_2]

Source link