' 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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many