Imports System.Data.SqlClient
Imports System.Configuration

Public Class clsConexion
    Private Shared objConexion As New SqlConnection
    Public Shared strError As String

    Public Shared Function Abrir() As SqlConnection
        'objConexion.ConnectionString = ConfigurationSettings.AppSettings("CadenaConexion").ToString()
        objConexion.ConnectionString = "User ID=sa;Data Source=(local);Initial Catalog=ProyectoSistemaInventario;Persist Security Info=False;"
        Try
            objConexion.Open()
            Return objConexion
        Catch ex As Exception
            strError = ex.ToString
            Return Nothing
        End Try

    End Function

    Public Shared Function GetCadenaConexion() As String
        Return ConfigurationSettings.AppSettings("CadenaConexion").ToString()
    End Function

    Public Shared Sub Cerrar()
        objConexion.Close()
    End Sub

End Class