[مصمم هاوي]

(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

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