ResultSet1 = SQL1.ExecQuery2(Query, Array As String (testo))
Do While ResultSet1.NextRow
Dim s As B4XView = xui.CreatePanel("")
s.SetLayoutAnimated(0, 0, 0, prenotazioni.AsView.Width, 30dip)
s.LoadLayout("item")
label1.Text= ResultSet1.GetString("nome")
label2.Text= ResultSet1.GetString("data")
label3.Text= ResultSet1.GetString("orario")
label4.Text= ResultSet1.GetString("tipo")
label5.Text= ResultSet1.GetString("tempo")
label6.Text= ResultSet1.GetString("dana")
prenotazioni.Add(s, Null)
Loop
ResultSet1.Close