Hola. ¿Es buena idea hacer esto para ASP.Net?¿Puede dar lugar a muchos errores en las conexiones?
global.asax
Código:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' Se desencadena cuando se inicia la aplicación
OrigenDatos.propStrCon = ConfigurationSettings.AppSettings("strcon")
End Sub
moduloGeneral.vb
Código:
#Region "Conexión a la base de datos"
Public Class OrigenDatos
Friend Shared con As SqlConnection
Private Shared strCon As String
Shared Sub New()
con = New SqlConnection
End Sub 'New
Friend Shared Sub AsignarCadenaConexion()
con.ConnectionString = propStrCon
End Sub 'AsignarCadenaConexion
Public Shared Property propStrCon() As String
Get
Return strCon
End Get
Set(ByVal Value As String)
'validar aquí la cadena de conexión
strCon = Value
AsignarCadenaConexion()
End Set
End Property
Public Shared Function Verificar() As Boolean
Try
con.Open()
Catch
Finally
con.Close()
End Try
Return True
End Function 'Verificar
End Class 'OrigenDatos
#End Region
Luego, por ejemplo, en cualquier página pongo:
Código:
Dim da As New System.Data.SqlClient.SqlDataAdapter("SELECT * FROM ...", OrigenDatos.con)
Un saludo.