Database Pada Visual Basic

Pada percobaan kali ini saya membuat sebuah program database yang disambungkan dengan Microsoft Access 2013. Dengan menggunakan VisualBasic 6.0 sebagai program utamanya.

LISTING PROGRAM

FORM 1

FORM 2

FORM 1

FORM 2

LOGIKA PROGRAM

Pertama, kita terlebih dahulu membuat databasenya melalu Microsoft Access 2013. Open Microsoft Access 2013 dan pilih Blank Space Database, beri nama filenya dan save as sebagai :

Lalu setelah itu buat table – tablenya dengan cara mengklik kiri pada tulisan table 1 lalu pilih design view dan rubah nama table.

Untuk jenisnya            : NPM (Primary Key) -> Number

                                      Nama -> Short Text

                                      Kelas -> Short Text

Lalu save table tersebut.

Setelah itu buka VisualBasic 6.0 dan open standard exe :

Pada form 1 buat designnya yang menggunakan Label A, Text Box dan Comman Button dan buat designnya seperti dibawah ini :

Ubah caption Label1 menjadi Username

Ubah caption Label2 menjadi Password

Ubah caption Command1 menjadi Log In

Ubah caption Command2 menjadi Reset

Lalu klik dua kali pada Log in dan Reset, dan tulis codingannya seperti dibawah ini :

Coba run program diatas dan masukkan username dan passwordnya, apabila kalian memasukkannya dengan bener maka Message Box bertulisan “Login Berhasil” akan muncul, sebaliknya apa bila salah maka Message Box bertulisan “Password atau Username anda salah!!!”.

Lalu pilih New Form untuk membuat Form 2 yang menggunakan Label A, Text Box, Command Button, Data Grid dan Adodc dan design seperti gambar dibawah ini :

Dari mana kita mendapatkan Data Grid dan Adodc???

Klik kanan pada Tool Box dan pilih Component, lalu checklist semua seperti gambar dibawah :

Ubah caption Label1 menjadi Nama dan nama object TextBox1 menjadi TextNama

Ubah caption Label2 menjadi NPM dan nama object TextBox2 menjadi TextNPM

Ubah caption Label3 menjadi Kelas dan nama object TextBox3 menjadi TextKelas

Ubah caption Command1 menjadi Input

Ubah caption Command2 menjadi Delete

Ubah caption Command3 menjadi Update

Ubah ConnectionString pada Adodc yang dapat kita temukkan pada propertiesnya. Seperti gambar dibawah ini :

Pilih Build dan Pilih

Pilih nama file pada Microsoft Access kita tadi dan Test Connectionnya.

Lalu kita pilih DataGrid yang telah kita buat tadi dan pilih propertiesnya. Lalu ubah nilai pada bagian DataSource menjadi Adodc1 yaitu nama object Adodc yang telah kita setting tadi

Apabila sudah, pilih juga CommandType dan ubah nilainya menjadi 2 – adCmdTable

Setelah selesai, klik kanan pada GridData nya dan Pilih Retrieve Fields. Apabila sudah berhasil, maka akan muncul seperti gambar dibawah ini :

Selanjutnya, klik dua kali pada Input dan masukkan kodingan dibawah ini :

Klik dua kali juga pada Delete dan masukkan kodingan seperti ini :

Terakhir klik Dua kali pada Update dan masukkan kodingan seperti ini :

OUTPUT PROGRAM

Masukkan username “yondra” dan passwrdnya “admin”, apabila kodingan kalian benar maka akan muncul seperti dibawah ini :

Pada form 2 apabila kalian memasukkan Nama, NPM dan Kelasnya dengan benar lalu Meng-Inputnya maka akan menjadi seperti ini :

Sebelum Di-Input :

Setelah Di-Input :

Untuk tombol delete, akan muncul seperti ini kalo kalian memencetnya :

Apabila kalian memilih Yes, maka Data Johan akan terhapus.

Update berfungsi untuk memperbaharui data yang telah ada, contohnya adalah

Sebelum di Update :

Nah, apabila kita menakan tombol update maka akan terjadi seperti dibawah ini