27-01-20, 04:39 AM
السلام عليكم ورحمة الله
هل استطيع عمل هذا الكود
وذلك لترتيب تسلسل الجدول من 1 وحتى 10
هل استطيع عمل هذا الكود
وذلك لترتيب تسلسل الجدول من 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()