CreateDatabase – Creating a SQL Server database

CreateDatabase – Creating a SQL Server database

' 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

See also  How College Students Can Shape the Future of Tech Responsibility

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist