Sub Process_Globals
Dim sqlCM As SQL
Dim x As Cursor
End Sub
En otra rutina por ejemplo. Table1 es una clase que me descargué del foro.
If sqlCM.IsInitialized=False Then sqlCM.Initialize(File.DirInternal,"CM.db",True)
x = sqlCM.ExecQuery("SELECT * FROM CM where NAME like '%"&ECM.Text&"%'")
If x.RowCount>0 Then
Table1.Initialize(Me, "Table1", 5)
Table1.AddToActivity(Activity,0,0,100%x,100%y)
Table1.SetHeader(Array As String("ID", "Código", "Situación", "Latitud","Longitud"))
End If
Table1.SetColumnsWidths(Array As Int(40dip, 70dip,350dip, 100dip,100dip))
For i = 0 To x.RowCount-1
x.Position=i
Table1.AddRow(Array As String(x.GetInt2(0),x.GetString2(1),x.GetString2(2),x.GetDouble2(3),x.GetDouble2(4)))
Next