[chargeable] MSMySQL - Yet another MySQL-Library (but a FAST one :-))

[DonManfred]

You have mail. Thank you for you donation ;-)

 

[taufik adi sanjaya]

Hi Don,

Did you already send an email ? because i not yet receiving on my email : avktech@yahoo.com

Thanks a lot

 

[DonManfred]

Did you already send an email

 

[taufik adi sanjaya]

Thank's you Don, i will keep this Librabry (y)... I already got it's

 

[taufik adi sanjaya]

Northwind database mysql with 1108 record

Sub lv1_ItemClick (Position As Int, Value As Object)
Dim t As String = Value
db.QueryASync("select * from "&t&";",t)
End Sub

How to limit command ???
db.QueryASync("select * from "&t&"limit 100;",t) <--- Error

 

[MarcoRome]

Northwind database mysql with 1108 record

Sub lv1_ItemClick (Position As Int, Value As Object)
Dim t As String = Value
db.QueryASync("select * from "&t&";",t)
End Sub

How to limit command ???
db.QueryASync("select * from "&t&"limit 100;",t) <--- Error

select * from "&t&"limit 100;",t

Maybe forget SPACE between "&t&" and limit

 

[taufik adi sanjaya]

It's working, but how to retrieve next 100 record. I mean 101 - 200
or it's posiblle to make pagination ???

 

[DonManfred]

You should start with limit 0,100 (starting at 0, 100 items (0-99))
Next you should use Limit 100,100 (starting at 101, 100 items)

 

[taufik adi sanjaya]

It's great library

 

[taufik adi sanjaya]

I was changed Listview_click with button1_click and define dim....

No error but data can't show in listview, what's wrong with my code ??

Sub Button1_Click
'Dim m As Map
Dim data As List
Dim t As String ="koneksi"

data.Initialize

db.QueryASync("select * from "&t&";",t)

For i=0 To data.Size-1
Dim cur As Map = data.Get(i)
lv2.AddTwoLines(cur.Get("PC")&CRLF&cur.Get("NAMAROOM"),cur.Get("STATUSK")&CRLF&cur.Get("NAMA"))
Next

End Sub

 

[DonManfred]

Please use code tags when posting code!

 

[DonManfred]

No error but data can't show in listview

Because you are doing it the wrong way!?

db.QueryASync("select * from "&t&";",t)

After calling this you need to wait for the result event get raised. In THIS event-sub you then need to use the values you get from the database.

 

[taufik adi sanjaya]

It's mean, we must using

Sub MySQL_QueryResult(data As List, meta As Map)
       For i=0 To data.Size-1
        Dim cur As Map = data.Get(i)                   
        lv2.AddTwoLines(cur.Get("PC")&CRLF&cur.Get("NAMAROOM"),cur.Get("STATUSK")&CRLF&cur.Get("NAMA"))       
Next
End Sub

Can't direct on Button1_click ???

 

[DonManfred]

Can't direct on Button1_click ???

No! This is how android works. You can not hold the mainthread.

 

[DonManfred]

Query and QueryAsync are two different types. The later is the correct use. I removed Query from the old library. Query blocks the mainthread.
If you device has slow connection and fetching a lot of data. Android may decide to kill your app.
In production Android may decide to block your app in Appstore. Be careful.

Use Async methods.

 

[taufik adi sanjaya]

Ok, i will try soon... i hope you never boring to reply my question... thank a lot

 

[taufik adi sanjaya]

Hi Don,

How to open 2 table together ? 1 table on listview1 and 1 table on listview2 ??

 

[DonManfred]

How to open 2 table together ?

Starting two queries. In the result sub for the first you fill listbox1, in result for the second you fill Listbox2
Use the task parameter to distinguish different queries in the resultsub.

 

[taufik adi sanjaya]

Thank's Don,

How to get result from QueryResult2 ??? I have error to get it...

Sub MySQL_QueryResult(data As List, meta As Map)
    Dim m As Map = meta
   
    lvlagu.Clear
   
    For i=0 To data.Size-1
        If m.Get("TaskID") = "datautm" Then
            Dim cur As Map = data.Get(i)                   
            lvlagu.AddTwoLines(cur.Get("JDL_LAGU")&" - "&cur.Get("PENYANYI"),cur.Get("SPATH"))
        End If
End Sub

Sub MySQL_QueryResult2(data As List, meta As Map)
    Dim m As Map = meta

    lvlist.Clear
   
    For i=0 To data.Size-1
        Log(data.Get(i))
        If m.Get("TaskID") = "pc4" Then
            Dim cur As Map = data.Get(i)                   
            lvlist.AddTwoLines(cur.Get("JDL_LAGU"),cur.Get("PENYANYI"))
        End If
    Next
End Sub

Best regards,

 

[DonManfred]

What is the output of

Log(data.Get(i))

What is the error you get?