+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تعديل بيانات عمود DataGridView دفعة واحدة (/showthread.php?tid=48004)
تعديل بيانات عمود DataGridView دفعة واحدة - مصمم هاوي - 05-03-24
السلام عليكم
إخواني الكرام
ما هــو الخطأ في الكود التالي، حيث يتم تعديل بيانات عمود DataGridView دفعة واحدة
ولكن المشكلة في ظهـور رسالة حسب عدد البيانات الموجودة في الصـف الدراسي المراد ترحيله إلى الصـف المقدم
والمفروض أنه عند الضغط على زر التعديل يتم تعديل البيانات دفعة واحدة، ومع وضع شرطين للترحيل:
الأول: أن يكون ناجح
الثاني: رقم الفصل مثلاً 2
أسف على السؤال فما زال أخوك مبتدئ، وأحاول أن أتعلم وكلما فشلتُ في الوصول إلى نتيجة أعرض المشكلة عليكم
كود :
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DataBase\Data_Base.mdb;Persist Security Info=True")
'تغيير حقل الصف
Dim x As Integer = Val(dgv1.Rows.Count - 1)
Dim i As Integer
For i = 0 To x
dgv1.Item(2, i).Value = ComboBox2.Text
dgv1.Refresh()
Next
Dim sql As String = "Update TBL_students Set ClassID = @ClassID Where studentid = @studentid"
Dim cm As New OleDbCommand(sql, con)
With cm.Parameters
.AddWithValue("@ClassID", ComboBox2.Text).DbType = DbType.String
.AddWithValue("@studentid", dgv1.Rows(i).Cells(0).Value).DbType = DbType.String
End With
con.Open()
cm.ExecuteNonQuery()
con.Close()
MsgBox("تم ترحيل الطلبـة الناجحين من الصـف : " & " " & ComboBox1.Text & Chr(13) & " إلى الصــف : " & ComboBox2.Text & " * بنجــاح " & "", MsgBoxStyle.Information, "الإجـــراء")
Nextأسف أخطاتُ في القسم المناسب