Membuat Program Daftar Buku Perpustakaan dengan Visual Basic 6.0 + Database Ms Access

Membuat Program Daftar Buku Perpustakaan dengan Visual Basic 6.0 + Database Ms Access
Membuat Program Daftar Buku Perpustakaan dengan Visual Basic 6.0 + Database Ms Access
Membuat Program Daftar Buku Perpustakaan dengan Visual Basic 6.0 + Database Ms Access

Setelah pada postingan sebelumnya kita belajar membuat program sederhana yaitu mengenai penggunaan percabangan, perulangan , dan timer pada VB dengan program Lampu Lalu Lintas Sederhana. Pada kesempatan kali ini kita akan kembali belajar membuat sebuah program sederhana dengan menggunakan VB 6.0

Berbeda dengan program sebelum-sebelumnya yang pernah kita buat, kali ini kita akan lebih memanfaatkan elemen lain yang mendukung kinerja dari program yang akan kita buat. Baik , jadi pada postingan kali ini, kita akan belajar membuat sebuah program sederhana yang di dalamnya terdapat penggunaan Database sebagai sumber data untuk mendukung program utama.

Seperti yang kita ketahui Database adalah komponen penting di menunjang sebuah program utama. Rasanya di zamana sekarang ini penggunaan dari database telah benar-benar menyebar di semua bidang, seperti industri, kesehatan, penjualan, dll. Semuanya butuh database. Sebuah program yang akan diciptakan atau dibuat kebanyakan juga telah memasukan database sebagai penunjang program utamanya.

BACA JUGA : Cara Membuat Database Data Relasional Dengan Ms Access


Program yang akan kita buat disini hanya sebuah program sederhana , dimana pada program ini kita akan menggunakan database yang sederhana pula, program utama akan kita buat dengan Microsoft Visual Basic 6.0 dan untuk databaseny akan kita buat dengan menggunakan Microsoft Access.

Program yang akan kita buat adalah program yang menampilkan atau mengolah sebuah Daftar buku di dalam sebuah perpustakaan, jadi pada program ini kita akan mengkoneksikan program utama kita dengan database yang akan kita buat nanti.

Oke langsung saja, sobat bisa ikuti beberapa langkah berikut untuk pembuatannya :

Membuat Program Daftar Buku Perpustakaan dengan Visual Basic 6.0 + Database Ms Access


1. Sebelum membuat program pada visual basic kitaperlu membuat database terlebih dahulu menggunakan Microsoft Access yang bertugas sebagai penampung data dari program yang akan kita koneksikan dengan data tersebut.

2. Pertama buka terlebih dahulu Microsoft Access disini saya menggunakan Microsoft Access 2016. Dan akan muncul jendela awal seperti di bawah ini.
Tampilan awal ms access

3 .Kemudian silahkan pilih menu new dan pilih blank database

4. Untuk nama file bisa kita berikan sesuai keinginan kita, disini saya menggunakan nama Daftar Buku Perpustakaan 2017.mdb (formatnya harus .mdb) dan pilih Create.

5. Kemudian buat Table1 dengan isi  Kode,Judul Buku,Penulis,Tahun Terbit untuk Field Name dan Short Text untuk semua Data Type kemudian Save.
isi field databse




6. Sekarang kita masuk ke Visual Basic untuk membuat program yang akan dikoneksikan dengan database tadi.

BACA JUGA : Membuat Program Lampu Lalu Lintas dengan Visual Basic 6.0


7. Kemudian pilih Standar EXE dan klik button open,kemudian akan menampilkan jendela Form 1

8. Setelah jendela Form1 muncul kemudian menyusun komponen programnya, sebelum menyusun komponen tersebut kita harus menambahkan komponen yang belum ada di list komponen di sebelah kiri disini yang belum ada yaitu DataGrid dan Adodc. Untuk menambahkan kedua komponen tersebut tekan CTRL+T dan akan muncul tampilan seperti berikut :
Tambah Komponen

9. Silahkan checklist pilihan Microsoft ADI Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB). Maka komponen yang ditambahkan tadi akan muncul di list komponen yang berada disebelah kiri jendela.

10. Komponen untuk form1 kita gunakan 6 Label, 3 CommandButton, 1 DataGrid, 1 Adodc, 4 TextBox

11. Kemudian menyusun komponen programnya seperti berikut :

susunan program


12. Kemudian atur properti dari DataGrid dan Adodc sebagai berikut
properti adodcproperti adodc lanjut

 13. Sebelum kita memasukan kodingan kita perlu mengatur terlebih dahulu untuk mengkoneksikan program ini dengan database kita. Caranya kita buka menu ADODC properti dengan mengklik kanan pada komponen adodc yang telah kita tambahkan tadi ,kemudian pilih ADODC properti dan akan muncul jendela seperti berikut.
adodc properti


14. Kemudian pilih pilihan build dan akan muncul jendela seperi berikut. Pada tab Provider pilih Microsoft Jet 4.0 OLE DB Provider kemudian klik next.

15.  Pada tab Connection pilih lokasi database kita dan User_name = admin dan checklist blank password

16. Setelah memilih database tadi silahkan Test Connection untuk mencoba apakah database kita sudah dapat digunakan(terkoneksi). Jika sukses akan muncul tulisan "Test Connection Succeeded"





 17. Setelah berhasil klik ok dan anda keluar dari menu build dan anda akan masuk ke menu awal properti dari adodc dan melihat bahwa kita telah membuild database tadi.

BACA JUGA : Membuat Program List Angka Ganjil Genap dengan Menggunakan Visual Basic 6.0


18.  Selanjutnya pilih menu RecordSource untuk mengatur Command Type dan Procedure Name, untuk Command Type pilih 2-adCmd Table dan untuk procedure name pilih Table 1.

19.  Lalu sobat masukan kodingannya seperti berikut :

Ini source code untuk ComandButton1 (Simpan). 

kodingan simpan
  • Private Sub Command1_Click() Menyatakan kejadian ketika CommandButton1 (Simpan) dijalankan. 
  • Adodc1.Recordset.AddNew Menyatakan perintah untuk menambahkan database pada Adodc1. 
  • Adodc1.Recordset.Fields("Kode") = Text1.Text Menyatakan perintah untuk field “Kode” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text1.Text 
  • Adodc1.Recordset.Fields("Judul Buku") = Text2.Text Menyatakan perintah untuk field “Judul Buku” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text2.Text 
  • Adodc1.Recordset.Fields("Penulis") = Text3.Text Menyatakan perintah untuk field “Penulis” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text3.Text 
  • Adodc1.Recordset.Fields("Tahun Terbit") = Text4.Text Menyatakan perintah untuk field “Tahun Terbit” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text4.Text 
  • Text1.Text = "" Perintah untuk memberikan nilai awal pada Text1 yang berupa (“ “)/blank. 
  • Text2.Text = "" Perintah untuk memberikan nilai awal pada Text2 yang berupa (“ “)/blank. 
  • Text3.Text = "" Perintah untuk memberikan nilai awal pada Text3 yang berupa (“ “)/blank. 
  • Text4.Text = "" Perintah untuk memberikan nilai awal pada Text4 yang berupa (“ “)/blank. 
  • End Sub Menyatakan perintah untuk mengakhiri kejadian/perintah di button ini (Simpan). 

Ini source code untuk CommandButton2 (Perbaharui).  

 kodingan perbaharui
  • Private Sub Command2_Click() Menyatakan kejadian ketika CommandButton2 (Perbaharui) dijalankan. 
  • Adodc1.Recordset.Update Menyatakan perintah untuk memperbaharui/update database pada Adodc1. 
  • Adodc1.Recordset.Fields("Kode") = Text1.Text Menyatakan perintah untuk field “Kode” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text1.Text
  • Adodc1.Recordset.Fields("Judul Buku") = Text2.Text Menyatakan perintah untuk field “Judul Buku” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text2.Text
  • Adodc1.Recordset.Fields("Penulis") = Text3.Text Menyatakan perintah untuk field “Penulis” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text3.Text 
  • Adodc1.Recordset.Fields("Tahun Terbit") = Text4.Text Menyatakan perintah untuk field “Tahun Terbit” yang ada di database Adodc1 (database yang dibuat dengan Ms Access) bernilai dari yang di input di Text4.Text 
  • End Sub Menyatakan perintah untuk mengakhiri kejadian/perintah di button ini (Perbaharui).

Ini source code untuk CommandButton3 (Bersihkan).

kodingan bersihkan
  • Private Sub Command3_Click() Menyatakan kejadian ketika CommandButton3 (Bersihkan) dijalankan. 
  • Adodc1.Recordset.Delete Menyatakan perintah untuk membersihkan/delete database pada Adodc1.
  • End Sub Menyatakan perintah untuk mengakhiri kejadian/perintah di button ini (Perbaharui).
Setelah semuanya selesai , coba sobat jalankan programnya , jika tidak ada error maka hasilnya akan seperti berikut ini :

output 1
output2
output3
Silahkan sobat expore sendiri programnya apakah telah berjalan dengan baik atau tidak, test semua buttonnya apakah berfungsi, kemudian ketika sobat melakukan simpan pada data tadi maka data di database di Ms Access juga akan berubah mengikuti program utama.

BACA JUGA : Cara Membuat Program Konversi Dengan Java NetBeans IDE 8.1


Nahh itulah tadi , kita sudah belajar bagaimana pengimplemntasian database pada sebuah program yang sederhana ini. Semoga artikel ini bermanfaat bagi kita semua dan bisa jadi bahan refrensi sobat untuk belajar pemrogramman.