Sub Activity_Create(FirstTime As Boolean)
If Not(File.Exists(File.DirInternal, Starter.DBFileName))Then
File.Copy(File.DirAssets, Starter.DBFileName, File.DirInternal,Starter.DBFileName)
End If
If FirstTime Then
Starter.SQL.Initialize(File.DirInternal,Starter.DBFileName,False)
End If
End Sub
Sub Activity_Resume
DisplayData
End Sub
Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
Starter.SQL.Close
Activity.Finish
End If
End Sub
Sub DisplayData
Dim strQuery As String = "SELECT name, fiber FROM code WHERE name IN('Name-1', 'Name-2')"
Dim rs As ResultSet
rs=Starter.SQL.ExecQuery(strQuery)
Do While rs.NextRow
Log($"${rs.GetString("name")} ${TAB} ${rs.GetString("fiber")}"$)
Loop
End Sub