VB.Net/Database ADO.net/SqlCommand Drop

Материал из VB Эксперт
Перейти к: навигация, поиск

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.rumandText = "CREATE DATABASE MyDb"
         Console.WriteLine("Executing {0}",nonqueryCommand.rumandText)
         Console.WriteLine("Number of rows affected : {0}",nonqueryCommand.ExecuteNonQuery())

         " Execute NonQuery To Drop Database
         nonqueryCommand.rumandText = "Drop DATABASE MyDb"
         Console.WriteLine("Executing {0}",nonqueryCommand.rumandText)
         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


Execute NonQuery To Drop a Table and report how many rows affected

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=tempdb")
      "Create Command object
      Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
      Try
         " Open Connection
         thisConnection.Open()
         Console.WriteLine("Connection Opened")

         " Execute NonQuery To Create Table
         nonqueryCommand.rumandText = "CREATE TABLE MyTable (ID integer)"
         Console.WriteLine("Executing {0}", nonqueryCommand.rumandText)
         Console.WriteLine("Number of rows affected : {0}", nonqueryCommand.ExecuteNonQuery())
         " Execute NonQuery To Drop Table
         nonqueryCommand.rumandText = "DROP TABLE MyTable"
         Console.WriteLine("Executing {0}", nonqueryCommand.rumandText)
         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