Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' This tutorial is provided in part by Server Intellect Web Hosting Solutions http://www.serverintellect.com
' Visit http://www.AspNetTutorials.com for more ASP.NET Tutorials
End Sub
Protected Sub btn_GetConn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_GetConn.Click
Me.lblMessage.Text = GetConnectionString(Me.tb_connName.Text.Trim())
End Sub
Private Function GetConnectionString(ByVal _connectionStringsName As String)
Dim config As System.Configuration.ConnectionStringSettingsCollection = System.Configuration.ConfigurationManager.ConnectionStrings
For i As Integer = 1 To config.Count
If config(i).Name.Equals(_connectionStringsName, StringComparison.OrdinalIgnoreCase) Then
Return config(i).ToString()
End If
Next
Return String.Empty
End Function
End Class