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

  • Artículo
  • Tiempo de lectura: 2 minutos

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

Los programadores suelen tener que 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 de .NET Windows 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 de la región "Windows código generado por el Diseñador de formularios":

    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 la cadena de conexión para que apunte a la 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 .mdf y .ldf creados ya debe 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