Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Apr 7, 2003

IsSqlServerDatabasePresent - Checking whether a SQL Server database is present

' 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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap