Partager via

Créer une base de données SQL Server par programmation à l’aide de ADO.NET et visual Basic .NET

Cet article explique comment utiliser ADO.NET et Visual Basic .NET pour créer par programme une base de données Microsoft SQL Server.

Version du produit d’origine : ADO.NET, Visual Basic .NET
Numéro de base de connaissances d’origine : 305079

Résumé

Les programmeurs doivent souvent créer des bases de données par programmation. Cet article explique comment utiliser ADO.NET et Visual Basic .NET pour créer par programmation une base de données SQL Server.

Étapes de création de l’exemple

  1. Créez un projet d’application Windows Visual Basic .NET. Form1 est ajouté au projet par défaut.

  2. Placez un bouton Commande sur Form1, puis remplacez sa Name propriété btnCreateDatabase par et sa Text propriété Create Databasepar .

  3. Copiez et collez la ligne de code suivante dans la section « déclaration générale » de Form1 :

    Imports System.Data.SqlClient

  4. Copiez et collez le code suivant après la zone « Code généré par le Concepteur 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. Modifiez l’chaîne de connexion pour pointer vers votre serveur SQL Server et vérifiez que l’argument Base de données est défini sur Master ou vide.

  6. Appuyez sur F5 ou Ctrl+F5 pour exécuter le projet, puis cliquez sur Créer une base de données.

Notes supplémentaires

  • Ce code crée une base de données personnalisée avec des propriétés spécifiques.

  • Le dossier qui contiendra les fichiers .mdf et .ldf créés doivent déjà exister avant d’exécuter le code ou une exception sera généré.

  • Si vous souhaitez créer une base de données similaire à la base de données model de SQL Server et à l’emplacement par défaut, modifiez la variable str dans le code :

    str = "CREATE DATABASE MyDatabase"

References