To use:
Dim SqlConnection As New SqlConnection("GetConnectionString("YourName"))
Snippet
Public Shared Function GetConnectionString(ByVal strConnection As String) As String
'Declare a string to hold the connection string
Dim sReturn As New String("")
'Check to see if they provided a connection string name
If Not String.IsNullOrEmpty(strConnection) Then
'Retrieve the connection string fromt he app.config
sReturn = ConfigurationManager. & _
ConnectionStrings(strConnection).ConnectionString
Else
'Since they didnt provide the name of the connection string
'just grab the default on from app.config
sReturn = ConfigurationManager. & _
ConnectionStrings("YourConnectionString").ConnectionString
End If
'Return the connection string to the calling method
Return sReturn
End Function
No comments:
Post a Comment