Question

这是我的数据加载到我的数据网格

的代码

Private Sub Records_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connString As String = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Database3.Accdb;"
        Dim MyConn As OleDbConnection
        Dim da As OleDbDataAdapter
        Dim ds As DataSet
        Dim tables As DataTableCollection
        Dim source1 As New BindingSource
        MyConn = New OleDbConnection
        MyConn.ConnectionString = connString
        ds = New DataSet
        tables = ds.Tables
        da = New OleDbDataAdapter("Select * from [userinfo] ORDER BY ID", MyConn) 'Change items to your database name
        da.Fill(ds, "userinfo") 'Change items to your database name
        Dim cb = New OleDbCommandBuilder(da)
        Dim view As New DataView(tables(0))
        source1.DataSource = view
        DataGridView1.DataSource = view
    End Sub

这是我的删除按钮，删除datagrid中的选定行，但整个表被删除（我知道这个原因我把它删除整个表只是为了知道我的sql正在工作）

Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
    Dim connString As String = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Database3.Accdb;"
    Dim MyConn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim tables As DataTableCollection
    Dim source1 As New BindingSource
    Dim row As New Integer
    Try
        MyConn = New OleDbConnection
        MyConn.ConnectionString = connString
        ds = New DataSet
        tables = (ds.Tables)
        da = New OleDbDataAdapter("Delete * from [userinfo]", MyConn)
        da.Fill(ds, "userinfo")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

我想删除数据网格中的选定行。提前谢谢你

Answer 1

Delete * from [userinfo]将删除表格中的所有内容。传递您的ID以便删除。例如。 Delete * from [userinfo] where ID=5

您可以使用Datagridview.SelectedRows属性查找选定的行。传递ID列索引，您将获得ID。

EG。 "Delete * from [userinfo] where ID=" & DataGridView1.SelectedRows(0).Cells(0).Value.ToString()

如果允许多选，则循环删除行。为安全起见，还可以使用parameters将变量传递给查询。

Answer 2

抱歉我的英语不好。第1步：听取点击Datagrid

Private Sub datagridview_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles datagridview.CellClick

第2步：获取列单击

datagridview.Rows.Item(e.RowIndex).Cells(0).Value

第3步：从数据库中删除

Dim sqlcmd As String = "delete  from [userinfo] where YourColumn = '" & datagridview.Rows.Item(e.RowIndex).Cells(0).Value & "'"

完全代码：

Private Sub Datagridview_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellClick
        Try
            Dim MyConn As OleDbConnection
            Dim connString As String = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Database3.Accdb;"
            MyConn = New OleDbConnection
            Dim cmdstr As String = "delete * from [userinfo] where YourColumn = '" & DataGridView.Rows.Item(e.RowIndex).Cells(0).Value & "'"
            Dim cmd As New OleDbCommand(cmdstr, MyConn)
            MyConn.Open()
            cmd.ExecuteNonQuery()
            MyConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 End Sub

Answer 3

引用已删除行值的方法是已删除行表中的行原始值：

dt is datasource of datagridview
Dim dtDelete As DataTable = dt.GetChanges(DataRowState.Deleted)
cmd.Parameters.AddWithValue("@GridValue", r("Gridcolumn", DataRowVersion.Original))

示例是SQL，但方法不是特定的

删除Datagridview行以及我的访问数据库vb.net

3 个答案: