Tutorial Mengaktifkan Koneksi VB 2010 dengan Database MS Access

 

1. Aktifkan program Visual Basic 2010

2. Menu bar- Data- add new datasource- New connection.

3. Pilih Database pada Pemilihan Tipe Data Source, lalu klik Next.

4. Pada pemilihan Data Connection, klik New Connection.

5. Muncul kotak Add Connection, ubah Data Source menjadi Microsoft Access Database File (OLE DB), lalu masukkan nama dan lokasi file database yang telah dibuat dengan menggunakan tombol Browse.

6. Lakukan uji koneksi dengan cara klik Test Connection untuk memastikan database terhubung dengan baik. Jika sudah terhubung maka klik Ok.

7. Klik Next, pilih Yes

8. Pilih Objek Database yang dibutuhkan, aktifkan (centang) tables dan views lalu klik Next.

9. Pada bagian kiri layar, klik Datasource, maka akan muncul database yang telah dimasukkan, lalu drag data yang akan ditampilkan pada Visual Basic, kemudian drop di form Visual Basic yang kosong.

9. Muncul BindingNavigator, BindingSource, dan DataGridView pada bagian bawah form Visual Basic.

10. Sekarang, untuk mengaktifkan tombol-tombol yang ingin digunakan, masukkan listing:

Private Sub BUKUBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUKUBindingNavigatorSaveItem.Click

Me.Validate()

Me.BUKUBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Database_BukuDataSet)

 

End Sub

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘TODO: This line of code loads data into the ‘Database_BukuDataSet.BUKU’ table. You can move, or remove it, as needed.

Me.BUKUTableAdapter.Fill(Me.Database_BukuDataSet.BUKU)

 

End Sub

 

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

Me.Validate()

Me.BUKUBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Database_BukuDataSet)

End Sub

 

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

Me.BUKUBindingSource.AddNew()

BUKUDataGridView.Enabled = True

End Sub

 

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

Me.BUKUBindingSource.RemoveCurrent()

End Sub

11. Terakhir, adalah perintah untuk mengaktifkan menu Search

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

BUKUBindingSource.Filter = “convert([ISBN], ‘System.String’) 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