Condividi tramite


Creare un database DI SQL Server a livello di codice usando ADO.NET e Visual Basic .NET

Questo articolo descrive come usare ADO.NET e Visual Basic .NET per creare un database di Microsoft SQL Server a livello di codice.

Versione originale del prodotto: ADO.NET, Visual Basic .NET
Numero KB originale: 305079

Riepilogo

I programmatori spesso devono creare database a livello di codice. Questo articolo descrive come usare ADO.NET e Visual Basic .NET per creare un database SQL Server a livello di codice.

Passaggi per creare l'esempio

  1. Creare un nuovo progetto applicazione Windows .NET di Visual Basic. Form1 viene aggiunto al progetto per impostazione predefinita.

  2. Posizionare un pulsante Comando in Form1 e modificarne la Name proprietà in btnCreateDatabase e la relativa Text proprietà in Create Database.

  3. Copiare e incollare la riga di codice seguente nella sezione "dichiarazione generale" di Form1:

    Imports System.Data.SqlClient
    
  4. Copiare e incollare il codice seguente dopo l'area "Codice generato da Progettazione Windows Form":

    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. Modificare il stringa di connessione in modo che punti a SQL Server e assicurarsi che l'argomento Database sia impostato su Master o vuoto.

  6. Premere F5 o CTRL+F5 per eseguire il progetto e quindi fare clic su Crea database.

Note aggiuntive

  • Questo codice crea un database personalizzato con proprietà specifiche.

  • La cartella che conterrà i file .mdf creati e ldf deve esistere già prima di eseguire il codice o verrà generata un'eccezione.

  • Se si vuole creare un database simile al database Model di SQL Server e nel percorso predefinito, modificare la variabile str nel codice:

    str = "CREATE DATABASE MyDatabase"
    

Riferimenti