Binaryworld - Discovering if the input connection string is for the SQL Server manag ... [ VB.net -> ADO.net ]

' Return a boolean indicating whether the input connection string is for the
' ADO.NET's SQL Server managed provider
' Note: the function assumes the input string is a valid OLEDB or SQL Server
' connection string, and it just verifies it does not contain the "Provider"
' value
'
' Examples:
' Debug.WriteLine(IsSqlProviderConnString
' ("server=(local);database=MyDB;uid=sa;pwd=;")) ' => True
' Debug.WriteLine(IsSqlProviderConnString("Provider=SQLOLEDB.1;Data
' Source=.;User ID=sa;Password=;Initial Catalog=MyDB")) ' => False

Function IsSqlProviderConnString(ByVal connString As String) As Boolean
  connString = connString.ToLower()
  Dim hasProviderValue As Boolean = (connString.IndexOf("provider") > -1)
  Dim hasDbValue As Boolean = (connString.IndexOf("database") > -1) OrElse _
    (connString.IndexOf("initial catalog") > -1)
  Return hasDbValue And (Not hasProviderValue)
End Function