Kode Simpan Ubah Hapus Database Acces Vb6

Tutorial Visual Basic 6 – Pada aplikasi database acces Vb6 proses Simpan Ubah dan Hapus data merupakan bagian penting yang tidak bisa lepas dari aplikasi database acces Vb6. Hasil Data yang disimpan akan ditampilkan kembali dan diolah menjadi bermacam informasi di dalam proses Aplikasi database acces Vb6. Hasil data yang tidak sesuai dirubah, bila perlu dihapus. Hal yang perlu diperhatikan disini agar kode Simpan, ubah dan hapus Database acces Vb6 di tabel Acces tidak terjadi error yaitu Nama tabel acces serta nama Kolom Tabel  itu sendiri dan kode modul Vb6.
Kita menggunakan microsoft acces 2007 dengan nama File DATABASE_ANGGOTA.Accdb  sebagai database nya. Sedangkan nama Tabel acces nya yaitu TABEL_ANGGOTA dan Penampilan Tabel acces nya seperti gambar dibawah ini :

Tabel Database Acces Vb6

Sedangkan Kode modul Vb6 nya seperti dibawah ini :

Modul Kode Simpan Ubah Hapus Databse Acces Vb6

Persiapan Menggunakan Kode Simpan ubah dan hapus Database Acces Vb6

Untuk menghubungkan antara form Vb6 dan acces kita gunakan objec ADODC1 selanjutnya Siapkan tiga textbox yaitu text1, text2, text3 dimana text1 digunakan untuk diisi KODE_ANGGOTA , text2 digunakan untuk diisi NAMA, text3 digunakan untuk diisi ALAMAT. Kemudian siapkan tiga commandbutton yaitu command1, command2, command3 dimana command1 digunakan untuk menjalankan kode simpan , command2 digunakan untuk menjalankan kode ubah , command3 digunakan untuk menjalankan kode hapus . Hasil gambarnya seperti dibawah ini :

Form Kode Simpan Ubah Hapus Database Acces Vb6

Kode Simpan Database Acces Vb6

Private Sub Command1_Click()
Call BUKADB
KONEKSI.Execute "INSERT INTO TABEL_ANGGOTA values('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
End Sub

Disarankan agar ketiga text diisi semua, terkadang jika salah satu text tidak terisi maka bisa terjadi error dikarenakan Type data tabel acces nya bukan type text. Biasanya kalau type data tabel acces nya dijadikan text maka walaupun kosong tidak terjadi error dikarenakan data kosong yang disimpan dianggap sebagai text. Type Data yang digunakan di Nama kolom TABEL_ANGGOTA seperti gambar dibawah ini :

Type Data Tabel Acces Vb6

Untuk memastikan text1, text2, text3 terisi semua maka perlu penambahan kode seperti dibawah ini

If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "ADA YANG BELUM DIISI, SILAHKAN DIISI DAHULU", vbInformation, "PEMBERITAHUAN"
Exit Sub
Else
End If

Sehingga Keseluruhan Kode simpan yang ada di Command1 menjadi seperti dibawah ini :

Private Sub Command1_Click()
Call BUKADB
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "ADA YANG BELUM DIISI, SILAHKAN DIISI DAHULU", vbInformation, "PEMBERITAHUAN"
Exit Sub
Else
End If
KONEKSI.Execute "INSERT INTO TABEL_ANGGOTA values('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
End Sub

Kode Ubah Database Acces Vb6

Private Sub Command2_Click()
Call BUKADB
KONEKSI.Execute "UPDATE TABEL_ANGGOTA SET NAMA='" & Text2 & "', ALAMAT='" & Text3 & "' WHERE KODE_ANGGOTA='" & Text1 & "'"
End Sub

Pada kode diatas, yang dirubah adalah NAMA DAN ALAMAT sedangkan KODE_ANGGOTA digunakan sebagai patokan data mana yang akan dirubah.

Kode Hapus Database Acces Vb6

Kode Hapus yang digunakan bisa memilih data tertentu  di suatu tabel  acces untuk dihapus atau bisa seluruh data yang ada di suatu Tabel acces.

Untuk Kode Hapus data tertentu di suatus tabel acces seperti dibawah ini :

Private Sub Command3_Click()
Call BUKADB
KONEKSI.Execute "DELETE FROM TABEL_ANGGOTA WHERE KODE_ANGGOTA='" & Text1 & "'"
End Sub

Sedangkan untuk Kode Hapus  seluruh data yang ada di suatu Tabel acces sebagai berikut :

Private Sub Command3_Click()
Call BUKADB
KONEKSI.Execute "DELETE FROM TABEL_ANGGOTA "
End Sub

Sekian Artikel tentang Kode Simpan Ubah Hapus Database Acces Vb6, Semoga bermanfaat - Tutorial Visual Basic 6

Share this Kode Simpan Ubah Hapus Database Acces Vb6 article :

Facebook Twitter Google+

Artikel Terkait Kode Simpan Ubah Hapus Database Acces Vb6

TENTANG PENULIS

Nanang Sugiarto

Penulis seorang Programmer Aplikasi Database Vb6 dan Blogger. Situs Web yang dibuat Penulis yaitu : Nanang Sugiarto WorkShop, Tutorial VB6 Sugiarto, Tutorial Microsoft Office Sugiarto, dan Seputar Pengetahuan Pangan.