ERROR Result
I already do that's and the log result on attachment, how to show on listview2
Listview2 must be show with JDL_LAGU and PENYANYI also like Listview1
Last edited:
'=== 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
Sub MySQL_QueryResult(data As List, meta As Map)
If meta.Get("TaskID") = "datautm" Then
ListView1.Clear
For i=0 To data.Size-1
Dim cur As Map = data.Get(i)
ListView1.AddTwoLines(cur.Get("JDL_LAGU")&" .::. "&cur.Get("PENYANYI"),cur.Get("SPATH"))
Next
End If
If meta.Get("TaskID") = "pc4" Then
ListView2.Clear
For x=0 To data.Size-1
Dim cur As Map = data.Get(x)
ListView2.AddTwoLines(cur.Get("JDL_LAGU"),cur.Get("PENYANYI"))
Next
End If
End Sub
i already posted the way to handle two different queries to fill two listboxes. #446Did you still no idea about my question
You need to build this master detail by yourself.Hi Mohammad, i hope you trying on two table...like master and detail