تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل على مشروع داتا قريد
#1

.zip   نسخه البرنامج.zip (الحجم : 538.11 ك ب / التحميلات : 31)


لسـلام عليكم ورحمة الله وبركاته 
أتمنى مسـاعدتي في مشـروعي الصغير أرفقت قاعدة البيانات من نوع سكيـول سيرفر وأيضاً المشـروع 

قاعدة البيانات عبـاره عن / أسم- العمر - التحقق 
الداتا تايب / nverchar- nverchar-bit

الفكره وهي كالتالي: 
في عمود التحقق  الذي يحمل الخاصيه bit إذا كان ترو يتم تضليل الصف وإذا كانت عادي يصير الصف بدون تضليل 
وتحفظ في قاعدة البيانات وأيضاً لا أريد المستخدم أن يعبث في البيانات الموجوده في الداتا قريد فيو توقيف التعديل فيها 
الرد }}}}
تم الشكر بواسطة:
#2
ياجماعه ماعم يصير 43 مشاهده بدون رد 
موقف شغلي والله
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاتة
اخي ده كود يمكن تنفيذة عقب تعبئة الجريد
PHP كود :
For As Integer 0 To DataGridView1.Rows.Count 1
            
If DataGridView1(2i).Value True Then
                DataGridView1
.Rows(i).DefaultCellStyle.BackColor Color.Aqua
                DataGridView1
.Rows(i).ReadOnly True
            
Else
                
DataGridView1.Rows(i).DefaultCellStyle.BackColor Color.White
                DataGridView1
.Rows(i).ReadOnly False
            End 
If
        
Next 
غير رقم العمود اللي به الحقل
Email : mrma11581@gmail.com
الرد }}}}
تم الشكر بواسطة:
#4
أشكرك على ردك ولكن التشك بكس هو عمود يعني أبغا أضع التشك في عمود اللي يحمل داتا تايب int
الرد }}}}
تم الشكر بواسطة:
#5
الكود ده DataGridView1(2, i).Value = True
غير رقم 2 إلى رقم العمود في الجريد وخلي بالك الترقيم للأعمد يبدأ بالـــ 0
غير Vaule للقيمة اللي عاوز تقارن يها
Email : mrma11581@gmail.com
الرد }}}}
تم الشكر بواسطة:
#6
       


عندي كودين كود لما يضغط على الزر بعد التحديد يحفظ 
وكود لما يتحمل الفورم ينزل نفس المتحددين
الرد }}}}
تم الشكر بواسطة:
#7
كود :
 For i = 0 To DATAG.Rows.Count - 1
           With DATAG.Rows(i)
               Dim MyCheck As String = .Cells(6).Value.ToString
               If MyCheck = "True" Then
                   .Cells(0).ReadOnly = True
                   '.Cellds(1).ReadOnly = True
                   .Cells(2).ReadOnly = True
                   .Cells(3).ReadOnly = True
                   .Cells(4).ReadOnly = True
                   .Cells(5).ReadOnly = True
                   .Cells(6).ReadOnly = True
                   .DefaultCellStyle.BackColor = Color.LightGray

               Else
                   .Cells(0).ReadOnly = False
                   .Cells(1).ReadOnly = False
                   .Cells(2).ReadOnly = False
                   .Cells(3).ReadOnly = False
                   .Cells(4).ReadOnly = False
                   .Cells(5).ReadOnly = False
                   .Cells(6).ReadOnly = False
                   .DefaultCellStyle.BackColor = Nothing
               End If
           End With
       Next
يا جماعه وضعت هذا الكود لما أضع علامة تشك في السطر اللي أحتاجه يظلل تمام 
بس باقي علي كود الحفظ في قاعدة البيانات اللي تم التأشير عليها يحفظها في القاعده 
وعند التحميل مره أخرى يبقى الشكل مثل ماهو ...
لو سمحتم لم يتبقى في مشـروعي إلا هاذي
الرد }}}}
تم الشكر بواسطة:
#8
[attachment=9633 كتب :adel27 pid='71484' dateline='1456822710']
كود :
 For i = 0 To DATAG.Rows.Count - 1
           With DATAG.Rows(i)
               Dim MyCheck As String = .Cells(6).Value.ToString
               If MyCheck = "True" Then
                   .Cells(0).ReadOnly = True
                   '.Cellds(1).ReadOnly = True
         
                   .DefaultCellStyle.BackColor = Color.LightGray

               Else
                   .Cells(0).ReadOnly = False
                   .Cells(1).ReadOnly = False
                          .DefaultCellStyle.BackColor = Nothing
               End If
           End With
       Next


الملفات المرفقة
.zip   NewZip1.zip (الحجم : 191.8 ك ب / التحميلات : 17)
الرد }}}}
تم الشكر بواسطة:
#9
ضروري يا أخوان تســـاعدوني الله لا يحرمكم الأجر
الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] داتا جريد فيو فارس احمد السيد 5 140 23-02-17, 09:48 PM
آخر رد: فارس احمد السيد
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,044 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 54 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 115 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 47 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 78 05-02-17, 01:43 AM
آخر رد: المتألق9
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 223 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 163 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  كيف يمكن تقريب الكسر العشري لاقرب رقم فى داتا جريد فيو السيد الجوهري 1 80 28-01-17, 06:34 PM
آخر رد: ابو ليلى
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 82 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم