Crear una tabla

[magarcan]

Hola! Estoy creando una aplicación que muestra datos mediante una tabla. El caso es que he visto algunos ejemplos en ingés, pero no me aclaro.



¿Alguien puede echarme una mano? ¡Gracias!

[samperizal]

Saludos.
Este codigo lee de una tabla un registro y actualiza los campor de una pantalla.
Espero que te sirva.


Sub Process_Globals
Dim SQL As SQL
Dim str_sql As String
End Sub

Sub Globals
Dim Edit_Text_Correo As EditText
Dim Edit_Text_sms As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
'define el cursor
Dim c As Cursor

Activity.LoadLayout("ConfigSalida")

Activity.Title = "Configurar Destinos"
If SQL.IsInitialized Then SQL.Close
Try
'inicializa la conexion
SQL.Initialize(main.DBFilePath, DBFileName,False)
'contruye el selec
str_sql = "Select * from ConfigDestino"
c = SQL.ExecQuery(str_sql)
' si no se encontraron registros
If c.RowCount = 0 Then
Edit_Text_Correo.Text = "info@j"
Edit_Text_sms.Text = "+180978787878"
Else
'primera posicion
c.Position = 0
'lee el campo correo y actualiza el label
Edit_Text_Correo.Text = c.GetString("Correo")
'lee el campo sms y actualiza el label
Edit_Text_sms.Text = c.GetString("Sms")
End If

Catch
ToastMessageShow("Error al hacer la consulta " & str_sql, True)
Activity.Finish
End Try
SQL.Close
c.Close

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyPress(KeyCode As Int) As Boolean
Dim Answ As Int

Select KeyCode
Case KeyCodes.KEYCODE_BACK
Answ = Msgbox2("Quiere Salir de Configurar Cuentas ?", "A T E N C I O N", "Si", "", "No", Null)
If Answ = DialogResponse.POSITIVE Then
Return False
Else
Return True
End If
End Select
End Sub

Sub Button_Cancelar_Click
Activity.Finish
End Sub
Sub Button_Aceptar_Click

End Sub