' 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
![Android phone with alarm clock icon](https://www.devx.com/wp-content/uploads/495893cathumbnail-300x150.jpeg)