global.asax
Código:
moduloGeneral.vbSub 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
Código:
Luego, por ejemplo, en cualquier página pongo:#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
Código:
Un saludo. Dim da As New System.Data.SqlClient.SqlDataAdapter("SELECT * FROM ...", OrigenDatos.con)