Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan
hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)
Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.
1. DATA CONTROL
#Simpan Data :
Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh
#Pencarian Data :
Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset!namakolom1
Text2.Text = Data1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh
#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh
2. ADODC
#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
#Pencarian Data :
Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!namakolom1
Text2.Text = Adodc1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh
3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini
#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" + Text2.Text + "')"
#Pencarian Data
Set Rs = New Adodb.Recordset
ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
"',[namakolom2]='" + Text2.Text + _
"' WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc
#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc
Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.
1. DATA CONTROL
Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data
#Simpan Data :
Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh
#Pencarian Data :
Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset!namakolom1
Text2.Text = Data1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh
#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh
2. ADODC
#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
#Pencarian Data :
Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!namakolom1
Text2.Text = Adodc1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh
3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini
#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" + Text2.Text + "')"
#Pencarian Data
Set Rs = New Adodb.Recordset
Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado
If Not rs.EOF Then
Text1.Text = rs("namakolom1")
Text2.Text = rs("namakolom2")
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
#Edit Data
Text2.Text = rs("namakolom2")
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
#Edit Data
ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
"',[namakolom2]='" + Text2.Text + _
"' WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc
#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"
Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc
mantap. izin kopi gan. makasih.
BalasHapusartikelnya mantap ... ini ngebantu banget
BalasHapuskaka maaf, aku mau nanya aku sudah input coding pencarian yang adodc tapi saat di debug kodingnya yang pencarian berubah jadi kuning. tapi saya sudah memasukkan coding pencarian yang benar. mohon bantuannya ka. terimakasih :)
BalasHapusgue gak bisa tauuuuuuu,,,,, :P
BalasHapusgan ane mw nanya yg di adodc..kl pencarian nya dalam sebuah tabel gimana gan? misal data yg di cari berupa nama si A di dalam tabel ada 5..cara penulisan loopingnya gmn gan? bantu plsss
BalasHapusthanks gan, sangat membantu saya dalam penyusunan tugas akhir. ^_^
BalasHapus