B4A - Mengurutkan Database ke Dalam ListView

1. Buatlah sebuah Project baru
2. Buatlah satu Layout dan simpan dengan nama Main
3. Dalam Layout tersebut, tambahkan 1 ListView dan 2 Button
4. Buatlah sebuat database SQL baru dengan nama Spinner.db
5. Buatlah sebuah kolom dengan nama Input
6. Isi Input dengan nama Sulawesi, Sumatera, Jawa, Kalimantan dan Papua
6. Ketik kode berikut ke dalam Main

Sub Process_Globals
Dim SQL As SQL
End Sub

Sub Globals
Dim Cursor As Cursor
Dim ListView1 As ListView
Dim Button1, Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")

ListView1.Clear
SQL.Initialize(File.DirRootExternal, "Spinner.db", False)
Cursor = SQL.ExecQuery("SELECT Input FROM tblSpinner")
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
ListView1.AddSingleLine(Cursor.GetString("Input"))
Next
End Sub

Sub ListASC
ListView1.Clear
Cursor = SQL.ExecQuery("SELECT Input FROM tblSpinner ORDER BY Input ASC")
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
ListView1.AddSingleLine(Cursor.GetString("Input"))
Next
End Sub

Sub ListDESC
ListView1.Clear
Cursor = SQL.ExecQuery("SELECT Input FROM tblSpinner ORDER BY Input DESC")
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
ListView1.AddSingleLine(Cursor.GetString("Input"))
Next
End Sub

Sub Button1_Click
ListASC
End Sub

Sub Button2_Click
ListDESC
End Sub

4. Jalankan aplikasinya atau tekan F5 di keyboard
5. Berikut adalah hasilnya