Is there anyway to speed this up. takes about 3 minutes for a row count of 1200
query:
Dim size1,size2, i, z As Int
size1 = SQLliteQuick.ExecQuerySingleResult("SELECT COUNT(*) FROM main order by rowid")
Dim R As ResultSet = SQLliteQuick.ExecQuery("SELECT rowid, attempt, attempted FROM main order by rowid")
i = 0
Dim old_attempted(size1) As Int
Dim old_attempts(size1) As Int
Do While R.NextRow
If R.GetString("attempt") = "True" Then
old_attempts(i) = 1
Else
old_attempts(i) = 0
End If
'If R.GetString("attempt") = "False" Then old_attempts(i) = 0
If R.GetString("attempted") = "True" Then
old_attempted(i) = 1
Else
old_attempted(i) = 0
End If
Log( R.GetString("rowid") & " " & old_attempts(i) & " - " & old_attempted(i))
i = i +1
Loop
Log("done")
R.Close