Membuat Database berbasis ASP terkoneksi ke Acces

Assalamualaikum warahmatullahi wabarakatuh

Nama : Rizki Darmawan
Nim : 161021450453
Kelas : 06tple004

DESKRIPSI.

Setelah sebelumnya membuat data terkoneksi ke word dan excel menggunakan visual studio,
kali ini saya mencoba membuat database terkoneksi ke acces menggunakan visual studio.
aplikasi ini saya beri nama penginputan barang di toko.
dimana pedagang atau kasir dapat menggunakan aplikasi ini, yang terdiri dari beberpa kolom pada table yaitu kolom nomor,nama barang, jenis barang, aplikasi ini bertujuan untuk menginput barang dan harga barang.

Gambar Desain Penginputan baranng

Gambar Desain Log In

 Gambar Run Penginputan barang/hasil output di acces

Gambar Import references

Source Code Log In

Imports System.Data.OleDb

Public Class WebForm2

    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\uasdb.accdb"

        Dim objKoneksi As New OleDb.OleDbConnection(koneksi)

        Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM tbnama WHERE tbpassword = ‘" & Login.Username & "‘ AND Password = ‘" & Login.Password & "‘ ", objKoneksi)

        Dim user As String = ""

        Dim pass As String = ""

        objKoneksi.Open()

        Dim ehe As OleDbDataReader = cmd.ExecuteReader()

        If (ehe.Read() = True) Then

            MsgBox("Login Berhasil !")

        Else

            MsgBox("Salah Memasukan Username atau Password !")

        End If

    End Sub

End Class

Source Code Penginputan Barang

mports System.Data

Imports System.Data.OleDb

Public Class WebForm1

    Inherits System.Web.UI.Page

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\uasdb.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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        objekkoneksi.Open()

        Dim Tambah As String = "INSERT INTO table_barang VALUES ('" & tbnomor.Text & "', '" & tbnama.Text & "', '" + tbjenis.Text + "', '" + tbharga.Text + "')"

        Dim oCmd = New OleDbCommand(Tambah, objekkoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("Success")

    End Sub

End Class

Cukup sekian aplikasi sederhana yang saya buat, mohon maaf bila masih banyak kekurangan

Assalamualaikum warahmatullahi wabarakatuh.