Mega Code Archive

 
Categories / VB.Net / ADO Database
 

Drop a Database through SqlConnection

Imports System Imports System.Data Imports System.Data.SqlClient public class MainClass    Shared Sub Main()       Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _           "integrated security=sspi;database=MyDatabase")       'Create Command object       Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()       Try          ' Open Connection          thisConnection.Open()          Console.WriteLine("Connection Opened")          ' Execute NonQuery To Create Database          nonqueryCommand.CommandText = "CREATE DATABASE MyDb"          Console.WriteLine("Executing {0}",nonqueryCommand.CommandText)          Console.WriteLine("Number of rows affected : {0}",nonqueryCommand.ExecuteNonQuery())          ' Execute NonQuery To Drop Database          nonqueryCommand.CommandText = "Drop DATABASE MyDb"          Console.WriteLine("Executing {0}",nonqueryCommand.CommandText)          Console.WriteLine("Number of rows affected : {0}",nonqueryCommand.ExecuteNonQuery())       Catch ex As SqlException          ' Display error          Console.WriteLine("Error: " & ex.ToString())       Finally          ' Close Connection          thisConnection.Close()          Console.WriteLine("Connection Closed")       End Try    End Sub End Class