Sub PlayButton_Action
ExecuteRemoteQuery("SELECT * FROM xxxxxxx WHERE ID_PC ='" & param1.text & "'",Listado)
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://www.xxxxx.com.ar/xxxx/xxxxx.php", Query)
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
Dim tmpNum As String
Dim tmp As String
res = Job.GetString'("UTF8")
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case Listado
Dim COUNTRIES As List
COUNTRIES = parser.NextArray
Dim m As Map
m = COUNTRIES.Get(0)
lbID.text = m.GET("ID_PC")
lbNombre.text = m.GET("NOMBRE_PC")
lbUsuario.text = m.Get("USUARIO")
'
lbFecha.text = m.GET("FECHA")
lbVersion.text = m.Get("VERSION")
lbMail.text = m.GET("MAIL")
lbRegistrado.text=m.Get("REGISTRADO")
lbUsos.Text =m.Get("USOS")
End Select
SaveStringExample
Else
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub