Imports Microsoft.VisualBasic
Imports System.Data

Public Class RezervationDB
    Private connectionstring As String = ConfigurationSettings.AppSettings("connectionstring")

    Function SelectReservationWithCatRoom(ByVal RoomID As Integer) As DataTable
        Dim sqlconnect As New SqlClient.SqlConnection(connectionstring)
        Dim DT As New DataTable
        Dim sqlDA As New SqlClient.SqlDataAdapter("SelectReservationWithCatRoom", sqlconnect)
        sqlDA.SelectCommand.CommandType = CommandType.StoredProcedure

        sqlDA.SelectCommand.Parameters.Add("@RoomID", SqlDbType.Int).Value = RoomID
        sqlDA.Fill(DT)
        Return DT

    End Function

    Sub AddReservation(ByVal RoomID As Integer, ByVal Name As String, ByVal Family As String, ByVal Address As String, ByVal Tel As String, ByVal Email As String)
        Dim sqlconnect As New SqlClient.SqlConnection(connectionstring)
        Dim sqlcom As New SqlClient.SqlCommand("AddReservation", sqlconnect)
        sqlcom.CommandType = CommandType.StoredProcedure

        sqlcom.Parameters.Add("@RoomID", SqlDbType.Int).Value = RoomID
        sqlcom.Parameters.Add("@Name", SqlDbType.NVarChar).Value = Name
        sqlcom.Parameters.Add("@Family", SqlDbType.NVarChar).Value = Family
        sqlcom.Parameters.Add("@Address", SqlDbType.NVarChar).Value = Address
        sqlcom.Parameters.Add("@Tel", SqlDbType.NVarChar).Value = Tel
        sqlcom.Parameters.Add("@Email", SqlDbType.NVarChar).Value = Email

        sqlconnect.Open()
        sqlcom.ExecuteNonQuery()
        sqlconnect.Close()
    End Sub
End Class