Membuat Koneksi Database Access Dengan VB 2010

1. Aktifkan program Visual Basic 2010

 2. Pada menu bar, klik 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. Akan muncul kotak Add Connection, lalu ubah Data Source menjadi Microsoft Access Database File (OLE DB), kemudian masukkan nama dan lokasi file database yang telah dibuat dengan menggunakan tombol Browse, lalu untuk memastikan database terhubung dengan baik klik Test Connection. Jika sudah terhubung maka klik Ok.

 6.Klik Next, kemudian akan muncul dialog box seperti pada gambar di bawah, klik Yes

 7. Pilih Objek Database yang dibutuhkan, klik keduanya (tables dan views) jika keduanya dibutuhkan, lalu klik Next.

 8. Kemudian 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. Maka otomatis akan muncul komponen BindingNavigator, BindingSource, dan DataGridView pada form Visual Basic, dan pada bagian listingnya akan terisi otomatis sesuai dengan database yang digunakan, berikut adalah contoh listing yang digunakan Kelompok 41 dengan menggunakan nama file datasource Buku_TI.

Private Sub Buku_TIBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buku_TIBindingNavigatorSaveItem.ClickMe.Validate()
Me.Buku_TIBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BUKU_TIDataSet)
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 ‘BUKU_TIDataSet.Buku_TI’ table. You can move, or remove it, as needed.
Me.Buku_TITableAdapter.Fill(Me.BUKU_TIDataSet.Buku_TI)
End Sub

10. Berikut adalah contoh susunan komponen-komponen pada visual basic yang didesain oleh kelompok kami:

 Diubah pada textnya menjadi :

 
11. Untuk menggunakan fungsi tambah pada button 1, gunakan listing:

12. Untuk menggunakan fungsi hapus pada button 2, gunakan listing:13. Untuk menggunakan fungsi simpan pada button 3, gunakan listing:

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

Me.Buku_TIBindingSource.RemoveCurrent()

End Sub

13. Untuk menggunakan fungsi simpan pada button 3, gunakan listing:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Validate()
Me.Buku_TIBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BUKU_TIDataSet)
End Sub

14. Untuk menggunakan fungsi keluar pada button 4, gunakan listing:

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

Close()

End Sub

15. Untuk menggunakan fungsi refresh pada button 6, gunakan listing:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Buku_TIDataGridView.Refresh()
TextBox1.Text = Nothing
Label8.Text = Nothing
Label9.Text = Nothing
Label10.Text = Nothing
Label11.Text = Nothing
Label12.Text = Nothing
Label13.Text = Nothing
TextBox8.Text = Nothing
End Sub

16.  Lalu kita memasukan listing agar tombol ‘search’ dapat digunakan untuk mencari data, jika kita hendak mencari dari primary key, yaitu ID dan kemubidan menampilkannya di label 8-13 yang kosong, caranya kita masukan listing berikut pada tombol ‘search’:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim indeks As Integer = Nothing
If TextBox1.Text.Length <> 0 Then
Dim i As Integer
Dim ketemu As Boolean = False
For i = 0 To Buku_TIDataGridView.RowCount – 1
If ketemu = False And Buku_TIDataGridView.Item(0, i).Value = TextBox1.Text Then
ketemu = True
indeks = i
Exit For
End If
Next
If ketemu Then
MessageBox.Show(“Data Ditemukan !”, “Pemberitahuan”, MessageBoxButtons.OK, MessageBoxIcon.Information)
Label8.Text = Buku_TIDataGridView.Item(1, indeks).Value
Label9.Text = Buku_TIDataGridView.Item(2, indeks).Value
Label10.Text = Buku_TIDataGridView.Item(3, indeks).Value
Label11.Text = Buku_TIDataGridView.Item(4, indeks).Value
Label12.Text = Buku_TIDataGridView.Item(5, indeks).Value
Label13.Text = Buku_TIDataGridView.Item(6, indeks).Value
Else
MessageBox.Show(“Data tidak ditemukan !”, “Pemberitahuan”, MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Focus()
End If
Else
MessageBox.Show(“Nama Belum Diisi !”, “Warning”)
End If
End Sub

17. Untuk menyaring data yang ditampilkan pada DataGridView berdasarkan angka atau kata yang diinginkan, munculkan textbox 1 dan masukan listing berikut (nama file datasource yang digunakan adalah Buku_TI):

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Buku_TIBindingSource.Filter = “Judul like ‘%” + TextBox1.Text + “%’OR Pengarang like ‘%” + TextBox1.Text + “%’ OR convert([ID], ‘System.String’) like ‘%” + TextBox1.Text + “%’ OR convert([ISBN], ‘System.String’) 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

18. untuk keluar dari tampilan, pada button 4 (keluar) kita masukkan listing sebagai berikut:

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