Imports System.Data
Imports Microsoft.VisualBasic

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

    Function SelectAllRoom() As Data.DataTable

        Dim sqlconnect As New SqlClient.SqlConnection(connectionstring)
        Dim DT As New DataTable
        Dim sqlDA As New SqlClient.SqlDataAdapter("SelectAllRoom", sqlconnect)
        sqlDA.SelectCommand.CommandType = CommandType.StoredProcedure

        sqlDA.Fill(DT)
        Return DT

    End Function
End Class