Pemrograman Obyek Basis Data

Pemrograman Obyek Basis Data
Pada Pemrograman Berorientasi Obyek dengan Bahasa Visual Basic
Oleh
Harry Witriyono, SP.,M.Kom

Video tutorial dan panduan digital silahkan unduh di sini

Pada praktikum berikut ini kita akan mempelajari bagaimana pemrograman berorientasi obyek
yang menggunakan obyek-obyek basis data. Tujuan akhir dari praktikum ini anda dapat
membuat aplikasi yang menggunakan basis data dan merekam rekord-rekordnya ke dalam 1
tabel. Sebagai contoh kita akan membuat database bernama UMB dan tabel bernama
Mahasiswa.
Secara umum proses pembuatan aplikasi berbasis data adalah sebagai berikut :
1. Buatlah project baru dan form baru dengan layout form seperti berikut ini :
Tambahkan komponen obyek : Microsoft Ado Data Control 6.0 dan Microsoft Data Grid
Control 6.0
Setelah selesai membuat layout ini silahkan simpan project dan form tersebut ke dalam folder
kerja anda, contoh C:\UMB.
2. Buat database Microsoft Acces Versi 7.0 dengan cara menggunakan fasilitas Visual Data
Manager, caranya adalah :
a. Klik menu Add Ins – Visual Data Manager, sehingga muncul aplikasi Vis Data.
1
Universitas Muhamadiyah Bengkulu Panduan Praktikum Pemrograman Berorientasi Obyek I
Edisi 1. Tahun 2010
b. Pada aplikasi Visual Data Manager tersebut klik menu File – New – Microsoft Access –
Version 7.0 MDB.
c. Selanjutnya ketik nama databasenya, contoh : UMB, lalu simpan di folder kerja yang
tempat anda menyimpan project dan form pada tahap 1 tadi.
d. Setelah tersimpan database tersebut, klik kanan pada jendela Database Window lalu pilih
New Table, sehingga muncul form Table Structure.
e. Pada form Table Structure, ketik nama table pada kotak Table Name, contoh :
Mahasiswa.
f. Untuk membuat field-field pada table tersebut klik button Add Field, sehingga muncul
form Add Field.
g. Pada from Add Field, ketik nama field table pada kotak Field Name, contoh NPM, lalu
pilih tipe datanya pada pilihan Type, contoh Text, dan karena tipenya Text maka atur
ukurannya pada kotak Size menjadi 10. Selanjutnya karena NPM field kunci utama, dan
juga untuk kunci tamu bila ada, maka klik Fixed Field; sedang untuk yang lain biarkan
saja pada Variable Field. Dikarenakan NPM harus diisi maka hilangkan tanda cek pada
Allow Zero Length, dan karena sangat wajib diisi maka tandai cek pada Required. Untuk
mengakhiri pembuatan field ini klik OK.
h. Ulangi proses penambahan field untuk field-field NamaMahasiswa, Alamat, TglLahir,
JenisKelamin, dan NamaOrangTua seperti pada NPM tadi hanya saja sebagai field biasa.
Untuk mengakhiri proses pembuatan field-field tersebut klik button Close pada form Add
Field, sehingga kembali ke form Table Structure.
i. Bila perlu buatkan kunci pencarian atau Index dengan mengklik button Add Index.
j. Untuk mengakhiri pembuatan table, klik button Build The Table dan sekarang anda telah
mempunyai 1 tabel bernama Mahasiswa pada jendela Database Window anda.
3. Buat koneksi obyek Active Data Object (ADO) dengan database dan table / recordset
yang telah dibuat. Caranya adalah sebagai berikut :
a. Klik kanan obyek ADODC1 pada form yang telah kita buat pada tahap 1, lalu pilih
ADODC Properties.
b. Pada tabulasi General, pilih Use Connection String dan klik button Build.
c. Selanjutnya pilih provider databasenya Microsoft Jet 4.0 OLE DB, karena kita
menggunakan Microsoft Access, tetapi bila kita menggunakan MySql maka kita pilih
Microsoft OLEDB Provider for ODBC driver. Akhiri tahap ini dengan mengklik Next
atau pindah ke tabulasi Connection.
d. Pada tabulasi Connection, pilih nama database yang kita buat tadi pada tahap 2. Periksa
koneksinya dengan Test Connection, lalu akhiri dengan klik button OK.
e. Kembali ke form Property Pages, klik tabulasi RecordSource dan pilih Command Typenya
2 – adCmdTable, lalu pilih tabelnya pilihan Table or Stored Procedure Name, yaitu
table Mahasiswa.
f. Untuk mengakhiri proses pembuatan koneksi obyek ADO ini ke database, klik button
Apply dan Close.
2
Universitas Muhamadiyah Bengkulu Panduan Praktikum Pemrograman Berorientasi Obyek I
Edisi 1. Tahun 2010
4. Tahapan selanjutnya adalah memberikan kode program pada obyek command button
Tambah, Koreksi, Simpan, Hapus dan Selesai yang telah dibuat. Daftar lengkap semua kode
dapat anda lihat seperti berikut ini :
Private Sub Command1_Click() 'tambah
npmbaru = InputBox("Ketik NPM mahasiswa baru:", "Periksa NPM")
If npmbaru = Empty Then Exit Sub
npmbaru = Mid(npmbaru, 1, 10)
Adodc1.Recordset.Find "NPM='" & npmbaru & "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
MsgBox "Rekord sudah ada !", vbOKOnly, "Periksa NPM"
Exit Sub
End If
Adodc1.Recordset.AddNew
Text1.Text = npmbaru
Text2.SetFocus
End Sub
Private Sub Command2_Click() 'koreksi
npmkoreksi = InputBox("Ketik NPM yang dikoreksi:", "Cari NPM")
If npmkoreksi = Empty Then Exit Sub
Adodc1.Recordset.Find "NPM='" & npmkoreksi & "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "Rekord belum ada !", vbOKOnly, "Cari NPM"
Exit Sub
End If
Adodc1.Recordset.Update
Text2.SetFocus
End Sub
Private Sub Command3_Click() 'simpan
Adodc1.Recordset.UpdateBatch
End Sub
Private Sub Command4_Click() 'hapus
hapus = MsgBox("Apakah anda yakin akan menghapus rekord ini ?", vbYesNo + vbDefaultButton2,
"Hapus Rekord")
If hapus = vbYes Then
On Error Resume Next
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub
3
Universitas Muhamadiyah Bengkulu Panduan Praktikum Pemrograman Berorientasi Obyek I
Edisi 1. Tahun 2010
Private Sub Command5_Click() 'selesai
Unload Me
End Sub
5. Simpan project dan form anda sekali lagi dan jalankan aplikasi anda atau kompilasi
project anda menjadi sebuah aplikasi basis data untuk 1 tabel. Tampilan akhir setelah kita
coba isi beberapa record seperti berikut ini.
Tugas :
Silahkan buat aplikasi database untuk database perpustakaan, yang mempunyai table anggota
dengan field-field : NoAnggota, Nama, Alamat, TglDaftar; dan table pustaka yang mempunyai
field-field : KodePustaka, JudulPustaka, Pengarang, Penerbit, TahunTerbit.
Demikian acara praktikum kita pada sesi ini, selamat belajar dan sampai jumpa pada sesi
berikutnya.

Absensi Praktikum Tgl. 07 Nopember 2010 silahkan pada Komti Kelas masing-masing.