Sub Process_Globals
Dim SQL1 As SQL
Dim myCur As ResultSet
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
File.Copy(File.DirAssets,"myData.db",File.DirInternal,"myData.db")
SQL1.Initialize(File.DirInternal,"myData.db",False)
myCur = SQL1.ExecQuery("SELECT * from History")
Log("1 ColumnName(0) = " & myCur.GetColumnName(0))
ChangeCursor(myCur)
Log("2 ColumnName(0) = " & myCur.GetColumnName(0))
End Sub
Sub ChangeCursor(TempCur As ResultSet)
TempCur = SQL1.ExecQuery("SELECT * from Stock")
Log("3 ColumnName(0) = " & TempCur.GetColumnName(0))
End Sub