VS 2010 Need Code for Update Datagridview

Hi All

Please Help me for Updating Data using Datagridview Here is my code:


Public Class Details
Private ProductList As New AutoCompleteStringCollection()
Dim con As New SqlClient.SqlConnection("Data Source=MUHAMMADANIS-PC\MSSQLSERVER2;Initial Catalog=GatePass;Persist Security Info=True;User ID=sa;Password=123")
Dim sql As String
Dim cmd As New SqlClient.SqlCommand
Dim DataR As SqlClient.SqlDataReader
Dim da As New SqlClient.SqlDataAdapter
Public Mytable As New DataTable



Private Sub Details_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'TODO: This line of code loads data into the 'GatePassDataSet.Order_Details' table. You can move, or remove it, as needed.

con.Open()
'DGV.Columns(1).Width = 250

End Sub

Private Sub IDtext_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDtext.DropDown
Dim da As New SqlClient.SqlDataAdapter("Select * from Order_Master Order by Order_No Desc", con)
Dim dt As New DataTable
da.Fill(dt)
IDtext.DataSource = dt
IDtext.DisplayMember = "Order_No"
End Sub

Private Sub IDtext_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDtext.DropDownClosed



End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = "Select * from Order_Master Where Order_No='" & IDtext.Text & "'"

With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = sql
End With
DataR = cmd.ExecuteReader
DataR.Read()
If DataR.HasRows = True Then
Date1.Text = DataR!Order_Date
Date2.Text = DataR!Delivery_date
Party.Text = DataR!Delivered_to
mode.Text = DataR!delivery_Mode
End If
If IsDBNull(DataR("Cn")) = False Then
CN.Text = DataR!cn
Else
CN.Text = ""
End If


If IsDBNull(DataR("Courier")) = False Then
Courier.Text = DataR!Courier
Else
Courier.Text = ""
End If

If IsDBNull(DataR("Parcels")) = False Then
Parcels.Text = DataR!Parcels
Else
Parcels.Text = ""
End If

If IsDBNull(DataR("Weight")) = False Then
weight.Text = DataR!Weight
Else
weight.Text = ""
End If


DataR.Close()
cmd.Dispose()

End Sub

Private Sub CodeText_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CodeText.KeyPress
'If CodeText.TextLength = 4 Then
' Transact()

'End If

'If CodeText.Text = 9 Then
' Form2.ShowDialog()

'End If
Form2.ShowDialog()
Qty.Focus()


End Sub

Private Sub Transact()
sql = "Select * from Item where code = '" & CodeText.Text & "'"
With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = sql
End With

DataR = cmd.ExecuteReader
DataR.Read()
If DataR.HasRows = False Then
MessageBox.Show("Account Code Not Found", "Office Solution 2013", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
If DataR.HasRows = True Then
Item.Text = DataR!Item
End If

DataR.Close()
cmd.Dispose()
Qty.Focus()
End Sub




Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Item.Text = "" Then
MessageBox.Show("Please Enter Item", "Office Solution 2013", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
sql = Nothing
sql = "Insert into Order_Details(Order_id,Model,qty)"
sql = sql + "Values('" & IDtext.Text & "','" & Item.Text & "','" & Qty.Text & "')"

With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = sql
End With
cmd.ExecuteNonQuery()
End If
DataGridWork()

CodeText.Clear()
CodeText.Focus()
Qty.Clear()
calculate()

End Sub

Private Sub DataGridWork()
' Dim mytable As New DataTable
cmd.Connection = con
cmd.CommandText = "Select model,qty from Order_Details Where Order_Id ='" & IDtext.Text & "'"
DataR = cmd.ExecuteReader
Dim I As Integer
For I = 0 To mytable.Rows.Count - 1
DataR.Read()
Next

mytable.Load(DataR)
DGV.DataSource = mytable
With DGV
.Columns("Model").HeaderCell.Value = ("Model")
.Columns(0).Width = 280
.Columns("Qty").HeaderCell.Value = ("Qty")
' .Columns(1).Width = 100
End With
DataR.Close()

End Sub


Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
DataGridWork()
calculate()
End Sub

Private Sub calculate()
sql = Nothing
sql = "Select SUM (QTY) from Order_Details Where Order_Id='" & IDtext.Text & "'"
With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = sql
End With
If DGV.RowCount = 0 Then
MessageBox.Show("No Data")
TotText.Text = "0"
Else
Dim tot1 As Int32 = cmd.ExecuteScalar
TotText.Text = tot1
End If


End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form.Show()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Close()
End Sub

Private Sub Label13_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label13.MouseEnter
Me.Cursor = Cursors.Hand

End Sub

Private Sub Label13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label13.MouseLeave
Me.Cursor = Cursors.Default

End Sub

Private Sub CodeText_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CodeText.MouseClick
Form2.ShowDialog()

End Sub


Private Sub DGV_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGV.CurrentCellDirtyStateChanged
If DGV.IsCurrentCellDirty Then
DGV.CommitEdit(DataGridViewDataErrorContexts.Commit)
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

End Sub
End Class





Please Reply me Soon