ConnectionString aus web.config lesen

Private ReadOnly Property SqlConnectionString() As String
Get
If mSqlConnectionString > "" Then Return mSqlConnectionString

' Get the connectionStrings section.
Dim connectionStringsSectio
n As ConnectionStringsSection = WebConfigurationManager.GetSection("connectionStrings")
' Get the connectionStrings key,value pairs collection.
Dim connectionStrings As ConnectionStringSettingsCollection = connectionStringsSection.ConnectionStrings
'speichern (in Common.vb)
mSqlConnectionString = connectionStrings(CONNSTRINGname).ConnectionString

'log.Test("getConnectionString", "Der ConnectionString lautet: " & mSqlConnectionString)
Return mSqlConnectionString
End Get
End Property