1.
PEMROGRAMAN DATABASE
Pada modul ini, kami mempelajari tentang bagaimana membuat database menggunakan
Microsoft Access 2007 dan mengkoneksikannya dalam program Visual basic 2010. Program
database yang kami buat adalah Database daftar buku.
Langkah pertama adalah kita membuat database di Microsoft Access 2007
Langkah-langkah pembuatan programnya :
1. Membuka Aplikasi Microsoft Access 2007
2. Klik Blank Document
3. Lalu pada File Name, ketik nama Database yang ingin anda buat, lalu klik Create.
3. Kemudian klik View dan ketik Buku, lalu klik ok.
Maka akan muncul muncul tampilan berikut:
4. Lalu buat table Buku dengan struktur berikut :
No Field Name Data Type
1 ISBN Text (10)
2 Judul Text (30)
3 Pengarang Text (20)
4 Penerbit Text (15)
5 Tahun Text (4)
6 Harga Currency (Standard)
Lalu klik View > ok.
5. Kemudian isi data ke dalam table Buku, lalu save.
Maka tampilan Database yang sudah kita buat pada Microsoft Access adalah sebagai berikut :
BUKU
ISBN Judul Pengarang Penerbit Tahun Harga
596007124 Head first design pattern Erick Freeman O Relly 2004 Rp500.000
9793398806 Oracle SQL dan PL/SQL Imam Heryanto Informatika 2006 Rp85.000
9797317870 Pemrograman Java Rijaul Fikri Andi Offset 2005 Rp75.000
9797562243 Data Mining Budi Santosa Graha Ilmu 2007 Rp60.000
9797633802 Visual [Link] 2005 Widodo Budiharto Andi Offset 2005 Rp45.000
Setelah kita membuat databasenya di Microsoft Access, lalu kita mengkoneksikan database
tersebut ke program Visual Basic 2010.
Langkah-langkah sebagai berikut :
1. Membuka Aplikasi Visual Basic 2010, lalu pilih File > New Project, maka akan
muncul tampilan berikut:
2. Klik ok maka akan mucul tampilan seperti berikut:
3. Kemudian pada Toolbox, pilih komponen BindingNavigator, Binding Source, dan
DataGridView. Dengan tampilan sebagai berikut:
4. Klik pada BindingSource1, lalu lihat properties DataSource > Add Project DataSource >
Database > Dataset New Connection. Lalu ganti kolom pada Data Source dengan memilih
menu Change, ganti sesuai database yang akan dipakai (Microsoft Access Database File)
5. Kemudian bila ada perintah, maka klik Yes
Dengan tampilan sebagai berikut :
6. Centang Table lalu klik finish, dengan tampilalan sebagai berkut :
7. Klik pada DataGridView1, lalu lihat properties DataSource > Add Project DataSource >
Database > Dataset New Connection. Lalu ganti kolom pada Data Source dengan memilih
menu Change, ganti sesuai database yang akan dipakai (Microsoft Access Database File)
8. Kemudian bila ada perintah, maka klik Yes
Dengan tampilan sebagai berikut :
9. Centang Table lalu klik finish, dengan tampilalan sebagai berkut :
Maka pada DataGridView1 akan muncul tabel Database yang sudah kita buat pada Microsoft
Access 2007 sebelumnya.
10. Untuk menambah baris pada DataGridView1 dapat menggunakan
BindingNavigatorAddNewItem dan untuk menghapus baris dapat menggunakan
BindingNavigatorDeleteItem.
• Listing untuk menambah baris dan data:
Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
[Link] = True
End Sub
• Listing untuk menghapus baris dan data
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link]()
End Sub
End Class
11. Untuk mencari data yang diinginkan, terlebih dahulu kita membuat TextBox dan Label
pada ToolBox, kemudian kita membuat Button Temukan. Dengan tampilan gambar dan
listing berikut ini :
• Pada Form
Private Sub FillByPengarang3ToolStripButton_Click(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
Try
[Link].FillByPengarang3(Me.Database_BukuDataSet.BUKU)
Catch ex As [Link]
[Link]([Link])
End Try
End Sub
Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link])
Try
[Link].FillByPengarang3(Me.Database_BukuDataSet.BUKU)
Catch ex As [Link]
[Link]([Link])
End Try
End Sub
• Untuk Mencari Data Pada Database
Private Sub TextBox1_TextChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = “ISBN like ‘%” + [Link] + “%’OR Judul like ‘%” +
[Link] + “%’OR Pengarang like ‘%” + [Link] + “%’OR Penerbit like ‘%” +
[Link] + “%’ OR convert([Tahun], ‘[Link]’) like ‘%” + [Link] +
“%’ OR convert([Harga], ‘[Link]’) like ‘%” + [Link] + “%’”
End Sub
End Class
End Sub
12. File >> Save All (untuk menyimpan file).