[مصمم هاوي]

السلام عليكم
إخواني الكرام
ما هــو الخطأ في الكود التالي، حيث يتم تعديل بيانات عمود 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

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

جرب هذا الكود ، عسى أن ينفعك .. 
عدل عليه ما يناسب كودك (عدل فقط في الكود الموجود في الـ Buttn)

كود :

Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DataBase\Data_Base.mdb;Persist Security Info=True"
Public Function ExNonQuery(cmdText As String, ParamArray pParam As OleDbParameter()) As Integer

   Using pConn As New OleDbConnection(strCon)
       pConn.Open()

       Dim cmd As OleDbCommand = New OleDbCommand(cmdText, pConn)
       For Each p In pParam
           cmd.Parameters.Add(p)
       Next

       Dim Result As Integer = cmd.ExecuteNonQuery()

       Return Result
   End Using
End Function

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
   If DGV1.RowCount <= 0 Then Return

   Dim strEx As String

   For i = 0 To DGV1.RowCount - 1
       ' اذا عندك شي تريد تعدله في الداتاجريدفيو ضعه هنا

       ' ثم ضع شروط ترحيل البيانات هنا
       If (XXXXXX = ناجح / راسب) Then
           strEx = "Update TBL_students Set ClassID = @ClassID Where studentid = @studentid "

           ExNonQuery(strEx, New OleDbParameter("@ClassID", ComboBox2.Text),
                       New OleDbParameter("@studentid", DGV1(0, i).Value.ToString))
           ' بارمترات الحقول تضيفها بعدد الحقول التي تريد تعديلها
           ' تضيفها أولا على جملة الاستعلام ثم  على الفانكشن  في نهايته
           ' فاصلة ثم بارامتر جديد وهكذا
           ' مثلا لو أردت إضافة الاسم تعدل هكذا :

           'strEx = "Update TBL_students Set ClassID = @ClassID, [Name] = @Name  Where studentid = @studentid "

           'ExNonQuery(strEx, New OleDbParameter("@ClassID", ComboBox2.Text),
           '            New OleDbParameter("@studentid", DGV1(0, i).Value.ToString),
           '            New OleDbParameter("@Name", DGV1(1, i).Value.ToString))
           '  وهكذا ,,
       End If
   Next

   TryCast(DGV1.DataSource(), DataTable).Clear()

End Sub

[مصمم هاوي]

(05-03-24, 05:22 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

جرب هذا الكود ، عسى أن ينفعك .. 
عدل عليه ما يناسب كودك (عدل فقط في الكود الموجود في الـ Buttn)

كود :

Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DataBase\Data_Base.mdb;Persist Security Info=True"
Public Function ExNonQuery(cmdText As String, ParamArray pParam As OleDbParameter()) As Integer

   Using pConn As New OleDbConnection(strCon)
       pConn.Open()

       Dim cmd As OleDbCommand = New OleDbCommand(cmdText, pConn)
       For Each p In pParam
           cmd.Parameters.Add(p)
       Next

       Dim Result As Integer = cmd.ExecuteNonQuery()

       Return Result
   End Using
End Function

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
   If DGV1.RowCount <= 0 Then Return

   Dim strEx As String

   For i = 0 To DGV1.RowCount - 1
       ' اذا عندك شي تريد تعدله في الداتاجريدفيو ضعه هنا

       ' ثم ضع شروط ترحيل البيانات هنا
       If (XXXXXX = ناجح / راسب) Then
           strEx = "Update TBL_students Set ClassID = @ClassID Where studentid = @studentid "

           ExNonQuery(strEx, New OleDbParameter("@ClassID", ComboBox2.Text),
                       New OleDbParameter("@studentid", DGV1(0, i).Value.ToString))
           ' بارمترات الحقول تضيفها بعدد الحقول التي تريد تعديلها
           ' تضيفها أولا على جملة الاستعلام ثم  على الفانكشن  في نهايته
           ' فاصلة ثم بارامتر جديد وهكذا
           ' مثلا لو أردت إضافة الاسم تعدل هكذا :

           'strEx = "Update TBL_students Set ClassID = @ClassID, [Name] = @Name  Where studentid = @studentid "

           'ExNonQuery(strEx, New OleDbParameter("@ClassID", ComboBox2.Text),
           '            New OleDbParameter("@studentid", DGV1(0, i).Value.ToString),
           '            New OleDbParameter("@Name", DGV1(1, i).Value.ToString))
           '  وهكذا ,,
       End If
   Next

   TryCast(DGV1.DataSource(), DataTable).Clear()

End Sub

بارك الله فيك وجزاك كل خير
نجح الكود بفضل الله تعالى ثم بجهدك الطيب أستاذ طه