Программное создание базы данных 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. Форма Form1 добавляется в проект по умолчанию.

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

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

    Imports System.Data.SqlClient

  4. Скопируйте и вставьте следующий код после области "Форма Windows Form Designer созданного кода":

    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, и убедитесь, что аргумент Database имеет значение Master или Blank.

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

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

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

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

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

    str = "CREATE DATABASE MyDatabase"

Ссылки