Cara Mengkoneksikan Query Database Ms.Access Dengan Visual Basic.NET ~ Blogger Cirebon

Sebelumnya saya sudah membagikan bagaimana cara membuat suatu Database pada Ms. Acces dan belajar Query didalamnya.
namun kali ini saya akan membahas bagaimana suatu Query tersebut bisa ditampilkan diprogram Visual Basic (VB.Net).
Pertama yang harus kita lakukan adalah membuat suatu database pada Ms.Acces caranya bisa dilihat Disini
Kedua Buat Project baru pada Visual Basic/Visual Studio/VB.NET, disini saya menggunakan Visual Studio 2010

Cara Membuat Project Baru

Jalankan Aplikasi Visual Studio, kemudian Klik New Project-> Windows Form Application->Isi nama Project -> OK

Selanjutnya buat Desain pada Form1 seperti gambar berikut

Masukan items pada ComboBox dengan cara klik tanda arah panah pada sebelah atas kanan ComboBox kemudian pilih Edit items ketikan didalamnya Soal 1, Soal 2, dan Soal 3 dan klik OK

Setelah selesai membuat desain pada Form1, langkah selanjutnya membuat Class baru dengan nama koneksi. caranya pilih Solution Exploler-> klik kanan Nama Project (Latihanquery)->Add->Class
Solution Exploler > Latihan Query (nama project) > Add > Class.

Source: http://ilmu-tekkom.blogspot.co.id/2016/05/latihan-query-menggunakan-visual-basic.html
Disalin dari ILMU TEKKOM - Catatan seputar komputer.
Solution Exploler > Latihan Query (nama project) > Add > Class.

Source: http://ilmu-tekkom.blogspot.co.id/2016/05/latihan-query-menggunakan-visual-basic.html
Disalin dari ILMU TEKKOM - Catatan seputar komputer.
Solution Exploler > Latihan Query (nama project) > Add > Class.

Source: http://ilmu-tekkom.blogspot.co.id/2016/05/latihan-query-menggunakan-visual-basic.html
Disalin dari ILMU TEKKOM - Catatan seputar komputer.
Solution Exploler > Latihan Query (nama project) > Add > Class.

Source: http://ilmu-tekkom.blogspot.co.id/2016/05/latihan-query-menggunakan-visual-basic.html
Disalin dari ILMU TEKKOM - Catatan seputar komputer.

Isi nama Class tersebut dengan koneksi, lalu Add

Class Koneksi sudah dibuat, selanjutnya isikan Script berikut pada form Koneksi

     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=Database1.accdb")
        Try
            kon.Open()
        Catch ex As Exception
            MsgBox("Koneksi ke database GAGAL Silahkan periksa koneksi")

        End Try
        Return True
    End Function
End Class

kemudian Isikan Script berikut pada form1

Imports System.Data.OleDb
Public Class Form1
    Dim objkon As New koneksi
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal 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_Pekerjaan.Tunjangan_Kinerja+Tb_Jabatan.Gaji_Pokok+Tb_Jabatan.Tunjangan_Jabatan) as 'Gaji Total' FROM Tb_Karyawan, Tb_Pekerjaan, Tb_Jabatan, Tb_Divisi WHERE Tb_Karyawan.Nip = Tb_Pekerjaan.Nip AND Tb_Jabatan.Kd_Jabatan = Tb_Pekerjaan.Kd_Jabatan AND Tb_Divisi.Kd_Divisi = Tb_Pekerjaan.Kd_Divisi"
        ElseIf ComboBox1.Text = "Soal 3" Then
            sql = "SELECT Tb_Karyawan.NIP, Tb_Karyawan.Nama_Lengkap, Tb_Pekerjaan.Kota_Penempatan, Tb_Jabatan.Nama_Jabatan, Tb_Jabatan.Gaji_Pokok, Tb_Divisi.Nama_Divisi FROM Tb_Karyawan,Tb_Jabatan,Tb_Pekerjaan,Tb_Divisi WHERE Tb_Karyawan.NIP=Tb_Pekerjaan.NIP And Tb_Jabatan.Kd_Jabatan=Tb_Pekerjaan.Kd_Jabatan And Tb_Divisi.Kd_Divisi=Tb_Pekerjaan.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

tahap selanjutnya salin database yang sudah dibuat dengan format *.accdb dan paste pada Folder C:\Users\...\Documents\Visual Studio 2010\Projects\Latihanquery\Latihanquery\bin\Debug

nah sekarang kita tinggal menjalankan programnya, pertama Build Solution (Ctrl+Shift+B) untuk memastikan program tidak ada error

jika tidak ditemukan error, selanjutnya jalankan programnya dengan cara klik Debug (F5)

Maka akan tampil form1 yang sedang Running, untuk mengecek Query yang ada diperintah Script tadi kita pilih Soal 1/ Soal 2/Soal 3 pada ComboBox pilihan soal