Database Adodb Lanjutan

SOURCE CODE: Form List, Form Entry, Module dan Project

Praktek Visual Basic kali ini masih tentang database Adodb dengan menggunakan database db_mahasiswa yang lalu. Disini kita membuat 2 form dan sebuah modul. Untuk lebih jelasnya...langsung praktek yah :-)

1. Buka VB6 pilih VB Enterprise Edition Controls.

2. Buat form baru, kita sebut saja form list. Untuk mempercepat kita gunakan form praktek minggu lalu tentang adodb kemudian kita save as dengan nama form_list.frm. Terus kita tambahkan object 4 command button sbb:

a. CommanButton1, name=cmd_new; caption=NEW
b. CommanButton2, name=cmd_edit; caption=EDIT
c. CommanButton3, name=cmd_delete; caption=DELETE
d. CommanButton4, name=cmd_exit; caption=EXIT

3. Buat form baru lalu kita namakan form_entry.frm. Kemudian buat object sbb:
a. CommanButton1, name=cmd_save; caption=SAVE
b. CommanButton2, name=cmd_cancel; caption=CANCEL
c. CommanButton4, name=cmd_exit; caption=EXIT
d. Untuk label dan textbox bisa dibuat sendiri.

4. Buat sebuah modul. Caranya klik kanan nama project pada project properties kemudian pilih add - module. Kemudian ketik coding sebagai berikut:

Global Fedit As Boolean
Global con As ADODB.Connection
Global RS As ADODB.Recordset

Sub main()
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
Set RS = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\Semester II\Visual Basic II\06-05-09\db_mahasiswa.mdb;Persist Security Info=False"
form_list.Show
End Sub

5. Buat coding form list (liat praktek VB minggu lalu tentang database adodb).

6. Buat coding cmd_new pada form list

Private Sub cmd_new_Click()
Fedit = False
form_entry.Show 1
End Sub

7. Buat coding cmd_edit pada form list

Private Sub cmd_edit_Click()
Fedit = True
form_entry.Show 1
End Sub

8. Buat coding cmd_delete pada form list

Private Sub cmd_delete_Click()
Pesan = MsgBox("Apakah Anda menghapus?", vbYesNo, "Konfirmasi:")
If Pesan = vbYes Then
RS.Delete
Else
End If
End Sub

9. Buat coding cmd_exit pada form list

Private Sub cmd_exit_Click()
Unload Me
End Sub

10. Buat coding cmd_save pada form entry

Private Sub cmd_save_Click()
If Fedit = False Then
RS.AddNew
End If
RS!Kode = txt_kode
RS!Nama = txt_nama
RS!Alamat = txt_alamat
RS!Kode_Jurusan = txt_kode_jurusan
RS.Update
Unload Me
End Sub

11. Buat coding cmd_cancel pada form entry

Private Sub cmd_cancel_Click()
Pesan = MsgBox("Apakah Anda akan keluar?", vbYesNo, "Konfirmasi:")
If Pesan = vbYes Then
Unload Me
Else
End If
End Sub

12. Buat coding cmd_exit pada form list

Private Sub cmd_exit_Click()
Unload Me
End Sub

13. Buat coding untuk memunculkan database pada form entry

Private Sub Form_Load()
If Fedit = True Then
txt_kode = RS!Kode
txt_nama = RS!Nama
txt_alamat = RS!Alamat
txt_kode_jurusan = RS!Kode_Jurusan
End If
End Sub

14. La tansa, pada project propertis pilih sub_main untuk mengaktifkan modul yang sudah kita buat. Caranya klik menu Project - Project Properties.

15. Selamat mencoba, good luck -:)
Bila program dijalankan, maka akan tampak gambar di bawah ini.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 05 Juni 2009
Semester II STIKOM CKI Wijaya Kusuma