Programowe tworzenie bazy danych SQL Server przy użyciu ADO.NET i visual basic .NET

W tym artykule opisano sposób korzystania z platformy .NET ADO.NET i Visual Basic do programowego tworzenia bazy danych SQL Server firmy Microsoft.

Oryginalna wersja produktu: ADO.NET, Visual Basic .NET
Oryginalny numer KB: 305079

Podsumowanie

Programiści często muszą programowo tworzyć bazy danych. W tym artykule opisano sposób programowego tworzenia bazy danych SQL Server przy użyciu platformy .NET ADO.NET i Visual Basic.

Kroki tworzenia przykładu

  1. Utwórz nowy projekt aplikacji systemu Windows visual basic dla platformy .NET. Formularz 1 jest domyślnie dodawany do projektu.

  2. Umieść przycisk Polecenia na formularzu Form1 i zmień jego Name właściwość na btnCreateDatabase i jej Text właściwość na Create Database.

  3. Skopiuj i wklej następujący wiersz kodu w sekcji "deklaracja ogólna" formularza Form1:

    Imports System.Data.SqlClient
    
  4. Skopiuj i wklej następujący kod po regionie "Formularz systemu Windows Projektant wygenerowany kod":

    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. Zmień parametry połączenia, aby wskazać SQL Server, i upewnij się, że argument bazy danych jest ustawiony na wartość Master lub blank.

  6. Naciśnij klawisze F5 lub CTRL+F5 , aby uruchomić projekt, a następnie kliknij pozycję Utwórz bazę danych.

Dodatkowe uwagi

  • Ten kod tworzy niestandardową bazę danych o określonych właściwościach.

  • Folder zawierający utworzone pliki .mdf i ldf musi już istnieć przed uruchomieniem kodu lub zostanie wygenerowany wyjątek.

  • Jeśli chcesz utworzyć bazę danych podobną do bazy danych modelu SQL Server i w lokalizacji domyślnej, zmień zmienną str w kodzie:

    str = "CREATE DATABASE MyDatabase"
    

Informacje