Binaryworld - CreateDatabase - Creating a SQL Server database ... [ VB.net -> ADO.net ]

' Create a SQL Server database with the specified name.
' If the second parameter is True and a DB with the same name is already
' present,
' it is dropped before the new DB is created.
' Note: requires Imports System.Data.SqlClient
'
' Example:
' Dim connString As String = "server=(local); user id=sa; password=;
' Database=master;"
' Try
'   CreateDatabase(connString, "MyTestDB", True)
' Catch ex As Exception
'   MessageBox.Show(ex.Message)
' End Try

Sub CreateDatabase(ByVal connString As String, ByVal dbName As String, _
  Optional ByVal dropExistent As Boolean = True)

  Dim cn As New SqlConnection(connString)
  Try
    ' the command for creating the DB
    Dim cmdCreate As New SqlCommand("CREATE DATABASE [" & dbName & "]", cn)
    cn.Open()
    If dropExistent Then
      ' drop the existent DB with the same name
      Dim cmdDrop As New SqlCommand _
        ("IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE " _
        & "name = N'" & dbName & "') DROP DATABASE [" & dbName & "]", _
        cn)
      cmdDrop.ExecuteNonQuery()
    End If
    ' create the DB
    cmdCreate.ExecuteNonQuery()
  Finally
    cn.Close()
  End Try
End Sub