[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()

[alsalamoni]

(27-01-20, 04:39 AM)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()

اجعل الحقل ترقيم تلقائي

[Mtaktak]

شكرا على مرورك

لنفرض ان الحقل غير مرقم ترقيم تلقائي
مجرد حقل يحتوي على رقم ونريد ان نضع به ترقيم تسلسلي من 1 الى 10

هل استطيع استخدام طريقتي هذه؟