Program Database pada Visual Basic

Pada pertemuan kali ini, kita akan membuat program database pada visual basic. Dan terdapat dua form/dua program. Program pertama yaitu membuat program login (Form1) dan membuat program database (Form2). Saya akan jelaskan cara membuat program database pada visual basic.

Pertama buka aplikasi visual basic dengan klik 2x icon visual basic pada dekstop.

Bila sudah terbuka seperti gambar diatas akan muncul tampilan form1, karena kita akan menggunakan 2 form , maka kita buat 2 form. Pada form 1 berfungsi sebagai input berupa login untuk bisa masuk ke form2 yaitu dengan memasukan username dan password dan pada form2  adalah berfungsi sebagai input sekaligus output.

Langkah mebuat form 2 yaitu dengan memilih add form di toolbar, dan memilih form agar bisa membuat tampilan form2, bila sudah kita buat akan mucul tampilan sebagai seperti ini  :

Dan buat desain form1 seperti pada gambar dibawah ini :

Pada desain form1 terdapat :

• Label1             : kita rubah captionnya dengan “ USERNAME”
• Label2             : kita rubah captionnya dengan “PASSWORD”
• Textbox1         : captionnya dikosongkan
• Textbox2          : captionnya dikosongkan
• Commandbutton1     : kita rubah captionnya dengan “ LOGIN”
• Commandbutton2     : kita rubah captionnya dengan “RESET”

Untuk mengganti caption yaitu dengan cara masuk ke menu properties pilih caption lalu ganti seperti daftar diatas .

Kemudian kita masukan kode program/codingan seperti ini:

Private Sub command1_Click()

If Text1.Text = “deden” And Text2.Text = “25091997” Then

MsgBox “login anda berhasil”

Form1.Hide

Form2.Show

Else

MsgBox “login anda gagal”

End if

End Sub

Maksud codingan Form1.Hide, Form2.Show itu adalah kita akan menampilkan form1 dan menyembunyikan form2. If Text1.Text = “deden” And Text2.Text = “25091997” Then

MsgBox “login anda berhasil” Ketika pada username kita ketikan (deden) dan password( 25091997) maka akan keluar output “login anda berhasil”. Else MsgBox “login anda gagal” Namun apabila kita masukan username dan password selain diatas maka output yang keluar adalah “login anda gagal”. Kemudian apabila kita ketikan username dan password yang benar sesuai codingan maka akan langsung masuk ke form2, yang akan kita input dan buat desainnya.

Pada form2 :

Pertama-tama kita buat desain form2, seperti gambar berikut:

Pada desain form2 terdapat :

• Label 1             : kita rubah captionnya dengan “ NPM ”
• Label 2             : kita rubah captionnya dengan “ NAMA ”
• Label 3             : kita rubah captionnya dengan “ KELAS ”
• TextBox 1         : captionnya dikosongkan
• TextBox 2         : captionnya dikosongkan
• TextBox 3          : captionnya dikosongkan
• Commandbutton 1 (input)       : untuk menginput data yang telah dimasukan
• Commandbutton 2 (delete )     : untuk menghapus data yang telah diinput
• Commandbutton 3 (update)     : untuk merubah inputan yang lama data input yang baru
• Adodc1 dan datagrid didapat dari kita pilih icon data  di general, lalu klik kanan dan pilih component.Setelah kita klik akan muncul

Kemudian pilih dua control yaitu :

• microsoft ADO Data Control 6.0 (OLED8) dan microsoft DataGrid Control 6.0 (OLED8)

Setelah kita pilih akan muncul icon  datagrid dan icon ADODC lalu dari icon ini bisa kita buat desain programnya.

Sebelum kita membuat kode program pada form2, kita masuk ke microsoft access dan buat database pada microsoft access seperti ini :

Dengan :

• NPM         : dirubah data type ke Number
• NAMA      : dirubah data type ke Text
• KELAS     : dirubah data type ke Text

Dan format yang kita gunakan yaitu mdb agar bisa di masukan di data visual basic 6.0.

Lalu kembali lagi pada visual basic dan masuk ke menu properties lalu kita pilih connectionstring di bagian properties adodc1 dan akan muncul :

Setelah muncul kita klik build, dan akan muncul data link properties seperti ini :

Kemudian masuk ke connection dan select/masukan file database pada Microsoft access yang telah kita buat dan kita save. Lalu klik test connection dan klik OK.

Kemudian akan kembali ke properties awal dibagian yang sebelumnya akan terisi seperti ini lalu klik OK

Lalu dibagian datagrid kita setting di bagian propertiesnya, masuk ke menu properties dan kita ubah datasourcenya menjadi Adodc1, seperti ini:

Bila sudah kita ganti, klik kanan data grid dan pilih retrievefield dan ok agar aktif

Pada tahap diatas kita sudah selelsai menyetting settingan database juga telah kita buat desain programnya, langkah berikutnya kita buat kode program seperti input, delete, dan update pada program form2 ini, berikut langkah-langkah dan penjelasaanya.

Buat kode program seperti ini :

Program input untuk form2:

Private Sub Command1_Click()
Adodc1.Recordset.AddNew 
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!NAMA = Text2.Text
Adodc1.Recordset!KELAS = Text3.Text
Text1.Text = " "
Text2.Text = " "
Text3.Text =  " "

End Sub

Adodc1.Recordset.AddNew program ini untuk menginput data baru yaitu  Adodc1.Recordset!NPM = Text1.Text Progam ini untuk menginput, yang berisi NPM di text1, Adodc1.Recordset!NAMA = Text2.Text NAMA di text2, Adodc1.Recordset!NAMA = Text3.Text KELAS di text3. Setelah program selesai,kita bisa menginput data dengan mengisi data NPM, NAMA, KELAS lalu klik input dan data akan masuk pada form datagrid.

Program delete untuk from2:

Private Sub Command2_Click()
Adodc1.Recordset.Delete

End Sub 

Kode Program ini akan menghapus data NPM, NAMA, KELAS. Datayang terdapat dalam form datagrid akan terhapus apabila kita klik form delete karena kita buat kode program adodc1.recorder.delete yang berarti data adodc1 akan terhapus. Data NPM, NAMA, KELAS akan terhapus karena data tersebut termaksud data di adodc1.

Program update di form2 :

Private Sub Command3_Click()
 Adodc1.Recordset.Update
Adodc1.Recordset!NPM = Text1.Text
Adodc1.Recordset!NAMA = Text2.Text
Adodc1.Recordset!KELAS = Text3.Text

End Sub

Kode Program update ini berfungsi mengubah data  NPM, NAMA, KELAS / inputan yang lama menjadi data inputan yang baru. Adodc1.Recordset.Update program ini untuk menginput data baru dan menggantikan data sebelumnya. Adodc1.Recordset!NPM = Text1.Text Progam ini untuk menginput, yang berisi NPM di text1, Adodc1.Recordset!NAMA = Text2.Text NAMA di text2, Adodc1.Recordset!NAMA = Text3.Text KELAS di text3. Jadi ketika kita klik form command button update maka data yang sebelumnya sudah ada pada datagrid akan terganti oleh data yang baru saja kita masukan .   

Bila kita sudah buat kode program seperti diatas dan memasukannya dibagian masing masing, seperti input, delete, dan update data base pada visual basic ini sudah siap untuk dijalankan dengan klik icon run atau f5 .

outputnya akan seperti ini :





semoga bermanfaat.....