Accessing Data Base

Sub Process_Globals

   Dim SQL1 As SQL 

End Sub

Sub Globals

   Dim EditText1 As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)

   EditText1.Initialize("EditText1")

   Activity.AddView(EditText1, 0, 0, 100%X, 100%Y)

   If File.Exists(File.DirInternal, "allbasicdata.sl3") = False Then
      File.Copy(File.DirAssets, "allbasicdata.sl3", File.DirInternal, "allbasicdata.sl3")
   End If

   SQL1.Initialize(File.DirInternal, "allbasicdata.sl3", False)

   Dim Cursor1 As Cursor
   
   Cursor1 = SQL1.ExecQuery("Select * From CREW")
   
   Dim RowCounter As Int
   Dim ColCounter As Int
   
   Dim SB As StringBuilder

   SB.Initialize
   
   For RowCounter = 0 To Cursor1.RowCount - 1
   
      Cursor1.Position = RowCounter

      For ColCounter = 0 To Cursor1.ColumnCount - 1
   
         SB.Append(Cursor1.GetColumnName(ColCounter)).Append(": ").Append(Cursor1.GetString2(ColCounter)).Append(CRLF)
         
      Next
   
      SB.Append(CRLF)
      
   Next

   EditText1.Text = SB.ToString

End Sub