Posted on

TUTORIAL MEMBUAT MENGKONEKSIKAN DATABASE DARI MICROSOFT ACCESS 2007 DENGAN MICROSOFT VISUAL BASIC 2010

TUTORIAL MEMBUAT MENGKONEKSIKAN DATABASE DARI MICROSOFT ACCESS 2007 DENGAN MICROSOFT VISUAL BASIC 2010

 


Membuat Database sangat bermanfaat bagi kehidupan sekarang ini salah satu manfaatnya adalah dapat melakukan pengolahan data dengan cepat dan tepat. Membuat database dapat melalui mana saja seperti Microsoft Acces, MY SQL, fire bird, dll. Pengaplikasian data base dapat dilakukan dengan microsoft visual basic 2010 dan tentunya dapat lebih membantu dalam pengolahan database itu sendiri. Cara membuat aplikasi dan mengkoneksikan database pada Microsoft Acces 2007 dengan  Microsoft Visual Basic 2010 adalah seperti berikut:

 1. Pertama-tama buatlah database dengan menggunakan microsoft Access 2007. Misalnya adalah contoh database seperti di bawah ini:

 

 

2. Bukalah Microsoft Visual Basic 2010 dan pilih Binding Navigator, Binding Source dan Data Grid View pada ToolBox.

3. Klik sekali pada Kotak abu-abu Datagridview, lalu lihat di properties, klik pada Data Source dan klik Add Project Data Source. Maka akan muncul kotak dialog seperti berikut:

 

 

4. Pilih Database – Next – Dataset – New Connection – maka akan muncul kotak dialog:

 

 

 

5. Pada Data Source klik Change dan pilih Microsoft Acces Database File :

 

 

6. Klik ok, kemudian pilih browse di tempat menyimpan Access database. Kemudian pilih test connection kalau benar akan muncul seperti ini:

Lalu klik OK.

 

 

7. Kemudian Next kalau ada pilihan dibawah ini klik yes

 

 

 

8. Kemudia check  tables dan Finish

 

 

 

9. Bila benar tampilanya akan seperti ini:

 

 

10. Klik sekali pada Binding Source, properties pada data source pilih database access yang telah dibuat seperti diatas.

11.  Klik sekali pada Binding Navigator, properties pada binding source pilih database access yang telah dibuat seperti diatas.

12.  Untuk menambahkan fungsi add, removed, save lakukan hal berikut:

 

 

  • Dapat dengan membuat  button  add sendiri atau dengan button add yang telah disediakan pada binding navigator.

Untuk menambahkan button: dobel klik pada button yang telah dibuat misal button 1 lalu ketikkan listing berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Kel11BindingSource.AddNew()

End Sub

 

Sedangkan apabila lewat button add pada binding navigator,cukup di klik aja maka perintah akan langsung jalan.

 

  • Dengan membuat button remove sendiri  atau dengan button remove yang telah disediakan pada binding navigator.

Untuk menambahkan button: dobel klik pada button yang telah dibuat misal button 2 lalu ketikkan listing berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Kel11BindingSource.RemoveCurrent()

End Sub

 

Sedangkan apabila lewat button remove pada binding navigator,cukup di klik aja maka perintah akan langsung jalan.

 

  • Dengan membuat button save sendiri  atau dengan button save yang telah disediakan pada binding navigator.

Untuk menambahkan button: dobel klik pada button yang telah dibuat misal button 3 lalu ketikkan listing berikut:

rivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Validate()

Me.Kel11BindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

End Sub

 

Sedangkan apabila lewat button save pada binding navigator,cukup di klik aja maka perintah akan langsung jalan.

 

  • Dapat juga menambahkan perintah keluar. Dengan Membuat button lagi ,misal button 4 lalu ketikkan listing berikut:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Close()

End Sub

  • Apabila ingin menambahkan fungsi search: buatlah textbox misal textbox 1 lau masukkan listing berikut:

Kel11BindingSource.Filter = “NIM like ‘%” + TextBox1.Text + “%’OR Nama like ‘%” + TextBox1.Text + “%’OR Alamat like ‘%” + TextBox1.Text + “%’ OR convert([Nomor HP], ‘System.String’) like ‘%” + TextBox1.Text + “%’ OR Asal like ‘%” + TextBox1.Text + “%’ OR convert([Tanggal Lahir], ‘System.String’) like ‘%” + TextBox1.Text + “%'”

 

Kel11BindingSource adalah nama bindingsource yang digunakan. NIM,Nama,Alamat,Nomor HP,Asal,Tanggal Lahir adalah contoh isi atau bagian dari database yang digunakkan. Untuk Data yang belum berupa text seperti Nomor Hp dan Tanggal lahir harus di konvert ke string terlebih dahulu menggunakan listing diatas.

 

Apabila di run maka akan seperti ini:

Dan dengan menggunakan fungsi search :

 

 

NB: Apabila ingin remove dan add secara permanen maka harus diakhiri dengan save.

 

Apabila ingin membuat agar Data base di Visual Basic dengan Database di Access saling berhubungan maka:

  • Buka Database di Acces – Pada Jendela Exterbal data klik Acces – pilih link to data source by creating a linked table – browse ke directory save file visual basic untuk membuat aplikasi berada, masuk ke bin, kemudian debug lalu pilih database access file sesuai dengan database yang diinginkan – kemudian OK.

 

 

 

FLOWCHART 

Gambar Flowcchartnya adalah seperti dibawah ini:


About these ads

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