Pada postingan kali ini saya akan membagikan tutorial cara membuat aplikasi berbasis web dan terkoneksi pada microsoft access dengan menggunakan aplikasi Visual Studio 2012.

Berikut adalah komponen pendukung dari aplikasi ini :

        -          Button   

        -         TextBox

Membuat project baru
 Klik file lalu pilih new project

Lalu klik web dan pilih ASP.NET Empty Web Application

Klik kanan pada "webapplication1" pilih "add" pilih "web form"

 Ubah nama web form sesuai kebutuhan

Lalu akan muncul tampilan pada design seperti ini 

Buat design penjualan buku sebagai berikut

Untuk mengkoneksikan folder di acces kedalam aplikasi web pertama kita harus membuat tabel access terlebih dahulu, contohnya sebagai berikut

Lalu kembali pada aplikasi Visual Studio. Pilih Data Connection yang ada di sebelah kiri lalu klik kanan dan pilih "Add Connection"

Pilih browse lalu klik folder access dan klik test connection 

Akan muncul tampilan sebagai berikut 

Tampilan run pada web browser sebagai berikut 

Tampilan pada microsoft access sebgi berikut 

Berikut coddingan untuk aplikasi penjualan buku berbasis web menggunakan aplikasi Visual Studio 2012

Imports System.Data
Imports System.Data.OleDb


Public Class WebFormPenjualanBuku
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\WIN 8.1 Core\Documents\DataPenjualanBuku.accdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim XReader As OleDb.OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub save_Click(sender As Object, e As EventArgs) Handles save.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO [penjualan buku] values('" & TxtIsbn.Text & "','" & TxtJdl.Text & "','" & TxtPgrng.Text & "','" & TxtPenerbit.Text & "','" & TxtThn.Text & "','" & TxtHrg.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

    End Sub

    Protected Sub view_Click(sender As Object, e As EventArgs) Handles view.Click
        Response.Redirect("WebFormView.aspx")
    End Sub

    Protected Sub find_Click(sender As Object, e As EventArgs) Handles find.Click
        If Not Len(TxtJdl.Text) = 0 Then

        End If
        objekKoneksi.Close()
        objekKoneksi.Open()
        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM [penjualan buku] where ISBN='" + TxtIsbn.Text + "'", objekKoneksi)

        XReader = ocmd.ExecuteReader()

        If XReader.HasRows Then
            XReader.Read()
            TxtIsbn.Text = XReader("ISBN")
            TxtJdl.Text = XReader("Judul")
            TxtPgrng.Text = XReader("Pengarang")
            TxtPenerbit.Text = XReader("Penerbit")
            TxtThn.Text = XReader("Tahun")
            TxtHrg.Text = XReader("Harga")
            update.Enabled = True
            delete.Enabled = True
        Else
            TxtJdl.Text = "TIDAK DI TEMUKAN"
            Exit Sub
        End If
        XReader.Close()
    End Sub

    Protected Sub update_Click(sender As Object, e As EventArgs) Handles update.Click
        objekKoneksi.Open()
        Dim rubah As String = "UPDATE [penjualan buku] set Harga='" + TxtHrg.Text + "' where ISBN='" + Trim(TxtIsbn.Text) + "'"
        Dim oCmd = New OleDbCommand(rubah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("sukses")
        objekKoneksi.Close()
    End Sub

    Protected Sub delete_Click(sender As Object, e As EventArgs) Handles delete.Click
        TxtIsbn.Text = ""
        TxtJdl.Text = ""
        TxtPgrng.Text = ""
        TxtPenerbit.Text = ""
        TxtThn.Text = ""
        TxtHrg.Text = ""
    End Sub
End Class