B4X:
j=1000
con.BeginTransaction
For i=1 To 1000
Cmd.CommandText ="update TBNR set XH='" & (j+1) & "' Where ( XH ='" & j & "')"
j=j-1
cmd.ExecuteNonQuery
Next i
con.EndTransaction
In my HTC touch pro to complete the above code to take about 10 seconds
How to improve the speed?