Tutorial Untuk Membuat Database Pada Visual Basic 2010

1 Dec

Tutorial Teknologi Informatika Visual Basic 2010

“Program Database Pengarang Buku”

Pada modul 3 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 Basic.Net 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 System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

Me.BUKUBindingSource.AddNew()

BUKUDataGridView.Enabled = True

End Sub

  • Listing untuk menghapus baris dan data

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

Me.BUKUBindingSource.RemoveCurrent()

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 System.Object, ByVal e As System.EventArgs) Handles FillByPengarang3ToolStripButton.Click

Try

Me.BUKUTableAdapter.FillByPengarang3(Me.Database_BukuDataSet.BUKU)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

Me.BUKUTableAdapter.FillByPengarang3(Me.Database_BukuDataSet.BUKU)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub

  • Untuk Mencari Data Pada Database

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

BUKUBindingSource.Filter = “ISBN like ‘%” + TextBox1.Text + “%’OR Judul like ‘%” + TextBox1.Text + “%’OR Pengarang like ‘%” + TextBox1.Text + “%’OR Penerbit like ‘%” + TextBox1.Text + “%’ OR convert([Tahun], ‘System.String’) like ‘%” + TextBox1.Text + “%’ OR convert([Harga], ‘System.String’) like ‘%” + TextBox1.Text + “%'”

End Sub

End Class

End Sub

12.  File >> Save All (untuk menyimpan file).

berikut ini adalah contoh program yang telah dibuat:

http://www.mediafire.com/?tvvegi7brqlxm3m

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: