给我一个相同的代码用于删除..vb.net 2010-关闭

下面的代码是我保存记录的代码

provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        'Change the following to your access database location
        dataFile = "C:\Users\DELL\Downloads\WindowsApplication1\WindowsApplication1\Database1.accdb"
        connString = provider & dataFile
        myConnection.ConnectionString = connString
        myConnection.Open()
        Dim str As String
        str = "insert into tblODR ([ID], [Office], [Elements], [Objectives], [Initiatves]) values (?, ?, ?, ?, ?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        cmd.Parameters.Add(New OleDbParameter("ID", CType(IDTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Office", CType(OfficeTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Elements", CType(ElementsTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Objectives", CType(ObjectivesTextBox.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Initiatves", CType(InitiatvesTextBox.Text, String)))

        Try

            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            Me.Validate()
            Me.TblODRBindingSource.EndEdit()
            Me.TblODRTableAdapter.Update(Me.Database1DataSet.tblODR)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

谁能给我一个相同的代码，但为了删除的目的。。上面的代码添加了一条新记录，并在添加后立即显示在datagridview中..（在我有用于添加的代码之前，但它不会立即添加到datagridview中）。。

---

我想要的是一个代码，当我使用文本框删除记录时（我通过在文本框中输入记录的ID号来删除记录）…删除的记录将在删除后立即显示。。（我的代码到现在为止，当我删除一条记录时，它会删除该记录，但我必须关闭窗体并再次运行程序以显示删除的记录是否已被删除）

您可以使用gridview1.refresh（）方法在delete按钮上刷新网格，因此当执行delete common时，它将刷新您的gridview以更新新记录。请使用gridview1.update（）更新您所做的更改。或者您也可以创建自己的方法来刷新gridview，下面是刷新网格的示例方法

Public Sub Gridrefresh(ByVal s As String, ByVal dgv As DataGridView)
    Dim dt As New DataTable()
    Dim cmd As New SqlCommand("select * from  " + s + "", con.dbconnection())
    cmd.CommandType = CommandType.Text
    Dim da As New SqlDataAdapter(cmd)
    da.Fill(dt)
    dgv.DataSource = dt
End Sub

---

这里是您的表的名称，当您调用此方法时，您可以使用此Gridrefresh（“表的名称”，datagridView1名称），希望这将帮助您向我们展示您的efforts@Mahadev你向你展示我的努力是什么意思？我不明白。。我应该展示系统吗？不。您试图删除哪些记录？代码？可能重复的请不要在工作后的几个小时内重新发布！谢谢兄弟！干杯不客气，我很高兴我的代码能帮助您解决问题！干杯