Programmatisch SQL Server database maken met behulp van ADO.NET en Visual Basic .NET

In dit artikel wordt beschreven hoe u ADO.NET en Visual Basic .NET gebruikt om programmatisch een Microsoft SQL Server-database te maken.

Oorspronkelijke productversie: ADO.NET, Visual Basic .NET
Origineel KB-nummer: 305079

Samenvatting

Programmeurs moeten vaak programmatisch databases maken. In dit artikel wordt beschreven hoe u ADO.NET en Visual Basic .NET gebruikt om programmatisch een SQL Server-database te maken.

Stappen voor het maken van het voorbeeld

  1. Maak een nieuw Visual Basic .NET Windows-toepassingsproject. Form1 wordt standaard toegevoegd aan het project.

  2. Plaats een opdrachtknop op Form1 en wijzig de Name eigenschap in en de eigenschap in TextCreate Database.btnCreateDatabase

  3. Kopieer en plak de volgende regel code in de sectie 'algemene declaratie' van Form1:

    Imports System.Data.SqlClient
    
  4. Kopieer en plak de volgende code na de regio 'Windows Form Designer gegenereerde code':

    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. Wijzig de verbindingsreeks zodat deze verwijst naar uw SQL Server en zorg ervoor dat het argument Database is ingesteld op Hoofd of leeg.

  6. Druk op F5 of Ctrl+F5 om het project uit te voeren en klik vervolgens op Database maken.

Aanvullende notities

  • Met deze code maakt u een aangepaste database met specifieke eigenschappen.

  • De map met de gemaakte .mdf- en .ldf-bestanden moet al bestaan voordat u de code uitvoert of er wordt een uitzondering gegenereerd.

  • Als u een database wilt maken die vergelijkbaar is met de modeldatabase van SQL Server en op de standaardlocatie, wijzigt u de variabele str in de code:

    str = "CREATE DATABASE MyDatabase"
    

Verwijzingen