global.asax
Código:
moduloGeneral.vb 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
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)


): hace falta un archivo de configuración para definir los parámetros de la conexión entre otros. Al principio ponía el código de ejemplo que me habíais dado y pensaba ¿cómo sabrá a qué base de datos quiero conectar?
