Sostituisci con questi
Nota: ho solo copiato il tuo codice sistemando gli errori sintattici ma essendomi servito solo dell'editor del forum non è che sia necessariamente funzionante senza qualche altro ritocco (magari ci sono due statement sulla stesas riga, non so; comunque l'editor te lo segnala e li sistemi facilmente).
Nota2: se fallisce la INSERT pubblica il risulatato di Log(query); è lì che si vede cosa viene passato al PHP
Nota3: se commentando la query derivata dai campi ne inserisci una di prova con valori di test e neanche quella funziona, allora hai un problema nel PHP
B4X:
Sub Fetchinserimento
Dim scassaobanca As String
Dim query AsString
If RadioButton1.Checked = True Then
scassaobanca = "cassa"
Else
scassaobanca ="banca"
End If
entrata = "entrata"
'query di test
'query=$"INSERT INTO librocontabile (data,descrizione,cassabanca,entratauscita,categoria,euro) 'VALUES ('2017-03-21','una descrizione','cassa','entrata','Utenze','123.45');"$
'query da form
query=$"INSERT INTO librocontabile (data,descrizione,cassabanca,entratauscita,categoria,euro) VALUES ('${EditText7.text}','${EditText8.text}','${scassaobanca}','${entrata}','${Spinner3.GetItem}','${EditText9.text}');"$
Log(query)
ExecuteRemoteQuery(query,"inserisci")
End Sub
Sub JobDone(Job AsHttpJob)
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 = 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 = 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
Case "inserisci"
End Select
Else
Log(Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End SubNota: ho solo copiato il tuo codice sistemando gli errori sintattici ma essendomi servito solo dell'editor del forum non è che sia necessariamente funzionante senza qualche altro ritocco (magari ci sono due statement sulla stesas riga, non so; comunque l'editor te lo segnala e li sistemi facilmente).
Nota2: se fallisce la INSERT pubblica il risulatato di Log(query); è lì che si vede cosa viene passato al PHP
Nota3: se commentando la query derivata dai campi ne inserisci una di prova con valori di test e neanche quella funziona, allora hai un problema nel PHP
, non ti sei accorto che alla fine, dove hai 