Aplikasi Kasir Sport Station Berbasis Web/ASP Visual Studio (VB.Net)

Assalamualaikum
Selamat Malam Kawan Sekalian

Balik lagi di blog saya yang apa adanya ini , kali ini saya akan memposting tentang aplikasi web berbasis vb.net menggunakan visual studio dan terkoneksi dengan data base menggunakan microsoft access

Pertama kita akan membuat data base menggunakan access seperti di gambar di bawah ini , saya membuat 2 tabel yaitu tabel database barang dan tabel login :

selanjutnya buka microsoft visual studio


lalu saya akan menjalankan contoh program sederhana yang saya buat
saya membuat 3 form yaitu login , input dan database

Login

Input

Data Base

diatas adalah program sebelum di run

setelah di run seperti di bawah ini

Login

Input

DataBase

Demikian program sederhana saya . lebih kurang nya saya mohon maaf
source code ada di bawah ini

wasalamualaikum


Login
Imports System.Data Imports System.Data.OleDb Public Class Login_HafizF161011401334 Inherits System.Web.UI.Page Dim oConn As New OleDbConnection Dim sql As String Public Sub dbkonek() Dim server As String server = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Database_HafizFaturrachman161011401334.accdb" oConn = New OleDbConnection(server) oConn.Open() End Sub 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 If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("Data Login Belum Lengkap", MsgBoxStyle.Information, "") Exit Sub Else dbkonek() Dim query = New OleDbCommand("select * from Login_HafizF161011401334 where Username ='" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'", oConn) Dim y = query.ExecuteReader y.Read() If y.HasRows Then Response.Redirect("Input_HafizFaturrachman161011401334.aspx") TextBox1.Text = "" TextBox2.Text = "" Else MsgBox("Username atau Password Salah !", MsgBoxStyle.Critical, "") End If End If End Sub End Class

Input


Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Public Class Input_HafizFaturrachman161011401334 Inherits System.Web.UI.Page Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString Dim oConn As New OleDbConnection(constring) Dim oTbl As New DataTable Dim xReader As 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 TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" End Sub Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Response.Redirect("WebForm_HafizFaturrachman161011401334.aspx") End Sub Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If Not Len(TextBox1.Text) = 0 Then oConn.Close() oConn.Open() Dim ocmd As New OleDbCommand("SELECT * FROM DataBase_HafizFaturrachman161011401334 where KodeBarang='" + TextBox1.Text + "'", oConn) xReader = ocmd.ExecuteReader If xReader.HasRows Then xReader.Read() TextBox2.Text = xReader("NamaBarang") TextBox3.Text = xReader("Merk") TextBox4.Text = xReader("Gender") TextBox5.Text = xReader("TipeBarang") TextBox6.Text = xReader("Jumlah") TextBox7.Text = xReader("Harga") Else MsgBox("Username atau Password Salah !", MsgBoxStyle.Critical, "") End If xReader.Close() End If End Sub Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim sql As String = "INSERT INTO Database_HafizFaturrachman161011401334 VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')" Dim oCmd As New OleDbCommand oConn.Open() oCmd.Connection = oConn oCmd.CommandText = sql oCmd.ExecuteNonQuery() End Sub Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Response.Redirect("Login_HafizF161011401334.aspx") End Sub End Class

DataBase


Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Public Class WebForm_HafizFaturrachman161011401334 Inherits System.Web.UI.Page Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString Dim oConn As New OleDbConnection(constring) Dim oTbl As New DataTable Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim sql As String = "DELETE FROM DataBase_HafizFaturrachman161011401334 where KodeBarang = ('" & TextBox1.Text & "');" Dim oCmd As New OleDbCommand oConn.Open() oCmd.Connection = oConn oCmd.CommandText = sql oCmd.ExecuteNonQuery() End Sub Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Response.Redirect("Input_HafizFaturrachman161011401334.aspx") End Sub Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Response.Redirect("WebForm_HafizFaturrachman161011401334.aspx") End Sub End Class