+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل على مشروع داتا قريد (/showthread.php?tid=14927)
تعديل على مشروع داتا قريد - adel27 - 29-02-16
[attachment=9612]
لسـلام عليكم ورحمة الله وبركاته
أتمنى مسـاعدتي في مشـروعي الصغير أرفقت قاعدة البيانات من نوع سكيـول سيرفر وأيضاً المشـروع
قاعدة البيانات عبـاره عن / أسم- العمر - التحقق
الداتا تايب / nverchar- nverchar-bit
الفكره وهي كالتالي:
في عمود التحقق الذي يحمل الخاصيه bit إذا كان ترو يتم تضليل الصف وإذا كانت عادي يصير الصف بدون تضليل
وتحفظ في قاعدة البيانات وأيضاً لا أريد المستخدم أن يعبث في البيانات الموجوده في الداتا قريد فيو توقيف التعديل فيها
RE: تعديل على مشروع داتا قريد - adel27 - 29-02-16
ياجماعه ماعم يصير 43 مشاهده بدون رد
موقف شغلي والله
RE: تعديل على مشروع داتا قريد - ممدوح الخطيب - 29-02-16
السلام عليكم ورحمة الله وبركاتة
اخي ده كود يمكن تنفيذة عقب تعبئة الجريد
PHP كود :
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1(2, i).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
RE: تعديل على مشروع داتا قريد - adel27 - 29-02-16
أشكرك على ردك ولكن التشك بكس هو عمود يعني أبغا أضع التشك في عمود اللي يحمل داتا تايب int
RE: تعديل على مشروع داتا قريد - ممدوح الخطيب - 29-02-16
الكود ده DataGridView1(2, i).Value = True
غير رقم 2 إلى رقم العمود في الجريد وخلي بالك الترقيم للأعمد يبدأ بالـــ 0
غير Vaule للقيمة اللي عاوز تقارن يها
RE: تعديل على مشروع داتا قريد - adel27 - 29-02-16
[attachment=9618][attachment=9618]
عندي كودين كود لما يضغط على الزر بعد التحديد يحفظ
وكود لما يتحمل الفورم ينزل نفس المتحددين
RE: تعديل على مشروع داتا قريد - adel27 - 01-03-16
كود :
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بس باقي علي كود الحفظ في قاعدة البيانات اللي تم التأشير عليها يحفظها في القاعده
وعند التحميل مره أخرى يبقى الشكل مثل ماهو ...
لو سمحتم لم يتبقى في مشـروعي إلا هاذي
RE: تعديل على مشروع داتا قريد - adel27 - 01-03-16
[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
RE: تعديل على مشروع داتا قريد - adel27 - 02-03-16
ضروري يا أخوان تســـاعدوني الله لا يحرمكم الأجر
RE: تعديل على مشروع داتا قريد - Adrees - 02-03-16
لكي تتحصل على المطلوب
اولا : يجب عليك التحقق من وجود السجل في قاعدة البيانات
ثانيا : اذا كان السجل موجود سيتم تعديل الحقول
الآن ضع هذه الدالة المسئولة عن التحقق من وجود السجل في قاعدة البيانات في اي مكان خارج اي حدث
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
غير مايلزم في الاكواد ليتوافق مع ماتريده
بالتوفيق اخي الكريم