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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: VB7
Expertise: Intermediate
Mar 17, 2003

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


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

 

 

 

 

 


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

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date