Remove a Database From an SQL Server

Category:

Database

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility:

More information:

This example use the SQLDMO Object Library to drop a database from an SQL Server.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function DropSQLDatabase(ServerName As String, _
    DatabaseName As String, UserID As String, _
    Password As String) As Boolean

'*************************************
'PURPOSE:       Drops a Database from an SQL Server
'PARAMETERS:    ServerName: Name of SQLServer
'               DatabaseName: Name of Database to Delete
'               UserID: LoginID for SQL Server
'               Password: Password for SQL Server
'
'RETURNS:       True if successful, false otherwise
'REQUIRES:      Reference to Microsoft SQLDMO object library
'               Discretion/Caution in Use
                
'EXAMPLE:       DropSQLDatabase "MySQLServer", "Pubs", -
'                   "sa", "myPassword"
'******************************************

Dim oSQLServer As New SQLDMO.SQLServer
Dim oDatabase As SQLDMO.Database
Dim oApp As New SQLDMO.Application

On Error GoTo ErrorHandler

With oSQLServer
   .Connect ServerName, UserID, Password
    Set oDatabase = .Databases(DatabaseName)
    oDatabase.Remove
End With

DropSQLDatabase = True

ErrorHandler:
Set oSQLServer = Nothing
End Function