ho questo:
Sub
Fetchinserimento
Dim scassaobanca As String
If RadioButton1.Checked = True Then
scassaobanca = "cassa"
Else
scassaobanca ="banca"
End If
entrata =""
entrata = "entrata"
ExecuteRemoteQuery("INSERT INTO librocontabile (data,descrizione,cassabanca,entratauscita,categoria,euro) VALUES ('" & EditText7.text & "','" & EditText8.text & "', '" & scassaobanca & "', '" & entrata & "','" & Spinner3.GetItem & "', " & EditText9.text & ")", JobDone)
End Sub
e poi ho il job
Sub
ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("
https://www.xxxxx.com/gestionale/executing.php", Query)
End Sub
Sub
JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case entrate
Dim COUNTRIES As List
COUNTRIES = parser.NextArray
For i = 0 To COUNTRIES.Size - 1
Dim m As Map
m = COUNTRIES.Get(i)
Dim tl As TwoLines
tl.First = m.Get("data")
tl.Second = m.Get("euro")
ListView1.AddTwoLines2(tl.First, tl.Second, tl)
Next
Case uscite
Dim COUNTRIES As List
COUNTRIES = parser.NextArray
For i = 0 To COUNTRIES.Size - 1
Dim m As Map
m = COUNTRIES.Get(i)
Dim tl As TwoLines
tl.First = m.Get("data")
tl.Second = m.Get("euro")
ListView2.AddTwoLines2(tl.First, tl.Second, tl)
Next
End Select
Else
Log(Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub