How to delete current row in DataGridView?

mohamad guntur

i have an error when using this function,,i want to delete the data at the current rows. Of course when i'm deleting the rows, the selected data on the database must be deleted.

here is my code

Try

If Not con.State = ConnectionState.Open Then

con.Open()

End If

Dim cmd As New SqlCommand

cmd.Connection = con

cmd.CommandText = "DELETE FROM PRODUCT WHERE ID_PRODUCT=" & Me.DataGridView1.CurrentRow.Cells(0).Value & "'"

cmd.ExecuteNonQuery()

Finally

con.Close()

End Try

thanks in advance

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

mohamad guntur14y ago
thx, but the syntax using "Count" won't work to me. I don't know why

but i got the solution without using "Count", here is my code. and it works out :)

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If con.State = ConnectionState.Open Then con.Close()
Dim connectionString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|MyDBdir|;Integrated Security=True;User Instance=True"
con = New SqlConnection(connectionString)

If Not con.State = ConnectionState.Open Then
con.Open()
End If

Dim xc As String
Dim cmd As New SqlCommand

Dim box As MsgBoxResult = MsgBox("Are you sure to delete this data?", MsgBoxStyle.YesNo, "Delete data")

If box = MsgBoxResult.Yes Then

cmd.Connection = con
xc = DataGridView1.Columns(0).DataGridView(0, DataGridView1.CurrentCell.RowIndex).Value.ToString
cmd.CommandText = "DELETE FROM PRODUCT WHERE PRODUCT_ID = '" & xc & "'"
cmd.ExecuteNonQuery()
DataGridView1.Rows.Remove(DataGridView1.CurrentCell.OwningRow)
MsgBox("Data has been successfully deleted", MsgBoxStyle.OkOnly, "Delete data")
GetData()

ElseIf box = MsgBoxResult.No Then
GetData()
Else
con.Close()
End If

End Sub
Satyapriya Nayak14y ago
Hi Mohamad,

Try this....

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")
    Dim con As OleDbConnection = New OleDbConnection(ConnectionString)
    Dim com As OleDbCommand
    Dim oledbda As OleDbDataAdapter
    Dim ds As DataSet
    Dim dt As DataTable
    Dim dr As DataRow
    Dim dc As DataColumn
    Dim str As String

    Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click

        com = New OleDbCommand()
        If DataGridView1.Rows.Count > 1 AndAlso DataGridView1.SelectedRows(0).Index <> DataGridView1.Rows.Count - 1 Then
            com.CommandText = "DELETE FROM employee WHERE ID=" & DataGridView1.SelectedRows(0).Cells(0).Value.ToString() & ""
            con.Open()
            com.Connection = con
            com.ExecuteNonQuery()
            con.Close()
            DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index)
            MessageBox.Show("Record Successfully Deleted")
        End If
        bindgrid()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bindgrid()
    End Sub

    Sub bindgrid()
        Try
            con.Open()
            str = "select * from employee"
            com = New OleDbCommand(str, con)
            oledbda = New OleDbDataAdapter(com)
            ds = New DataSet
            oledbda.Fill(ds, "employee")
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "employee"
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Thanks
If this post helps you mark it as answer