'filo simulato
Sub simulatedThread(db As SQL, id As String)
Dim SenderFilter As Object = db.ExecQueryAsync("SQL", "SELECT menuName FROM menu WHERE id = ?", id)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
If Success Then
Dim i As Int
Do While rs.NextRow
i = i + 1
'risultati trovati
Log($"Result for #${i} for ${id} = ${rs.GetString(0)}"$)
Loop
If i = 0 Then
'nessun risultato trovato
Log($"No results found for ${id}"$)
End If
rs.Close
Else
Log(LastException)
End If
End Sub