[Mtaktak]

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

هل استطيع عمل هذا الكود
وذلك لترتيب تسلسل الجدول من 1 وحتى 10

   

كود :

       Dim mSQL As String = "UpDate  Data1 set ID = @ID , ONo = @ONo where ID = " & Text1.Text & ""
       Dim cmd As New OleDbCommand(mSQL, Con)
       Dim i As Integer = 0  
       Dim x As Integer = 0

       For i = 0 To  9
           x += 1
           cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Numeric)).Value = x
           cmd.Parameters.Add(New OleDbParameter("@ONo", OleDbType.Numeric)).Value = x
       Next
       End If

       If Con.State = ConnectionState.Open Then Con.Close()
       Con.Open()
       cmd.ExecuteNonQuery()
       Con.Close()