从数据库中删除项目

Question

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 

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

Answer 1

看起来您的AdminitratorTableAdapter类已被设置为执行DELETE操作。您应该逐步完成代码并进行调试。

如果您想要执行常规操作DELETE，请执行以下操作。用CAPS替换与你的情况相关的值后的东西。 ID字段也只是一个例子。您应该将其替换为lstDetails所选项目所代表的任何字段名称。

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