Koneksi DataBase Dari MS.ACCES Ke Virtual Studio 2010

Selamat datang di blog saya kali ini saya akan menjelaskan tentang cara membuat koneksi dari MS.Acces ke Virtual Studio 2010.
Langsung saja ke intinya hal pertama yg di butuhkan adalah bahan - bahan pendukung nya yaitu :
1. Laptop yg sudah terinstall Virtual Studio (bisa memakai yg versi apapun tapi saya menggunakan yg 2010)
2. Table Database yg di buat di MS.Acess bila anda belum mempunyai nya silahkan untuk membuatnya dengan cara mengikuti langkah - langkah yg ada di ==> Klik Di Sini <==

Setelah Bahan - bahan yg di perlukan sudah ada maka langkah selanjutnya adalah :

1. Buka Virtual Studio nya




2. Buat New Project




3. Pilih "Windows Forms Application" (tanpa tanda kutip)  Lalu klik OK




4. Setelah itu silahkan buat design/Tampilan nya seperti di bawah ini menggunakan :

-          - Panel

-          - DataGridView

-          - Label : Tampil Data

-          - ComboBox : Soal 1, Soal 2

5. Lalu buat Class baru dengan cara Klik kanan pada nama project yg berada di atas kanan tampilan di bawah ini ->ADD->New Item




6. Setelah itu pilih "Class" dan beri nama class nya "koneksi.vb" lalu pilih ADD lalu kita save as program nya lalu debug, agar ada folder debug saat mengcopy access nya.




7. Lalu copykan file MS.ACCES yg kita buat tadi dari tutorial di postingan saya sebelum nya ke Destinasi files seperti di bawah ini




8. Jika sudah di copykan silahkan isikan Kodingan di bawah ini di Class koneksi.vb yg telah kita buat tadi

Imports System.Data.OleDb

Public Class koneksi

       Public kon As OleDbConnection

       Public Function konek()

kon = New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=latihan1.accdb")

        Try

            kon.Open()

        Catch ex As Exception

            MsgBox("Koneksi ke database GAGAL silahkan periksa koneksi")

        End Try

        Return True

       End Function

End Class

9. Kodingan di atas untuk notif bila koneksi dari MS.ACCES ke Virtual Studio nya tidak terhubung.

Lalu klik 2x di ComboBox untuk mengisi kodingan di ComboBox nya.

10. Lalu isi kodingan ComboBox nya seperti di bawah ini :

Imports System.Data.OleDb

Public Class Form1

          Dim objkon As New koneksi

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)Handles ComboBox1.SelectedIndexChanged

        Dim sql As String

        

If ComboBox1.Text = "Soal 1" Then

sql = "Select tb_karyawan.NIP,tb_karyawan.Nama_Lengkap,tb_karyawan.Gender,tb_karyawan.Alamat,tb_pekerjaan.Tunjangan_Kinerja,tb_pekerjaan.Kota_Penempatan from tb_karyawan,tb_pekerjaan where tb_karyawan.NIP=tb_pekerjaan.NIP"

       

ElseIf ComboBox1.Text = "Soal 2" Then

sql = "Select tb_karyawan.NIP,tb_karyawan.Nama_Lengkap,tb_jabatan.Nama_Jabatan,tb_divisi.Nama_Divisi,(tb_jabatan.Gaji_Pokok+tb_jabatan.Tunjangan_Jabatan+tb_pekerjaan.Tunjangan_Kinerja) as Gaji_Total from tb_karyawan,tb_pekerjaan,tb_jabatan,tb_divisi where tb_karyawan.NIP=tb_pekerjaan.NIP and tb_pekerjaan.Kd_Jabatan=tb_jabatan.Kode_Jabatan and tb_pekerjaan.Kd_Divisi=tb_divisi.Kd_Divisi "

        End If

        Try

            objkon.konek()

            Dim qry As New OleDbDataAdapter(sql, objkon.kon)

            Dim dt As New DataSet

            qry.Fill(dt, "tb_karyawan")

            DataGridView1.DataSource = dt.Tables("tb_karyawan")

        Catch ex As Exception

            MsgBox(ex)

        End Try

       End Sub

End Class

11. Lakukan rebuild bila semua sudah terlaksanakan untuk membersihkan kodingan nya/ membangun
ulang kodingan dan program nya seperti di bawah ini.

12. Lalu kita mulai Debuging dengan cara menekan F5 atau bisa mengklik icon panah hijau seperti ini

13. Setelah itu ubah menu di ComboBox nya dan pilih menu "Soal 1" yg sudah kita isi kodingan beserta SQL untuk memanggil jika berhasil akan keluar tampilan seperti di bawah ini.

14. Dan selanjutnya coba di ubah dari "Soal 1" ke "Soal 2" jika berhasil tampilan nya akan seperti di bawah ini.

*Terimakasih telah menyimak materi yg saya jelaskan di atas semoga ilmu nya bermanfaat untuk kita semua terutama untuk umat manusia hahahahaha.
Sekian dari saya terimakasih wasalam.....*