' 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 TrySub 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 TryEnd Sub


Web Application Supply Chain Security
Today’s web applications depend on a wide array of third-party components and open-source tools to function effectively. This reliance on external resources poses significant security