'=== QueryResult
Sub Activity_Create(FirstTime As Boolean)
Dim t As String ="datautm"
Dim tl As String ="pc4"
Activity.LoadLayout("main")
db.Initialize("MySQL",ipku,"dikha","dikha","database",True,True)
db.QueryASync("select * from "&t&" LIMIT 0,100;",t)
db.QueryASync("select * from "&tl&" LIMIT 0,100;",tl)
End Sub
Sub MySQL_QueryResult(data As List, meta As Map)
Dim m As Map = meta
listview1.Clear
listview2.Clear
For x=0 To data.Size-1
If m.Get("TaskID") = "pc4" Then
Dim cur As Map = data.Get(x)
listview2.AddTwoLines(cur.Get("JDL_LAGU"),cur.Get("PENYANYI"))
End If
Next
For i=0 To data.Size-1
If m.Get("TaskID") = "datautm" Then
Dim cur As Map = data.Get(i)
listview1.AddTwoLines(cur.Get("JDL_LAGU")&" .::. "&cur.Get("PENYANYI"),cur.Get("SPATH"))
End If
Next
End Sub