+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الحفظ والتعديل مباشرة من الداتا جريد (/showthread.php?tid=38215)
الحفظ والتعديل مباشرة من الداتا جريد - aftfm - 06-04-21
السلام عليكم ورحمة الله وبركاته
وضعت كود الحفظ الخاص بالداتا جريد
ولكن عند الحاجة الى تعديل أو اضافة حقل في نفس السطر يضيف سجل جديد والمطلوب التعديل على نفس السجل بدون تكرار البيانات في سجل جديد
كود :
Dim cmd As New OleDbCommand
cmd = New OleDbCommand(" INSERT INTO tblShart(C_1, C_2, C_3, C_4, C_5) VALUES (@C_1, @C_2, @C_3, @C_4, @C_5)", Con)
For i As Integer = 0 To Me.DataGridView2.RowCount - 2
cmd.Parameters.Clear()
With cmd.Parameters
.AddWithValue("@C_1", Me.DataGridView2.Rows(i).Cells(0).Value.ToString)
.AddWithValue("@C_2", Me.DataGridView2.Rows(i).Cells(1).Value.ToString)
.AddWithValue("@C_3", Me.DataGridView2.Rows(i).Cells(2).Value.ToString)
.AddWithValue("@C_4", Me.DataGridView2.Rows(i).Cells(3).Value.ToString)
.AddWithValue("@C_5", Me.DataGridView2.Rows(i).Cells(4).Value.ToString)
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
End With
Nextتظهر البيانات متكررية مع زيادة السجلات
RE: الحفظ والتعديل مباشرة من الداتا جريد - عبد العزيز البسكري - 06-04-21
لكن هذا الكود للحفظ و ليس للتعديل ..!!