Sub btnActualizarCliente_Click
Dim actaulizarClienteJob As HttpJob
Dim Consulta As String
actaulizarClienteJob.Initialize("actaulizarClienteJob",Me)
s.ExecNonQuery("DELETE FROM Cliente")
Consulta="SELECT * FROM CLIENTE"
actaulizarClienteJob.PostString("http://111.111.1.11/sincronizar.php, Consulta)
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
res = Job.GetString
If res.StartsWith("{") Or res.StartsWith("[") Then
Log("Back from Job:" & Job.JobName )
Log("Job Text: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case "GetResultado"
Dim ListaDatos As List
ListaDatos = parser.NextArray 'returns a list with maps
If ListaDatos.Size == 0 Then
'Algun mensaje.
Else
s.BeginTransaction
s.ExecNonQuery("DELETE FROM Cliente")
For i = 0 To ListaDatos.Size - 1
Dim Datos As Map
Datos = ListaDatos.Get(i)
s.ExecNonQuery2("INSERT INTO Cliente VALUES(?,?,?,?,?)", Array As String(Datos.Get("id"), Datos.Get("nombre"), Datos.Get("tipo"), Datos.Get("estado"), Datos.Get("fecha")))
Next
'ToastMessageShow("TablaSQLITE sincronizadas", False)
s.TransactionSuccessful
s.EndTransaction
End If
End Select
Else
'alguna condicion
End If
Else
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub