Sub Globals
Dim DBFileName As String = "israel.db"
Dim DBFilePath As String
Dim Cursor1 As Cursor
Dim ListStreet As List
Dim lblSec As Label 'located in the layout StepByAddress
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("StepByAddress")
If File.ExternalWritable Then
DBFilePath = File.DirRootExternal
Else
DBFilePath = File.DirInternal
End If
If Not(File.Exists(DBFilePath,DBFileName)) Then
File.Copy(File.DirAssets,DBFileName,DBFilePath,DBFileName)
End If
If SQL1.IsInitialized =False Then
SQL1.Initialize(DBFilePath,DBFileName,True)
End If
ListStreet.initialize
ProgressDialogShow2("Loading, just a sec",False)
ReadTable
End Sub
Sub ReadTable
Dim t0 As Long= DateTime.Now
Cursor1=SQL1.ExecQuery("SELECT DISTINCT Street FROM Israel")
For i=0 To Cursor1.RowCount-1
Cursor1.Position = i
ListStreet.Add(Cursor1.GetString("Street"))
Next
Dim t1 As Long = DateTime.Now
lblSec.Text = Round2((t1 - t0)/1000,1)
lblSec.Text =lblSec.Text & " seconds"
ProgressDialogHide
Log("Last record in list: " & ListStreet.Get(ListStreet.Size-1))
Log("Time elapsed: " & lblSec.Text)
Log("Number of recs: " & Cursor1.RowCount)
Cursor1.Close
SQL1.Close
End Sub