02-03-16, 09:59 PM
لكي تتحصل على المطلوب
اولا : يجب عليك التحقق من وجود السجل في قاعدة البيانات
ثانيا : اذا كان السجل موجود سيتم تعديل الحقول
الآن ضع هذه الدالة المسئولة عن التحقق من وجود السجل في قاعدة البيانات في اي مكان خارج اي حدث
اولا : يجب عليك التحقق من وجود السجل في قاعدة البيانات
ثانيا : اذا كان السجل موجود سيتم تعديل الحقول
الآن ضع هذه الدالة المسئولة عن التحقق من وجود السجل في قاعدة البيانات في اي مكان خارج اي حدث
PHP كود :
'التأكد من وجود السجل في قاعدة البيانات
Public Function CheckData(ByVal id As Integer)
Dim cm As New SqlCommand("Select id from hala where id=@id", com)
cm.Parameters.AddWithValue("@id", id)
com.Open()
Dim dr As SqlDataReader = cm.ExecuteReader()
If dr.HasRows = True Then 'اذا كان السجل موجود يرجع 1
b = 1
com.Close()
Return b
Else
b = 0
com.Close()
Return b
End If
End Function
كود الحفظ سيكون كالتالي
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 0 To DataGridView1.Rows.Count - 2
If CheckData(CInt(DataGridView1.Rows(i).Cells(0).Value)) = 1 Then
Dim cm As New SqlCommand("Update hala set CName=@cn,chk=@vd where id=@id", com)
cm.Parameters.AddWithValue("@id", CInt(DataGridView1.Rows(i).Cells(0).Value.ToString()))
cm.Parameters.AddWithValue("@cn", DataGridView1.Rows(i).Cells(1).Value.ToString())
cm.Parameters.AddWithValue("@vd", CBool(DataGridView1.Rows(i).Cells(2).Value))
com.Open()
cm.ExecuteNonQuery()
com.Close()
End If
Next
MsgBox("تم التعديل")
Form1_Load(sender, e)
End Sub
غير مايلزم في الاكواد ليتوافق مع ماتريده
بالتوفيق اخي الكريم

