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.

Rizki Darmawan Membuat Pemrogaman web Input Barang

Assalamualaikum warahmatullahi waabarakatuh.

Berikut saya mengupload tugas UTS pemrogamawan web II dari Bapak Agus.

Nama : Rizki Darmawan
Nim : 161021450453
Kode Kelas : 06TPLE004

MEMBUAT PROGRAM WEB SEDERHANA INPUT BARANG TERKONEKSI KE WORD DAN EXCEL

1. Pertama membuat Projek baru di visual studio, pilih ASP.NET Web Forms Application

lalu membuat table di word dan excel yang akan dikoneksikan ke program.

gambar excel

Gambar word

lalu koneksikan ke word dan excel dengan cara klik kanan pada projek, kemudian pilih Add reference

lalu centang word dan excel.

kemudian tambahkan webform dan membuat tabel desainnya, dengan memasukan toolbox label, textbox dan button

lalu membuat codingan  word, dan sesuaikan tempat penyimpanan filenya serta bookmarknya.

beri

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

juga membuat codingan excel seperti gambar berikut, sesuaikan tempat penyimpanan file dan cell kolomnya.

kemudian jalankan programnya

beginilah tampilan program untuk menginput barang ke word dan excel.

isi data barang yang akan diinput.

tekan Save Word untuk mengkoneksikan ke word.

tekan Save Excel untuk mengkoneksikan ke excel.

Beginilah output program yang sudah berhasil dikoneksikan

Gambar Pada word

Gambar Pada Excel

Cukup sekian, apabila ada kekuranngan saya mohon maaf.

Assalamualaikum warahmatullahi waabarakatuh.