Imports System.Data.SqlClient
Imports System.Configuration

Public Class Database
    Private Shared _connections As New Dictionary(Of String, SqlConnection)

    Public Shared Function GetConnection(ByVal sConnName As String) As SqlConnection
        Dim oConn As SqlConnection

        Try
            oConn = New SqlConnection(ConfigurationManager.ConnectionStrings(sConnName).ConnectionString)
            oConn.Open()
        Catch ex As Exception
            Throw ex
        End Try

        Return oConn
    End Function

    Public Shared Function GetCommand(ByVal sConnName As String, ByVal sSQL As String, ByVal ParamArray parameters() As SqlParameter) As SqlCommand
        Dim oConn As SqlConnection = GetConnection(sConnName)
        Dim oComm As New SqlCommand(sSQL, oConn)

        For Each oPar As SqlParameter In parameters
            oComm.Parameters.Add(oPar)
        Next

        Return oComm
    End Function

    Public Shared Function ExecuteQuery(ByVal sConnName As String, ByVal sSQL As String, ByVal ParamArray parameters() As SqlParameter) As SqlDataReader
        Return GetCommand(sConnName, sSQL, parameters).ExecuteReader
    End Function

    Public Shared Sub ExecuteNonQuery(ByVal sConnName As String, ByVal sSQL As String, ByVal ParamArray parameters() As SqlParameter)
        For Each param In parameters
            Console.WriteLine(param.ToString)
        Next
        Try
            GetCommand(sConnName, sSQL, parameters).ExecuteNonQuery()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
End Class