Database 从数据库中删除项目

单击按钮时如何从数据库中删除记录。

看起来您的AdministratorTableAdapter类已设置为执行删除操作。您应该逐步完成代码并对其进行调试

如果要执行常规删除，请执行以下操作。将CAPS中的内容替换为与您的情况相关的值后。ID字段只是一个例子。您应该将其替换为lstDetails的选定项所代表的任何字段名

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
    If lstDetails.SelectedItems.Count = 1 Then
        Dim Button = MessageBox.Show("Are you sure you want to delete this Data?", _
        "Message", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

        If Button = Windows.Forms.DialogResult.Yes Then
            Dim dt As New LoginSystemDataSet.AdministratorDataTable
            dt = AdministratorTableAdapter.DeleteQuery(lstDetails.SelectedItems(0).SubItems(0).ToString, lstDetails.SelectedItems(0).SubItems(0).ToString, lstDetails.SelectedItems(0).SubItems(0).ToString)
            lstDetails.Items.Remove(lstDetails.SelectedItems.Item(0))
        End If
    Else
        MsgBox("No items is selected", MsgBoxStyle.Critical)
    End If

End Sub

---

你有sql吗？和调用DB？Me.AdministratorTableAdapter.FillMe.LoginSystemDataSet.Administratory的代码您忘记了dbConnection.Dispose。或者您可以使用Using结构来处理该问题。我不确定Using在VB.Net中是否可用。谢谢，我更新了代码。

Dim dbCommand As SqlCommand
Dim strSQL As String

Using dbConnection as New SqlConnection("Data Source=YOUR_SQL_SERVER_NAME;Initial Catalog=YOUR_DB_NAME;Integrated Security=True")
    Try
        dbConnection.Open()
        strSQL = "DELETE FROM YOUR_TABLE_NAME WHERE ID = @ID"
        dbCommand = New SqlCommand(strSQL, dbConnection)
        dbCommand.Parameters.AddWithValue("@ID", lstDetails.SelectedItems.Item(0))
        dbCommand.ExecuteNonQuery()
        dbConnection.Close()
    Catch ex As Exception
        ' handle Exception, log it etc.
    End Try
End Using