UAS LAB SMBD

Saat ini saya akan menunjukkan cara membuat aplikasi berbasis asp.net. Aplikasi ini digunakan untuk mengelola transaksi pemesan kamar di sebuah Hostel.

Step 1
Buat database dari data-data yang dimiliki di Microsoft Access, seperti ini:

Step 2
Buat aplikasi di Visual Basic dengan asp.net yang jika dijalankan akan seperti ini;

Source Code
Berikut Source Code  yang digunakan untuk menjalankan aplikasi ini;

Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    Public oConn As New OleDbConnection(constring)
    Public oTbl As New DataTable
    Public xReader As OleDbDataReader
    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 = "INSERT INTO Table_Pelanggan VALUES ('" & TxtID.Text & "','" & TxtNama.Text & "','" & TxtNoReg.Text & "','" & TxtKode.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")
        If hapus = vbYes Then
            oConn.Close()
            oConn.Open()
            Dim delete As String = "DELETE FROM Table_Pelanggan where ID_Pelnaggan =" + TxtID.Text + ""
            Dim oCmd As New OleDbCommand
            oConn.Close()
            oConn.Open()
            oCmd.Connection = oConn
            oCmd.CommandText = delete
            oCmd.ExecuteNonQuery()
            MsgBox("Sudah terhapus", vbArchive)

            TxtID.Text = ""
            TxtNama.Text = ""
            TxtNoReg.Text = ""
            TxtKode.Text = ""
        End If
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sql As String = "UPDATE Table_Pelanggan set ID_Pelanggan ='" & TxtID.Text & "', Nama_Pelanggan =" & TxtNama.Text & "', No_Registrasi =" & TxtNoReg.Text & "', Kode_Kamar =" & TxtKode.Text & "'"
        Dim oCmd As New OleDbCommand
        oConn.Close()
        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
        oConn.Close()
        oConn.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Pelanggan where ID_Pelanggan =" + TxtID.Text + "", oConn)
        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TxtNama.Text = xReader("Nama_Pelanggan")
            TxtNoReg.Text = xReader("No_Registrasi")
            TxtKode.Text = xReader("Kode_Kamar")
        Else
            MsgBox("Kode Pelanggan Tidak Ada")
            TxtID.Text = ""
            TxtNama.Text = ""
            TxtNoReg.Text = ""
            TxtKode.Text = ""
        End If
        xReader.Close()
    End Sub
End Class