[صالح الشنطى]

[COLOR="#0000FF"]السلام عليكم
شكرا اخى العزيز على الاهتمام
وارجو ان تتحملنى قليلا
جربت الكود ولكنه لم يشتغل معى
حاولت ان اغير فى الكود قليلا ووضعتبعض الاكواد فى لوب
فشتغل الكود ولم يعطى خطاء ولكنة لم يقوم بالتعديل المطلوب
فياريت المساعدة لو تكرمت[/COLOR]

PHP كود :

Dim sql As String = "update arshef set group1=@group1,subgroup1=@subgroup1 where ser>100"
        If cn.State = ConnectionState.Closed Then cn.Open()
        Dim cmd As New OleDbCommand(sql, cn)
        cmd.Parameters.Add("@group1", OleDbType.Integer, 4, "group1")
        adpt.UpdateCommand = cmd
        Dim i As Integer
        Dim r As DataRow
        For i = 0 To table.Rows.Count - 1
            r = table.Rows(i)
            r("group1") = r("group1") + 30
            adpt.Update(table)
        Next
        MsgBox("تم الادخال", MsgBoxStyle.DefaultButton1, "تجربة كود")