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

Pasos para crear el

1. Cree un nuevo proyecto de aplicación para Windows en Visual Basic .NET. Se agregará Form1 al proyecto de forma predeterminada.
   
2. Coloque un botón Command en Form1 y cambie su propiedad Name a btnCreateDatabase y su propiedad Text a Crear base de datos.
   
3. Copie y pegue la línea de código siguiente en la sección de declaraciones generales de Form1:
   
   
   
   

   Imports System.Data.SqlClient     

4. Copie y pegue el código siguiente después de la región "Código generado por el Diseñador de Windows Forms":
   
   
   
   

   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 señale a SQL Server y asegúrese de que el argumento Database está establecido en Master o está en blanco.
   
6. Presione F5 o CTRL+F5 para ejecutar el proyecto y, a continuación, haga clic en Crear base de datos.