B4A - Memuat Database ke Dalam Spinner

1. Buatlah sebuah Project baru
2. Buatlah satu Layout dan simpan dengan nama Main
3. Dalam Layout tersebut, tambahkan 1 Spinner
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 kedalam Main

Sub Process_Globals
Dim SQL As SQL
End Sub

Sub Globals
Dim Cursor As Cursor
Dim EditText1 As EditText
Dim Spinner1 As Spinner
Dim Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
Spinner1.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
Spinner1.Add(Cursor.GetString("Input"))
Next
End Sub

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