BookingDetail.aspx.vb


Imports System.Data.OleDb

Partial Class BookingDetail
    Inherits System.Web.UI.Page

    Protected Sub ButtonCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
        Response.Redirect("BookingBooks.aspx")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim kodemk = Request.QueryString("kodemk")
        If String.IsNullOrEmpty(kodemk) Then
            Return
        End If

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("Database/library.mdb"))


        Dim cmd As OleDbCommand = New OleDbCommand("SELECT KodeMK, Judul, Pengarang, Penerbit FROM books where KodeMK = @KodeMK AND Status = 'Available'", conn)

        cmd.Parameters.Add(New OleDbParameter("@KodeMK", kodemk))


        Try
            conn.Open()
            Dim read As OleDbDataReader = cmd.ExecuteReader()
            If read.HasRows Then
                read.Read()
                TextBoxKodeMK.Text = read.Item(0).ToString()
                TextBoxJudul.Text = read.Item(1).ToString()
                TextBoxPengarang.Text = read.Item(2).ToString()
                TextBoxPenerbit.Text = read.Item(3).ToString()
                TextBoxTglBooking.Text = DateTime.Now.ToString("dd-MMM-yyyy hh:mm")
            Else
                LabelError.Text = "Data Not Found"
            End If
            read.Close()
        Catch ex As Exception
            Response.Write(ex.Message())
        Finally
            conn.Close()
        End Try


    End Sub

    Protected Sub ButtonBooking_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonBooking.Click
        Dim startbook = Convert.ToDateTime(TextBoxTglBooking.Text)
        Dim username = Context.Session("USERNAME").ToString()
        Dim endbook = startbook.AddHours(72)
        Dim status = "Booked"
        Dim kodemk = 0
        Integer.TryParse(TextBoxKodeMK.Text, kodemk)

        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("Database/library.mdb"))


        Dim cmd As OleDbCommand = New OleDbCommand(String.Format("UPDATE books SET [Status] = @Status, TglMulaiBooking = @TglMulaiBooking , TglAkhirBooking = @TglAkhirBooking , BookingBy = @BookingBy where KodeMK=@KodeMK"), conn)
        Dim paramStatus = New OleDbParameter("@Status", status)
        Dim paramTglMulaiBooking = New OleDbParameter("@TglMulaiBooking", startbook)
        Dim paramTglAkhirBooking = New OleDbParameter("@TglAkhirBooking", endbook)
        Dim paramBookingBy = New OleDbParameter("@BookingBy", username)
        Dim paramKodeMK = New OleDbParameter("@KodeMK", kodemk)
        cmd.Parameters.Add(paramStatus)
        cmd.Parameters.Add(paramTglMulaiBooking)
        cmd.Parameters.Add(paramTglAkhirBooking)
        cmd.Parameters.Add(paramBookingBy)
        cmd.Parameters.Add(paramKodeMK)

        Try
            conn.Open()
            cmd.ExecuteNonQuery()
            Response.Redirect("BookingBooks.aspx")
        Catch ex As Exception
            Label4.Text = "BOOKING BOOK ERROR, " & ex.Message
        Finally
            conn.Close()
        End Try

    End Sub
End Class