How to delete current row in DataGridView?

Question

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

mohamad guntur · Answer

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 Nayak · Answer

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