Membuat Aplikasi CRUD dengan Basic4Android

Chairruddin Arrasid | 27/04/2015 | Basic4Android | 62 Comments

Setiap aplikasi baik yang berbasis desktop, web, maupun mobile biasanya terdapat yang namanya CRUD di dalamnya. CRUD ini sendiri merupakan akronim dari Create, Read, Update, dan Delete. Lalu apa fungsi CRUD ini? Tak lain tak bukan adalah sebagai proses untuk memanipulasi data di dalam database melalui Interface aplikasinya. Silakan persiapkan database mylogin, yang pada postingan sebelumnya sudah dibuat. Tambahkan satu tabel lagi dengan nama: barang. Dengan field-field berikut:

Jika masih bingung bagaimana cara menambahkan tabel di database SQLite, Anda bisa lihat ini:

Cara Mudah Membuat Database SQLite

Oke, kita mulai sekarang…

Buka project MyLogin.
Lalu tambahkan dua activity baru dengan nama: BarangList dan BarangView.

Membuat Multi Activity di Basic4Android

Buka activity Main, lalu pada Sub Process_Globals buat deklarasi baru untuk nama tabel barang. Maka nanti akan seperti code di bawah ini:

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	
	'Deklarasikan variabel object SQL-nya (ini berasal dari Library SQL).
	Dim SQL As SQL
	'Tentukan dimana letak database disimpan, 
	'Yaitu di root SD Card/Android/data/folder package project/files.
	Dim DBDir As String : DBDir = File.DirDefaultExternal
	'Tentukan nama database yang akan digunakan di project ini.
	Dim DBName As String : DBName = "mylogin.db"
	'Tentukan nama tabel yang akan digunakan di project ini.
	Dim UserTable As String = "user"
	Dim BarangTable As String = "barang"
End Sub

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

'Deklarasikan variabel object SQL-nya (ini berasal dari Library SQL).

Dim SQL As SQL

'Tentukan dimana letak database disimpan,

'Yaitu di root SD Card/Android/data/folder package project/files.

Dim DBDir As String : DBDir = File.DirDefaultExternal

'Tentukan nama database yang akan digunakan di project ini.

Dim DBName As String : DBName = "mylogin.db"

'Tentukan nama tabel yang akan digunakan di project ini.

Dim UserTable As String = "user"

Dim BarangTable As String = "barang"

End Sub

Buka activity Menu, buat layout baru dengan nama: menu. Lalu tambahkan satu buah Button. Dan setting properties-nya seperti gambar berikut:
Deklarasikan Button-nya. Dan tambahkan event Click untuk Button ini. Lalu pada fungsi BtnBarang_Click tambahkan code: StartActivity(BarangList).

Membuat Aplikasi Android Pertama dengan Basic4Android

Maka pada activity Menu akan ada tambahan code-code seperti ini:

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim BtnBarang As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("menu")
	
	'Set judul untuk activity ini
	Activity.Title = "Menu"
End Sub

Sub BtnBarang_Click
	StartActivity(BarangList)
End Sub

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Dim BtnBarang As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("menu")

'Set judul untuk activity ini

Activity.Title = "Menu"

End Sub

Sub BtnBarang_Click

StartActivity(BarangList)

End Sub

Beralih ke activity BarangList. Pada Sub Globals masukkan code-code berikut:

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	'ListView untuk menampilkan daftar barang
	Dim LvBarang As ListView
	'Button untuk membuat barang baru
	Dim BtnCreate As Button
End Sub

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

'ListView untuk menampilkan daftar barang

Dim LvBarang As ListView

'Button untuk membuat barang baru

Dim BtnCreate As Button

End Sub

Pada event Activity_Create masukkan code-code seperti di bawah ini:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	
	'Set judul untuk activity ini.
	Activity.Title = "List Barang"
	'Initialize ListView-nya.
	LvBarang.Initialize("LvBarang")
	'Initialize Button-nya.
	BtnCreate.Initialize("BtnCreate")
	'Set text untuk Button.
	BtnCreate.Text = "Create Barang"
	'Tampilkan ListView di activity ini.
	Activity.AddView(LvBarang, 0,0,100%x,85%y)
	'Tampilkan Button di activity ini.
	Activity.AddView(BtnCreate, 0,85%y,100%x,15%y)
End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

'Activity.LoadLayout("Layout1")

'Set judul untuk activity ini.

Activity.Title = "List Barang"

'Initialize ListView-nya.

LvBarang.Initialize("LvBarang")

'Initialize Button-nya.

BtnCreate.Initialize("BtnCreate")

'Set text untuk Button.

BtnCreate.Text = "Create Barang"

'Tampilkan ListView di activity ini.

Activity.AddView(LvBarang, 0,0,100%x,85%y)

'Tampilkan Button di activity ini.

Activity.AddView(BtnCreate, 0,85%y,100%x,15%y)

End Sub

Buat fungsi baru dengan nama FillLvBarang.

Sub FillLvBarang
	'Pilih semua barang yang ada di database untuk ditampilkan di ListView.
	Dim query As String
	query = " SELECT kode, nama, id FROM " & Main.BarangTable
	DBUtils.ExecuteListView(Main.SQL, query, Null, 0, LvBarang, True)
End Sub

Sub FillLvBarang

'Pilih semua barang yang ada di database untuk ditampilkan di ListView.

Dim query As String

query = " SELECT kode, nama, id FROM " & Main.BarangTable

DBUtils.ExecuteListView(Main.SQL, query, Null, 0, LvBarang, True)

End Sub

Lalu buat fungsi baru lagi untuk event Click pada Button dengan nama BtnCreate_Click.

Sub BtnCreate_Click
	'Saat Button Create diklik, maka bukan BarangView
	'Dan set ID menjadi -1
	BarangView.ID = -1
	StartActivity(BarangView)
End Sub

Sub BtnCreate_Click

'Saat Button Create diklik, maka bukan BarangView

'Dan set ID menjadi -1

BarangView.ID = -1

StartActivity(BarangView)

End Sub

Ada satu fungsi event lagi yang harus dibuat. Yaitu event Click pada ListView. Oke, silakan dibuat seperti code berikut ini:

Sub LvBarang_ItemClick (Position As Int, Value As Object)
	Dim v(2) As String = Value
	'Saat ListView diklik, set ID di BarangView dengan ID barang yg diklik/dipilih.
	'Dari mana v(2) ini? yaitu dari array index ke 2, dari query sql yg ada di fungsi FillLvBarang.
	'v(0)=kode, v(1)=nama, v(2)=id.
	BarangView.ID = v(2)
	StartActivity(BarangView)	
End Sub

Sub LvBarang_ItemClick (Position As Int, Value As Object)

Dim v(2) As String = Value

'Saat ListView diklik, set ID di BarangView dengan ID barang yg diklik/dipilih.

'Dari mana v(2) ini? yaitu dari array index ke 2, dari query sql yg ada di fungsi FillLvBarang.

'v(0)=kode, v(1)=nama, v(2)=id.

BarangView.ID = v(2)

StartActivity(BarangView)

End Sub

Panggil fungsi FillLvBarang pada event Activity_Resume.

Sub Activity_Resume
	'Refresh data
	FillLvBarang
End Sub

Sub Activity_Resume

'Refresh data

FillLvBarang

End Sub

Kemudian beralih ke activity BarangView. Pada Sub Process_Globals buat variabel baru dengan nama ID.

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	
	'Variabel ID untuk menampung ID barang.
	Dim ID As Int
End Sub

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

'Variabel ID untuk menampung ID barang.

Dim ID As Int

End Sub

Buat object-object seperti Panel, Label, EditText dan Button, deklarasikan semua object tersebut di Sub Globals.

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	Dim PnlBarang As Panel
	
	Dim LblKode As Label
	Dim LblNama As Label
	Dim LblKeterangan As Label
	
	Dim EdtKode As EditText
	Dim EdtNama As EditText
	Dim EdtKeterangan As EditText
	
	Dim BtnSave As Button
	Dim BtnDelete As Button
End Sub

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Dim PnlBarang As Panel

Dim LblKode As Label

Dim LblNama As Label

Dim LblKeterangan As Label

Dim EdtKode As EditText

Dim EdtNama As EditText

Dim EdtKeterangan As EditText

Dim BtnSave As Button

Dim BtnDelete As Button

End Sub

Pada event Activity_Create masukkan beberapa fungsi yang nanti akan digunakan dalam activity ini. Lengkapnya bisa dilihat code-code berikut ini:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	
	Activity.Title = "Create Barang"
	
	'Fungsi untuk initialize object-object yang ada.
	InitObject
	'Fungsi untuk set label pada object-object yang ada.
	SetLabel
	'Fungsi untuk load data barang di databse
	LoadBarang
	'Fungsi untuk menampilkan object-object di activity ini.
	SetObjectView
End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

'Activity.LoadLayout("Layout1")

Activity.Title = "Create Barang"

'Fungsi untuk initialize object-object yang ada.

InitObject

'Fungsi untuk set label pada object-object yang ada.

SetLabel

'Fungsi untuk load data barang di databse

LoadBarang

'Fungsi untuk menampilkan object-object di activity ini.

SetObjectView

End Sub

Semua fungsi yang dipanggil di atas pasti akan berwarna merah, karena fungsi-fungsi tersebut belum pernah dibuat. Maka dari itu buatlah fungsi-fungsi baru seperti berikut:

Sub InitObject
	LblKode.Initialize("")
	LblNama.Initialize("")
	LblKeterangan.Initialize("")

	EdtKode.Initialize("EdtKode")
	EdtNama.Initialize("EdtNama")
	EdtKeterangan.Initialize("EdtKeterangan")

	BtnSave.Initialize("BtnSave")
	BtnDelete.Initialize("BtnDelete")
	
	PnlBarang.Initialize("PnlBarang")
End Sub

Sub SetLabel
	LblKode.Text = "Kode"
	LblNama.Text = "Nama"
	LblKeterangan.Text = "Keterangan"
	
	'Disable kode, karena ini akan terisi otomatis.
	EdtKode.Enabled = False
	
	'Jika create barang baru, Button-nya beri nama: Save. Dan disable Button delete.
	'Selain itu, Button-nya beri nama: Update. Dan enable Button delete.
	If ID = -1 Then
		BtnSave.Text = "Save"
		BtnDelete.Enabled = False
	Else
		BtnSave.Text = "Update"
		BtnDelete.Text = True
	End If
	BtnDelete.Text = "Delete"
End Sub

Sub LoadBarang
	'Pilih barang sesuai dengan ID barang yang dipilih.
	Dim query As String
	query = " SELECT * FROM " & Main.BarangTable & " WHERE id = ?"

	Dim m As Map
	m = DBUtils.ExecuteMap(Main.SQL, query, Array As String(ID))
	'Jika data tidak ditemukan, dan jika ID = -1 maka create barang.
	If m.IsInitialized = False Then	
		If ID = -1 Then
			Dim kode As String = GenerateKode
			EdtKode.Text = kode
			EdtNama.Text = ""
			EdtKeterangan.Text = ""
		End If
	'Jika data ditemukan, maka isi EditText yang ada dengan data-data tsb.
	Else		
		If m.Get("kode") <> Null Then
		    EdtKode.Text = m.Get("kode")
		End If
		
		If m.Get("nama") <> Null Then 
			Activity.Title = "View: " & m.Get("nama")
		    EdtNama.Text = m.Get("nama")
		End If
		
		If m.Get("keterangan") <> Null Then
		    EdtKeterangan.Text = m.Get("keterangan")
		End If
	End If
End Sub

Sub SetObjectView	
	Dim ctop As Int = 20dip
	Dim labelHeight As Int = 30dip
	Dim textHeight As Int = 40dip
	
	'Taruh Label dan EditText di Panel.
	PnlBarang.AddView(LblKode, 20dip, ctop, 100%x-40dip, 30dip) : ctop = ctop + labelHeight
	PnlBarang.AddView(EdtKode, 20dip, ctop, 100%x-40dip, 40dip) : ctop = ctop + textHeight	

	PnlBarang.AddView(LblNama, 20dip, ctop, 100%x-40dip, 30dip) : ctop = ctop + labelHeight
	PnlBarang.AddView(EdtNama, 20dip, ctop, 100%x-40dip, 40dip) : ctop = ctop + textHeight
	
	PnlBarang.AddView(LblKeterangan, 20dip, ctop, 100%x-40dip, 30dip) : ctop = ctop + labelHeight
	PnlBarang.AddView(EdtKeterangan, 20dip, ctop, 100%x-40dip, 40dip) : ctop = ctop + textHeight
	
	'Taruh Panel dan Button di activity.	
	Activity.AddView(PnlBarang, 0,0,100%x, 85%y)
	Activity.AddView(BtnSave, 0, 85%y, 50%x, 15%y)
	Activity.AddView(BtnDelete, 50%x, 85%y, 50%x, 15%y)	
End Sub

Sub InitObject

LblKode.Initialize("")

LblNama.Initialize("")

LblKeterangan.Initialize("")

EdtKode.Initialize("EdtKode")

EdtNama.Initialize("EdtNama")

EdtKeterangan.Initialize("EdtKeterangan")

BtnSave.Initialize("BtnSave")

BtnDelete.Initialize("BtnDelete")

PnlBarang.Initialize("PnlBarang")

End Sub

Sub SetLabel

LblKode.Text = "Kode"

LblNama.Text = "Nama"

LblKeterangan.Text = "Keterangan"

'Disable kode, karena ini akan terisi otomatis.

EdtKode.Enabled = False

'Jika create barang baru, Button-nya beri nama: Save. Dan disable Button delete.

'Selain itu, Button-nya beri nama: Update. Dan enable Button delete.

If ID = -1 Then

BtnSave.Text = "Save"

BtnDelete.Enabled = False

Else

BtnSave.Text = "Update"

BtnDelete.Text = True

End If

BtnDelete.Text = "Delete"

End Sub

Sub LoadBarang

'Pilih barang sesuai dengan ID barang yang dipilih.

Dim query As String

query = " SELECT * FROM " & Main.BarangTable & " WHERE id = ?"

Dim m As Map

m = DBUtils.ExecuteMap(Main.SQL, query, Array As String(ID))

'Jika data tidak ditemukan, dan jika ID = -1 maka create barang.

If m.IsInitialized = False Then

If ID = -1 Then

Dim kode As String = GenerateKode

EdtKode.Text = kode

EdtNama.Text = ""

EdtKeterangan.Text = ""

End If

'Jika data ditemukan, maka isi EditText yang ada dengan data-data tsb.

Else

If m.Get("kode") <> Null Then

EdtKode.Text = m.Get("kode")

End If

If m.Get("nama") <> Null Then

Activity.Title = "View: " & m.Get("nama")

EdtNama.Text = m.Get("nama")

End If

If m.Get("keterangan") <> Null Then

EdtKeterangan.Text = m.Get("keterangan")

End If

End Sub

Sub SetObjectView

Dim ctop As Int = 20dip

Dim labelHeight As Int = 30dip

Dim textHeight As Int = 40dip

'Taruh Label dan EditText di Panel.

PnlBarang.AddView(LblKode, 20dip, ctop, 100%x-40dip, 30dip) : ctop = ctop + labelHeight

PnlBarang.AddView(EdtKode, 20dip, ctop, 100%x-40dip, 40dip) : ctop = ctop + textHeight

PnlBarang.AddView(LblNama, 20dip, ctop, 100%x-40dip, 30dip) : ctop = ctop + labelHeight

PnlBarang.AddView(EdtNama, 20dip, ctop, 100%x-40dip, 40dip) : ctop = ctop + textHeight

PnlBarang.AddView(LblKeterangan, 20dip, ctop, 100%x-40dip, 30dip) : ctop = ctop + labelHeight

PnlBarang.AddView(EdtKeterangan, 20dip, ctop, 100%x-40dip, 40dip) : ctop = ctop + textHeight

'Taruh Panel dan Button di activity.

Activity.AddView(PnlBarang, 0,0,100%x, 85%y)

Activity.AddView(BtnSave, 0, 85%y, 50%x, 15%y)

Activity.AddView(BtnDelete, 50%x, 85%y, 50%x, 15%y)

End Sub

Bisa kita lihat pada fungsi LoadBarang, di situ ada baris code yang berwarna merah, yaitu: GenerateKode. Untuk itu, sekarang buatlah fungsi ini seperti berikut:

Sub GenerateKode
	Dim q As String = "select id from " & Main.BarangTable	
	Dim qs As List = DBUtils.ExecuteMemoryTable(Main.SQL, q, Null, 0)
	
	Dim count As String = qs.Size + 1
	If count < 10 Then
		count = "000" & count
	Else If count < 100 Then
		count = "00" & count
	Else If count < 1000 Then
		count = "0" & count
	Else
		count = count
	End If
	
	Log("count: " & count)
	
	Dim kd As String = "BRG-" & count
	
	Return kd
End Sub

Sub GenerateKode

Dim q As String = "select id from " & Main.BarangTable

Dim qs As List = DBUtils.ExecuteMemoryTable(Main.SQL, q, Null, 0)

Dim count As String = qs.Size + 1

If count < 10 Then

count = "000" & count

Else If count < 100 Then

count = "00" & count

Else If count < 1000 Then

count = "0" & count

Else

count = count

End If

Log("count: " & count)

Dim kd As String = "BRG-" & count

Return kd

End Sub

Kemudian buatlah fungsi untuk meng-handle event Click dari Button save dan Button delete. Masukkan code-code di bawah ini:

Sub BtnSave_Click()
	Dim listOfMaps As List : listOfMaps.Initialize
	Dim m As Map : m.Initialize
	m.put("kode", EdtKode.Text)
	m.put("nama", EdtNama.Text)	
	m.put("keterangan", EdtKeterangan.Text)
	listOfMaps.Add(m)
	
	'Jika create baru, maka save.
	'Selain itu, maka update.
	If ID = -1 Then
		DBUtils.InsertMaps(Main.SQL, Main.BarangTable, listOfMaps)
		ToastMessageShow("Barang has been created.", True)
		'Balik lagi ke List Barang
		Activity.Finish
	Else
		Dim w As Map : w.Initialize
		w.Put("id", ID)
		DBUtils.UpdateRecord2(Main.SQL, Main.BarangTable, m, w)
		ToastMessageShow("Barang has been updated.", True)
		'Refresh data
		LoadBarang
	End If	
End Sub

Sub BtnDelete_Click()
	Dim result As Int = Msgbox2( "Apakah Anda yakin ingin menghapus barang: " & EdtNama.Text & "?", "Confirmation", "Yes", "No", "", _ 
	    LoadBitmap (File.DirAssets, "confirm.png"))	
	If result = DialogResponse.Positive Then
		Dim w As Map : w.Initialize	
		w.Put("id", ID)
		DBUtils.DeleteRecord(Main.SQL, Main.BarangTable , w)
		ToastMessageShow("Barang has been deleted.", True)
		'Balik lagi ke List Barang
		Activity.Finish
	End If
End Sub

Sub BtnSave_Click()

Dim listOfMaps As List : listOfMaps.Initialize

Dim m As Map : m.Initialize

m.put("kode", EdtKode.Text)

m.put("nama", EdtNama.Text)

m.put("keterangan", EdtKeterangan.Text)

listOfMaps.Add(m)

'Jika create baru, maka save.

'Selain itu, maka update.

If ID = -1 Then

DBUtils.InsertMaps(Main.SQL, Main.BarangTable, listOfMaps)

ToastMessageShow("Barang has been created.", True)

'Balik lagi ke List Barang

Activity.Finish

Else

Dim w As Map : w.Initialize

w.Put("id", ID)

DBUtils.UpdateRecord2(Main.SQL, Main.BarangTable, m, w)

ToastMessageShow("Barang has been updated.", True)

'Refresh data

LoadBarang

End If

End Sub

Sub BtnDelete_Click()

Dim result As Int = Msgbox2( "Apakah Anda yakin ingin menghapus barang: " & EdtNama.Text & "?", "Confirmation", "Yes", "No", "", _

LoadBitmap (File.DirAssets, "confirm.png"))

If result = DialogResponse.Positive Then

Dim w As Map : w.Initialize

w.Put("id", ID)

DBUtils.DeleteRecord(Main.SQL, Main.BarangTable , w)

ToastMessageShow("Barang has been deleted.", True)

'Balik lagi ke List Barang

Activity.Finish

End If

End Sub

Save, kemudian Run/Compile project ini dalam versi Release.
Kemudian lihat, apa yang terjadi…

Oke, demikian cara membuat CRUD aplikasi android dengan Basic4Android. Semoga bermanfaat. Dan jika masih ada kesulitan silakan tanyakan saja di form komentar 🙂

Silakan download source code lengkapnya di sini.

Oh iya, kalau misalkan CRUD-nya menggunakan database MySQL bagaimana cara membuatnya? Silakan simak postingan ini:

Membuat CRUD dengan Database MySQL di Basic4Android

About The Author

Chairruddin Arrasid

Orang yang suka belajar, juga suka membaca, juga suka menulis, dan juga suka makan kalau lapar. Dulu waktu kecil tidak punya cita-cita jadi programmer, tapi sekarang jadi programmer. Lah? Mungkin dulu masih belum tahu bahwa programming itu menyenangkan.

0 0 votes

Article Rating

This site uses Akismet to reduce spam. Learn how your comment data is processed.

62 Comments

Oldest

Newest Most Voted

Inline Feedbacks

View all comments

Rini

9 years ago

nice post mas 🙂

macuz

9 years ago

mantab broooo untuk tutorialnyaa.

mau tutorial sistem penjualan via android dunkzz bos. 🙂

Chairruddin Arrasid

Author

Reply to macuz

9 years ago

tunggu aja tanggal mainnya bro 🙂

wimbadi

Reply to Chairruddin Arrasid

8 years ago

Mantap.. mas.. terimakasih atas tutorialnya.. yang sistem penjualan via android.. dah di share juga kah ? hehehhehe.. ikut menanti saya…

macuz

9 years ago

mantab broo.
kalo untuk tmpilin gambar dri kode barang gimana broo?

Chairruddin Arrasid

Author

Reply to macuz

9 years ago

ini maksudnya, di list barangnya ada gambarnya gitu?

macuz

9 years ago

iya broo. kayaa tokopediaa versi androidnya hehe

misalkan kita pilih kategori barang lalu muncul sepatu misalkan. nah saat klik sepatu muncul dah gammbarr n kodenyaa jdi saat itu bisaa pesan jg bro

macuz

9 years ago

iya broo. kayaa tokopediaa versi androidnya hehe

misalkan kita pilih kategori barang lalu muncul sepatu misalkan. nah saat klik sepatu muncul dah gammbarr n kodenyaa jdi saat itu bisaa pesan jg bro. kurang lebih bgtu

andre

9 years ago

saya bermasalah di bagian DButils, dimanakah saya bisa mendapatkan module dbutils.bas ??

Chairruddin Arrasid

Author

Reply to andre

9 years ago

Untuk DBUtils bisa lihat poin ke 3-4 pada postingan ini.

andre

Reply to Chairruddin Arrasid

9 years ago

ok, sudah… tapi saya bermasalah lagi di “cur as ResultSet”, ResultSet itu pkai library apa lgi?

Chairruddin Arrasid

Author

Reply to andre

9 years ago

Itu Cursor. Pakai library SQL.

akio

Reply to andre

7 years ago

gimana cara ngatasin DBUtils nya om???

edi

8 years ago

sy library scrowview2d blm ada mas, punya linknya? makasih banyak..

Chairruddin Arrasid

Author

Reply to edi

8 years ago

Ini: ScrollView2D

septia afdholi

8 years ago

saya mau tanya mas. itu program sama database nya disimpan dimana. soalnya saya gak paham posisi DirExternal. tQ

Chairruddin Arrasid

Author

Reply to septia afdholi

8 years ago

itu di source code-nya sudah saya kasih keterangan mas.

bimbi

8 years ago

ga bisa didownload bro

Chairruddin Arrasid

Author

Reply to bimbi

8 years ago

ini: MyLogin3

andi

8 years ago

mas, boleh minta source code lengkap nya ? soalnya yang di atas ga bisa di click.

Chairruddin Arrasid

Author

Reply to andi

8 years ago

Itu mas udah saya share link-nya.
Komentar saya di atas yang MyLogin3.

Arief

8 years ago

Mau tanya gmn cara compile yg diikutsertakan dengan yg ada d folder files d aplikasi kita.krn disana ada gambar png yg harus diikutkan mksh

Chairruddin Arrasid

Author

Reply to Arief

8 years ago

1. Pilih tab Files – Add Files. Ada di sebelah kanan bawah.

2. Pilih Files yang mau diikutsertakan. Klik Open.

3. Files yg nantinya ada di dalem APK-nya.

Chairruddin Arrasid

Author

Reply to Arief

8 years ago

Atau bisa langsung copy files-nya ke folder Files. Lalu klik tombol Sync.

Arief

8 years ago

Kalau kita ingin menampilkan 1 field aja n 1 data aja kemudian ditampilkan di 1 edittext misal queey select noid from tabel a where nama =arief.noid ini ditampilkan di edittext itu caranya gmn makasih

Chairruddin Arrasid

Author

Reply to Arief

8 years ago

Caranya sama seperti di atas, hanya saja pada saat menampilkan ListView datanya (Poin 9) harus pakai kondisi where “data yang ingin ditampilkan”.

Arief

8 years ago

Bgmn cara read blob mysql dengan rdc makasih

Chairruddin Arrasid

Author

Reply to Arief

8 years ago

Wah, kalau itu saya belum pernah nyoba.

arief

Reply to Chairruddin Arrasid

8 years ago

Public Sub BytesToImage(bytes() As Byte) As Bitmap
Dim In As InputStream
In.InitializeFromBytesArray(bytes, 0, bytes.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
Return bmp
End Sub

ini ada di dbrequestmanager penerapan ke rdcnya gimana ya,lagi utak utik negh kalau insertnya sprt ini
Dim cmd As DBCommand
Dim InputStream1 As InputStream

InputStream1 = File.OpenInput(dlgFileExpl.Selection.ChosenPath, dlgFileExpl.Selection.ChosenFile)
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte
Buffer = OutputStream1.ToBytesArray
cmd.Initialize
cmd.Name = “insert_foto”
cmd.Parameters = Array As Object(edtno, Edtimei.Text, 1,Buffer)
reqManager.ExecuteCommand(cmd, “insert_foto”)

arief

Reply to arief

8 years ago

mungkin bisa dibantu logikanya BytesToImage itu dalam penerapan ke RDCnya makasih

Arief

Reply to arief

8 years ago

Alhamdulillah ini insert n read blob RDC mysql sudah ketemu.trima kasih sudah banyak membantu dalam pembelajaran basic4android mgkn hari ini akan saya share codingnya disini.smoga bermanfaat bagi para programmer yg lain

Chairruddin Arrasid

Author

Reply to Arief

8 years ago

Keren! Sama-sama mas, saling share aja, biar bermanfaat buat lainnya. Terima kasih juga sudah sering berkunjung di sini 🙂

arief

Reply to Chairruddin Arrasid

8 years ago

Sub GetDataBarang3
	Dim cmd As DBCommand
	cmd.Initialize
	cmd.Name = "select_foto1"
	reqManager.ExecuteQuery(cmd, 0,"select_foto1")
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success = False Then
		Log("Error: " & Job.ErrorMessage)
		ProgressDialogHide
	Else
		If Job.JobName = "DBRequest" Then
			Dim result As DBResult = reqManager.HandleJob(Job)
			
			Select result.Tag

				Case "select_foto1"
					For Each records() As Object In result.Rows
						Dim buffer() As Byte
						buffer=records(result.Columns.Get("gambar"))
						ImageViewSQL.Bitmap=reqManager.BytesToImage(buffer)
					Next

			End Select
			
		End If
		ProgressDialogHide
	End If
	Job.Release
End Sub

Sub GetDataBarang3

Dim cmd As DBCommand

cmd.Initialize

cmd.Name = "select_foto1"

reqManager.ExecuteQuery(cmd, 0,"select_foto1")

End Sub

Sub JobDone(Job As HttpJob)

If Job.Success = False Then

Log("Error: " & Job.ErrorMessage)

ProgressDialogHide

Else

If Job.JobName = "DBRequest" Then

Dim result As DBResult = reqManager.HandleJob(Job)

Select result.Tag

Case "select_foto1"

For Each records() As Object In result.Rows

Dim buffer() As Byte

buffer=records(result.Columns.Get("gambar"))

ImageViewSQL.Bitmap=reqManager.BytesToImage(buffer)

End Select

End If

ProgressDialogHide

End If

Job.Release

End Sub

arief

Reply to arief

8 years ago

diatas untuk read blob RDC mysql

arief

Reply to arief

8 years ago

yang ini untuk insert blob

InputStream1 = File.OpenInput(File.DirRootExternal, "nama_file")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim buffer() As Byte
buffer = OutputStream1.ToBytesArray
cmd.Initialize
cmd.Name = "insert_foto"
cmd.Parameters = Array As Object(edtno, Edtimei.Text, 1,buffer)
reqManager.ExecuteCommand(cmd, "insert_foto")
'buffer itu yang menjaid insert ke data base blob mysql
'File.DirRootExternal, "nama_file" ini bisa dibuatkan program FileExplorer v2.0 Dw di library basic4android

InputStream1 = File.OpenInput(File.DirRootExternal, "nama_file")

Dim OutputStream1 As OutputStream

OutputStream1.InitializeToBytesArray(1000)

File.Copy2(InputStream1, OutputStream1)

Dim buffer() As Byte

buffer = OutputStream1.ToBytesArray

cmd.Initialize

cmd.Name = "insert_foto"

cmd.Parameters = Array As Object(edtno, Edtimei.Text, 1,buffer)

reqManager.ExecuteCommand(cmd, "insert_foto")

'buffer itu yang menjaid insert ke data base blob mysql

'File.DirRootExternal, "nama_file" ini bisa dibuatkan program FileExplorer v2.0 Dw di library basic4android

Chairruddin Arrasid

Author

Reply to arief

8 years ago

Thanks atas sharing-nya mas arief.

Syntax²-nya saya edit lagi, biar mudah dibaca.

Arief

Reply to Chairruddin Arrasid

8 years ago

Sep mas.makasih smoga bisa bermanfaat bagi yg lain

arief

8 years ago

mas mau tanya kalau memakai RDC itu kita koneksikan ke WEBHOSTING gimana ya carang saya misal pakai webhosting idhostinger database disana cara koneksi nya gimana menggunakan RDC itu

Chairruddin Arrasid

Author

Reply to arief

8 years ago

Kalau tempat hosting kayak itu biasanya OS server-nya pakai linux (ubuntu, dll). Nah itu, saya belum pernah coba pakai linux 😀

Kalau OS server-nya pakai windows, caranya sama seperti postingan saya yang ini.

arief

Reply to Chairruddin Arrasid

8 years ago

ribet jadinya mas kalau di pasang ke webhosting,kita buat servernya sendiri aja hahahahaah maksih banyak infonya

Floren

Reply to arief

7 years ago

Dim RDCServer As String = “http://192.168.0.100:17178”

mas sya belum paham maslah hosting RDC, apakah alamat hosting itu kita masukakan pada tanda kutip diatas??

logikanya gmn mas???
solanya kalau coba di smartphone secara kita harus menjalankan RDC setiap kali uji coba!

mohon pencerahannya mas???

reza

8 years ago

Gan arief boleh minta source code blop nya?

arief

Reply to reza

8 years ago

mohon maaf baru baca bisa minta emailnya,tapi saya kirim 2 smp 5 hari maaf krn codingnya ini saya buat untuk tempat kerja saya,saya rubah dulu codingnya

Ali

Reply to arief

8 years ago

Maaf mas arief itu coding blob untuk db apa ya? Mysql bukan?

Klo untuk db mysql saya mau donk mas codingnya. Emailnya anyarshopmail@gmail.com

Ali

Reply to Ali

8 years ago

Terima kasih atas bantuannya

arief

Reply to Ali

8 years ago

Insya Allah bro,ini saya lagi banyak kerjaan saya usahakan maksimal 5 hari ya,yup dengan mysql,trima kasih

Ali

Reply to arief

8 years ago

Thanks mas arief atas supportnya

Ali

Reply to arief

8 years ago

reminder

erwino

8 years ago

mas klo misalx tiap kita mau buka layout baru trus secara otomatis ngerefresh gimana mas caranya (untuk aplikasi non datasbase),,,
soalnya klo layoutx banyak pasti ada tulisanx “downsampling image due to lack of memory”
atau ada cara lain untuk mengatasinya mas???
mohon pencerahanx masih newbie hee

Chairruddin Arrasid

Author

Reply to erwino

8 years ago

Ini nampilin image? Mungkin itu kegedan size image-nya, jadi butuh banyak memory. Saat buka activity-nya kemungkinan memory device-nya kurang, jadi gak bisa nampilin image. Bukan karena gak nge-refresh.

Budi

8 years ago

bang nanya dong , itu pas kita buat kode diatas , kita buat activity baru atau nerusin dibawahnya?

Chairruddin Arrasid

Author

Reply to Budi

8 years ago

Perhatikan aja petunjuknya. Kalau gak ada perintah buat bikin activity baru atau pindah ke activity lain, ya dilanjutkan aja di bawahnya.

loli

8 years ago

DBUtils.ExecuteListView(Main.SQL, query, Null, 0, LvData, True)
itu maksudnya pa ya om? bisa di jelasin

Chairruddin Arrasid

Author

Reply to loli

8 years ago

Itu untuk menampilkan data di ListView. Caranya dengan memanggil fungsi ExecuteListView yang ada di DBUtils. Untuk paramternya, ada Object SQL, query, dll). Lengkapnya, bisa dilihat saat mengetikkan fungsi tsb. Nanti akan muncul keterangan parameter-parameternya.

loli

Reply to Chairruddin Arrasid

8 years ago

misal saya mau buat 4 tabel , berarti db utilsnya diganti sama listvviewnya diganti ya om?

loli

Reply to loli

8 years ago

misal querynya bgini om
query = ” Select denomasi , jumlah_lembar , total , keterangan , id FROM ” Main.remisTable

brarti dbutilsnya diganti om? maaf newbie om

rudi

8 years ago

softwarenya pake apa ya

rudi

8 years ago

software

Membuat Spinner Bertingkat di Basic4Android | Always Del Heru

7 years ago

[…] Membuat Aplikasi CRUD dengan Basic4Android […]

akio

7 years ago

library yg d aktif kn itu apa aja om? sekalian link nya…

Chairruddin Arrasid

Author

Reply to akio

7 years ago

Dicek lagi aja om postingan atau komentar-komentarnya. Saya sudah share library yang diperlukan.

Floren

7 years ago

Assalamualaikum wr.wrb
gan pada contoh ditas, di setBojectView tu bisa gk kita tambahkan tombol sebelah kanan teks.

Misalnya :
PnlBarang.AddView(LlbKode, 20dip, ctop, 100%x-40dip)
PnlBarang.AddView(EdtKode, 20dip, ctop, 100%x-40dip)
nah saya mau tambahkan tombol di samping Edtkode tersebut.

Saya mengalami error gan.
mohon pencerahan kodingnya gan???

Wassalam,

Budi Tri Cahyono

6 years ago

koneksi mysql ke komputer lain gimana ya?

Related Posts

About The Author

Chairruddin Arrasid