How to update record from datagridview

Question

hi every one 
am new in .net am developing an inventory system for learning.
i successfully develop a purchase  form where user can put record for parching invoice.
as
and for save record am using flowing code.
Private Sub btn_Save_Click(sender As Object, e As EventArgs) Handles btn_Save.Click
        Dim connectionStringdgv As String = "Data Source= ABDULLAH-PC;Initial Catalog=Erpdb;Persist Security Info=True;User ID=jabbar;Password=abc123"
        Dim connection As New SqlClient.SqlConnection(connectionStringdgv)
        Dim adaptor As New SqlClient.SqlDataAdapter
        Dim adaptor1 As New SqlClient.SqlDataAdapter
        Dim dataset As New DataSet()
        Dim datasetmax As New DataSet()
        Dim adaptor3 As New SqlClient.SqlDataAdapter
        Dim adaptormax As New SqlClient.SqlDataAdapter
        Dim dataset3 As New DataSet()
        Dim dataset1 As New DataSet()
        Dim cmdinsert As New SqlClient.SqlCommand
        Dim cmdinsert1 As New SqlClient.SqlCommand
        Dim cmduppurtable As New SqlClient.SqlCommand
        Dim cmdupdrcrtable As New SqlClient.SqlCommand
        Dim cmdinsert2 As New SqlClient.SqlCommand
        Dim Cmd As New SqlClient.SqlCommand
        Dim Commandmax As New SqlClient.SqlCommand
        connection.Open()
        cmdinsert1.Connection = connection
        cmdinsert1.CommandText = "INSERT INTO purtrans(date,amount,paid,discount,[bill no],taxvalue,ac,tax)" _
            & "VALUES ('" & DateTimePicker2.Text & "','" & GAmt.Text & "','" & amtpaid.Text & "','" & Tdis.Text & "','" & invo.Text &
"','" & ttax.Text & "','" & txtCode.Text & "','" & tv.Text & "')"
        cmdinsert1.ExecuteNonQuery()
        'find last id'
        Commandmax.Connection = connection
        Commandmax.CommandText = "SELECT date,MAX(sr) FROM purtrans GROUP BY date"
        Commandmax.ExecuteNonQuery()
        adaptormax.SelectCommand = Commandmax
        Dim maxtable As New DataTable
        adaptormax.SelectCommand = Commandmax
        adaptormax.Fill(maxtable)
        If maxtable.Rows.Count > 0 Then
            SrTextBox.Text = maxtable.Select.Last.Item(1)
        End If
        If connection.State = ConnectionState.Open Then
            connection.Close()
        End If
        connection.Close()
        Dim n, m As Integer
        n = Me.dgv.Rows.Count - 1
        For m = 0 To n - 1
            Dim cd As String = "insert Into amountdrcr(todate,ac,party1,amount,purtransid,qty,rate,billno,disc,tax,weight,sp,drcr) VALUES (@todate,@ac,@Party1,@amount,@purtransid,@qty,@rate,@billno,@disc,@tax,@Weight,'Purchase','Dr')"
            Cmd = New SqlClient.SqlCommand(cd)
            Cmd.Connection = connection
            Cmd.Parameters.AddWithValue("todate", DateTimePicker2.Text)
            Cmd.Parameters.AddWithValue("ac", dgv.Rows(m).Cells("itemcode").Value)
            Cmd.Parameters.AddWithValue("party1", cmbname.Text)
            Cmd.Parameters.AddWithValue("amount", dgv.Rows(m).Cells("Amount").Value)
            Cmd.Parameters.AddWithValue("purtransid", SrTextBox.Text)
            Cmd.Parameters.AddWithValue("Qty", dgv.Rows(m).Cells("Qty").Value)
            Cmd.Parameters.AddWithValue("Rate", dgv.Rows(m).Cells("Rate").Value)
            Cmd.Parameters.AddWithValue("BILLNO", invo.Text)
            Cmd.Parameters.AddWithValue("Disc", dgv.Rows(m).Cells("Disc").Value)
            Cmd.Parameters.AddWithValue("tax", txtPerVat.Text)
            Cmd.Parameters.AddWithValue("Weight", dgv.Rows(m).Cells("Weight").Value)
            connection.Open()
            Cmd.ExecuteNonQuery()
            connection.Close()
        Next
        MsgBox("Your Record save Sucssfully", vbOKOnly, "AANO TECH")
        'posting a credit voucher for supplier'
        If Balance.Text > 0 Then
            Dim cd2 As String = "insert Into amountdrcr(todate,ac,party1,amount,purtransid,billno,sp,drcr) VALUES (@todate,@ac,@Party1,@amount,@purtransid,@Billno,'Purchase','Cr')"
            cmdinsert2 = New SqlClient.SqlCommand(cd2)
            cmdinsert2.Connection = connection
            cmdinsert2.Parameters.AddWithValue("todate", DateTimePicker2.Text)
            cmdinsert2.Parameters.AddWithValue("ac", txtCode.Text)
            cmdinsert2.Parameters.AddWithValue("party1", cmbname.Text)
            cmdinsert2.Parameters.AddWithValue("amount", Balance.Text)
            cmdinsert2.Parameters.AddWithValue("purtransid", SrTextBox.Text)
            cmdinsert2.Parameters.AddWithValue("billno", invo.Text)
            connection.Open()
            cmdinsert2.ExecuteNonQuery()
            connection.Close()
            dgv.Rows.Clear()
            btn_Save.Enabled = False
            invo.Text = ""
            txtCode.Text = ""
            TAmt.Text = ""
            GAmt.Text = ""
            Tdis.Text = ""
            Balance.Text = ""
            ttax.Text = ""
            amtpaid.Text = ""
            txtAddress.Text = ""
            txtPhone.Text = ""
            cmbname.Text = ""
            btnAdd.Enabled = False
            txtQty.Text = ""
            Wk.Text = ""
            txtRate.Text = ""
            txtRate.Text = ""
            txtPerDisc.Text = ""
            txtPerVat.Text = ""
            cmbItemCode.Text = ""
            cmbitemname.Text = ""
            invo.Focus()
        Else
            dgv.Rows.Clear()
            btn_Save.Enabled = False
            invo.Text = ""
            txtCode.Text = ""
            TAmt.Text = ""
            GAmt.Text = ""
            Tdis.Text = ""
            Balance.Text = ""
            ttax.Text = ""
            amtpaid.Text = ""
            txtAddress.Text = ""
            txtPhone.Text = ""
            cmbname.Text = ""
            txtQty.Text = ""
            Wk.Text = ""
            txtRate.Text = ""
            txtRate.Text = ""
            txtPerDisc.Text = ""
            txtPerVat.Text = ""
            cmbItemCode.Text = ""
            cmbitemname.Text = ""
            btnAdd.Enabled = False
            invo.Focus()
        End If
what is the easiest way for editing record
please guide me thanks
 

Answer 1

Hi ABDULLAH,
>> what is the easiest way for editing record
What do you mean by “editing record” ? Do you mean that you want to update the record according the textboxes in the form? If so, I am afraid that there is no better way, you need to use the ado.net and the update command to achieve that like you insert
new records. If you want to modify the record in the datagridview directly, I think you could bind the dataset to the datagridview, and then modify the record in the datagridview, and then save the changes to the database. The link below might be useful to
you:
# DataGridview Update
https://social.msdn.microsoft.com/Forums/en-US/5980181e-f666-4f0a-ab50-c4ebecf96f02/datagridview-update-?forum=Vsexpressvb
Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.