كود :
Public Sub Update_(ByVal Field AS String,ByVal CODEW AS Int32)
Dim Cmd As New SqlCommand
With Cmd
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "Update table Set field = @field Where CODE = @CODE"
.Parameters.Clear()
.Parameters.AddWithValue("@NAME", SqlDbType.varchar ).Value = NAME
.Parameters.AddWithValue("@CODE", SqlDbType.Int ).Value = CODEW
End With
If Con.State = 1 Then Con.Close()
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
Cmd = Nothing
End Subتقول باستدعاء الإجراء والتنفيذ في حدث التعديل في الداتا جريد فيو
لكل إذا كان التعديل لأكثر من سطر
معناها حتستخدم حلقة
كود :
for i as integer = 0 to dgv.rows.count - 1كود :
Update_(الحقل الأساسي وهو الكود أو حسب المتغير,وإعطاء الحقل المراد تعديل)