CLVStato.Clear
dbCursor = dbSQL.ExecQuery("SELECT * FROM tbmsg")
Do While dbCursor.NextRow
Dim s As Int
s = dbCursor.GetString("id")
CLVStato.Add(CreatePanelItem(dbCursor.GetString("msg"), CLVStato.AsView.Width, 60dip),s)
Loop
dbCursor.Close
'UPDATE AL CLICK
Private Sub CLVStato_ItemClick (Index As Int, Value As Object)
Log(Value)
Log(Index)
Log("Aggiornato")
dbSQL.ExecNonQuery2($"UPDATE tbmsg SET led =?,modo =? WHERE id =?"$, Array("Verde","Abilitato", Value))
LeggiDB'--->sub
End Sub