Dim SQL1 As SQL 'in process global
Dim index As Object 'in process global
Dim sv As SearchView ' in globals
Dim Cursor1 as Cursor ' in globals
Dim MyList as List ' in globals
Dim txt, DBFilePath, DBFileName, MyFolder as String ' in globals
sv.Initialize(Me, "sv")
sv.AddToParent(Activity, 0, 10%x, 100%x, 90%y)
If File.ExternalWritable Then
DBFilePath = File.DirRootExternal & "/" & MyFolder
Else
DBFilePath = File.DirDefaultExternal & "/" & MyFolder
End If
File.MakeDir(DBFilePath,MyFolder)
If FirstTime Then
MyList.Initialize
SQL1.Initialize(DBFilePath, DBFileName, True)
txt="SELECT F1, F2 FROM MyTable ORDER BY F1"
Cursor1=SQL1.ExecQuery(txt)
Cursor1.Position=0
For i=0 To Cursor1.RowCount-1
Cursor1.Position = i
MyList.Add(Cursor1.GetString("F1") & ";" & Cursor1.GetString("F2"))
Next
index = sv.SetItems(MyList)
Else
sv.SetIndex(index)
End If