UAS LAB SMBD SEMESTER 4

Nama : Joshua Gunaydo Siemuel
NPM : 1506761021

 Pengunaan fungsi  seperti Trigger dan stored procedure yang akan dihubungkan ke ASP.NET dengan kasus penjualan voucher game online berikut adalah penyelesaiannya:

Table Costumer

Table Voucher

Table Order

Untuk memasukan trigger dan stored procedure pada Ms.Access , klick query desing pada Toolbar di kiri atas, lalu arahkan cursor ke arah kiri atas yang bertuliskan view lalu pilih sql seperti ini:

Lalu setelah menulis stored procedurenya, pilih Opsi RUN (tepat disebelah view)

CREATE TRIGGER TotalVoucher on TableVoucher

for insert
as
update data set data.voucher = jual.jumlah+ hargavoucher.HargaVoucher
from TableVoucher join inserted data on data.voucher=mdl.NoPeserta

CREATE PROCEDURE TambahVoucher

@KodeVoucher VarChar(50),@JenisVoucher VarChar(50),@HargaVoucher Currency(18,0)
AS
BEGIN
SET NOCOUNT ON
INSERT INTO DataAtlet
(
KodeVoucher, JenisVoucher, HargaVoucher
)
VALUES
(
@KodeVoucher, @JenisVoucher, @HargaVoucher
)
END

Tampilan Web

Source Code

Imports System.Data

Imports System.Data.SqlClient

Public Class WebForm1

    Inherits System.Web.UI.Page

    Public constring As String =

        ConfigurationManager.ConnectionStrings("DBlesConnectionString").ConnectionString

    Public oconn As New SqlConnection(constring)

    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 ocmd As New SqlCommand

        oconn.Open()

        ocmd.Connection = oconn

        ocmd.CommandText = "TambahVoucher"

        ocmd.CommandType = CommandType.StoredProcedure

        ocmd.Parameters.Add("@KodeOrder", SqlDbType.NChar, 50).Value = TextBox1.Text

        ocmd.Parameters.Add("@KodeVoucher", SqlDbType.NChar, 50).Value = TextBox2.Text

        ocmd.Parameters.Add("@KodeCostumer", SqlDbType.NVarChar, 50).Value = TextBox3.Text

        ocmd.Parameters.Add("@JumlahVoucher", SqlDbType.Int, 18).Value = TextBox4.Text

        ocmd.ExecuteNonQuery()

        MsgBox("Input Berhasil")

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Response.Redirect("WebForm2.aspx")

    End Sub

End Class

HASIL

SEKIAN DAN TERIMA KASIH