Программное создание базы данных SQL Server с помощью ADO.NET и Visual Basic .NET

В этой статье описывается, как использовать ADO.NET и Visual Basic .NET для программного создания базы данных Microsoft SQL Server.

Исходная версия продукта: ADO.NET, Visual Basic .NET
Исходный номер базы знаний: 305079

Итоги

Программисты часто должны создавать базы данных программным способом. В этой статье описывается, как использовать ADO.NET и Visual Basic .NET для программного создания базы данных SQL Server.

Действия по созданию примера

  1. Создайте проект приложения .NET для .NET для Visual Basic. Форма1 добавляется в проект по умолчанию.

  2. Поместите кнопку Command в Form1 и измените его Name свойство на btnCreateDatabase и его Text свойство Create Database.

  3. Скопируйте и вставьте следующую строку кода в раздел "Общее объявление" формы Form1:

    Imports System.Data.SqlClient
    
  4. Скопируйте и вставьте следующий код после региона "Созданный код конструктора форм Windows":

    Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCreateDatabase.Click
    Dim str As String
    
    Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;" & _
    "uid=sa;pwd=;database=master")
    
    str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
    "(NAME = MyDatabase_Data, " & _
    " FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
    " SIZE = 2MB, " & _
    " MAXSIZE = 10MB, " & _
    " FILEGROWTH = 10%)" & _
    " LOG ON " & _
    "(NAME = MyDatabase_Log, " & _
    " FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _
    " SIZE = 1MB, " & _
    " MAXSIZE = 5MB, " & _
    " FILEGROWTH = 10%)"
    
    Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
    
    Try
    myConn.Open()
    myCommand.ExecuteNonQuery()
    MessageBox.Show("Database is created successfully", _
    "MyProgram", MessageBoxButtons.OK, _
    MessageBoxIcon.Information)
    Catch ex As Exception
    MessageBox.Show(ex.ToString())
    Finally
    If (myConn.State = ConnectionState.Open) Then
    myConn.Close()
    End If
    End Try
    
    End Sub
    
  5. Измените строка подключения, чтобы указать на SQL Server, и убедитесь, что аргумент базы данных имеет значение Master или пусто.

  6. Нажмите клавишу F5 или CTRL+F5, чтобы запустить проект, а затем нажмите кнопку "Создать базу данных".

Дополнительные примечания

  • Этот код создает пользовательскую базу данных с определенными свойствами.

  • Папка, в которую будут храниться созданные .mdf и LDF-файлы, уже должны существовать перед запуском кода или создается исключение.

  • Если вы хотите создать базу данных, аналогичную базе данных модели SQL Server и в расположении по умолчанию, измените переменную str в коде:

    str = "CREATE DATABASE MyDatabase"
    

Ссылки