Public Sub Find(Key As String) As Map
Dim ResultSet1 As ResultSet = SQL1.ExecQuery2("SELECT * FROM Tabela WHERE key LIKE ? ORDER BY value ASC", Array As String(Key))
Dim Map1 As Map
Map1.Initialize
Do While ResultSet1.NextRow
Map1.put(ResultSet1.GetString2(0),ResultSet1.GetString2(1))
Loop
Return Map1
End Sub
B4X:
Dim Map1 As Map
Map1.Initialize
Map1=PreferenceManager1.Find("LI%")
For Each KY As String In Map1.Keys
Log(KY)
Next