Binaryworld - IsSqlServerDatabasePresent - Checking whether a SQL Server database is ... [ VB.net -> ADO.net ]

' Returns whether a SQL Server DB with the specified name is present
' The first param must be a valid connection string to the 'master' database
' Requires Imports System.Data.SqlClient
'
' Example:
' Debug.WriteLine(IsSqlServerDatabasePresent( '   "server=(local);
' Database=master; user id=sa; password=;", "CodeBoxLib"))

Function IsSqlServerDatabasePresent(ByVal masterConnString As String, _
  ByVal dbName As String) As Boolean
  Dim cn As New SqlConnection(masterConnString)
  ' count the databases with the specified name
  Dim cmd As New SqlCommand("SELECT COUNT(*) FROM sysdatabases WHERE " _
    & "[name]='" & dbName & "'", cn)
  cn.Open()
  Dim count As Integer = CType(cmd.ExecuteScalar(), Integer)
  cn.Close()
  ' return True if a record is found
  Return (count > 0)
End Function