Compartir a través de

Creación de una base de datos de SQL Server mediante programación mediante ADO.NET y Visual Basic .NET

En este artículo se describe cómo usar ADO.NET y Visual Basic .NET para crear mediante programación una base de datos de Microsoft SQL Server.

Versión original del producto: ADO.NET, Visual Basic .NET
Número de KB original: 305079

Resumen

A menudo, los programadores necesitan crear bases de datos mediante programación. En este artículo se describe cómo usar ADO.NET y Visual Basic .NET para crear mediante programación una base de datos de SQL Server.

Pasos para crear el ejemplo

  1. Cree un nuevo proyecto de aplicación windows de .NET de Visual Basic. Form1 se agrega al proyecto de forma predeterminada.

  2. Coloque un botón Comando en Form1 y cambie su Name propiedad a btnCreateDatabase y su Text propiedad a Create Database.

  3. Copie y pegue la siguiente línea de código en la sección "declaración general" de Form1:

    Imports System.Data.SqlClient

  4. Copie y pegue el código siguiente después del área "Código generado por el Diseñador de 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. Cambie el cadena de conexión para que apunte a SQL Server y asegúrese de que el argumento Database esté establecido en Maestro o en blanco.

  6. Presione F5 o CTRL+F5 para ejecutar el proyecto y, a continuación, haga clic en Crear base de datos.

Notas adicionales

  • Este código crea una base de datos personalizada con propiedades específicas.

  • La carpeta que contendrá los archivos creados .mdf y .ldf ya deben existir antes de ejecutar el código o se generará una excepción.

  • Si desea crear una base de datos similar a la base de datos modelo de SQL Server y en la ubicación predeterminada, cambie la variable str en el código:

    str = "CREATE DATABASE MyDatabase"

Referencias