تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل على مشروع داتا قريد
#10
لكي تتحصل على المطلوب
اولا : يجب عليك التحقق من وجود السجل في قاعدة البيانات
ثانيا : اذا كان السجل موجود سيتم تعديل الحقول

الآن ضع هذه الدالة المسئولة عن التحقق من وجود السجل في قاعدة البيانات في اي مكان خارج اي حدث

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 ObjectAs EventArgsHandles 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(sendere)

 
   End Sub 

غير مايلزم في الاكواد ليتوافق مع ماتريده
بالتوفيق اخي الكريم
الرد }}}
تم الشكر بواسطة: hamada salah90


الردود في هذا الموضوع
تعديل على مشروع داتا قريد - بواسطة adel27 - 29-02-16, 11:38 AM
RE: تعديل على مشروع داتا قريد - بواسطة Adrees - 02-03-16, 09:59 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع لاضافة رسم بيانى محتاج التدخل لاصلاحه dr.programming 0 223 09-11-25, 01:48 AM
آخر رد: dr.programming
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 219 08-10-25, 02:20 PM
آخر رد: salamandal
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,295 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حقل الزامي ضمن داتا كريت فيو EMADW 1 415 20-05-25, 01:12 PM
آخر رد: princelovelorn
  [VB.NET] داتا كريت فيو EMADW 13 1,193 15-05-25, 10:48 PM
آخر رد: Taha Okla
  [VB.NET] جمع عمود داتا كريت فيو مع تجاهل الخلايا الفارغة EMADW 4 493 29-04-25, 10:57 PM
آخر رد: Taha Okla
  تعديل كود تحديث البيانات مصمم هاوي 1 790 26-04-25, 06:07 PM
آخر رد: مصمم هاوي
  [VB.NET] ترقيم داتا كريت فيو EMADW 1 351 21-04-25, 11:52 PM
آخر رد: Taha Okla
  [VB.NET] استدعاء داتا كريت فيو من فورم اخر EMADW 1 424 16-04-25, 06:10 PM
آخر رد: مصمم هاوي
  تعديل على استدعاء الدرجات حسب الاختيار مصمم هاوي 11 1,022 15-04-25, 06:16 PM
آخر رد: princelovelorn

التنقل السريع :


يقوم بقرائة الموضوع: