Senza alcuna polemica, ma è possibile che non funzioni un modo per inchiodare
l'esecuzione dell'app, fino a quando non mi ritorni il valore della query?
Scusate ma non frustrato dalla stupidità del problema che non riesco a risolvere.
Sub Post(sql As String,id As String) As ResumableSub
Dim text As String = URL&"sql.php"
Log("Query:"&text)
Dim j As HttpJob
j.Initialize("", Me)
j.PostString(text,"q="& sql)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
sqlResult = refresh(id,j.GetString)
End If
Log("SQLResult:"&sqlResult)
j.Release
End Sub
Sub selDevice()
Dim text As String
text = "SELECT * from users where cf = 300;"
Post(text,"uid") <----------------------------------------- Come lo fermo qui, fino a quando non ho il risultato?
uid = populateU(sqlResult)
End Sub
l'esecuzione dell'app, fino a quando non mi ritorni il valore della query?
Scusate ma non frustrato dalla stupidità del problema che non riesco a risolvere.
Sub Post(sql As String,id As String) As ResumableSub
Dim text As String = URL&"sql.php"
Log("Query:"&text)
Dim j As HttpJob
j.Initialize("", Me)
j.PostString(text,"q="& sql)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
sqlResult = refresh(id,j.GetString)
End If
Log("SQLResult:"&sqlResult)
j.Release
End Sub
Sub selDevice()
Dim text As String
text = "SELECT * from users where cf = 300;"
Post(text,"uid") <----------------------------------------- Come lo fermo qui, fino a quando non ho il risultato?
uid = populateU(sqlResult)
End Sub