En el menú Archivo, haga clic en Nuevo proyecto.

En el cuadro de diálogo Nuevo proyecto, seleccione Proyectos de Visual Basic en el panel Tipo de proyecto y, a continuación seleccione Biblioteca de clases en el panel Plantillas. En el cuadro Nombre, escriba DBCustomAction.

En el menú Proyecto, haga clic en Agregar nuevo elemento.

En el cuadro de diálogo Agregar nuevo elemento, seleccione Clase del instalador. En el cuadro Nombre, escriba VbDeployInstaller.vb.

En el Explorador de servidores, seleccione Conexiones de datos. Haga clic con el botón secundario del mouse y elija Agregar conexión.

En el cuadro de diálogo Elegir origen de datos, seleccione Microsoft SQL Server.

En el cuadro de diálogo Agregar conexión, realice lo siguiente:

1. En la lista desplegable Nombre de servidor, escriba o seleccione un nombre de servidor.

2. Seleccione Utilizar autenticación de Windows.

3. En el cuadro de base de datos, escriba principal.

4. Haga clic en Aceptar para cerrar el cuadro de diálogo.

En el menú Datos, haga clic en Agregar nuevo origen de datos, a continuación, utilice el asistente para agregar la conexión que estableció en los pasos anteriores. Para comprobar que el origen de datos está en el proyecto, haga clic en Mostrar orígenes de datos en el menú Datos.

En el Explorador de soluciones, seleccione el proyecto DBCustomAction. En el menú Proyecto, elija Agregar nuevo elemento.

En el cuadro de diálogo Agregar nuevo elemento, seleccione Archivo de texto. En el cuadro Nombre, escriba sql.txt (en minúsculas).

Agregue el siguiente texto al archivo sql.txt:

CREATE TABLE [dbo].[Employees] (
[Name] [char] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Rsvp] [int] NULL ,
[Requests] [nvarchar] (4000) COLLATE SQL_Latin1_General_CP1_CI_AS NULL 
) ON [PRIMARY];

ALTER TABLE [dbo].[Employees] WITH NOCHECK ADD 
CONSTRAINT [PK_Employees] PRIMARY KEY CLUSTERED 
(
[Name]
) ON [PRIMARY];

En el Explorador de soluciones, seleccione sql.txt. En la ventana Propiedades, establezca la propiedad BuildAction en el valor Recurso incrustado.

En el Explorador de soluciones, seleccione VbDeployInstaller.vb. En el Menú Ver, elija Código.

Agregue la siguiente instrucción Imports al principio del módulo:

Imports System.IO
Imports System.Reflection
Imports System.Data.SqlClient

Agregue el siguiente código a la clase VbDeployInstaller, después de la declaración MyBase.New:

Public Class VbDeployInstaller

    Dim masterConnection As New System.Data.SqlClient.SqlConnection

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()

        'Add initialization code after the call to InitializeComponent

    End Sub

    Private Function GetSql(ByVal Name As String) As String
        Try

            ' Gets the current assembly.
            Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly()

            ' Resources are named using a fully qualified name.
            Dim strm As Stream = Asm.GetManifestResourceStream( _
              Asm.GetName().Name + "." + Name)

            ' Reads the contents of the embedded file.
            Dim reader As StreamReader = New StreamReader(strm)
            Return reader.ReadToEnd()

        Catch ex As Exception
            MsgBox("In GetSQL: " & ex.Message)
            Throw ex
        End Try
    End Function

    Private Sub ExecuteSql(ByVal DatabaseName As String, ByVal Sql As String)
        Dim Command As New SqlClient.SqlCommand(Sql, masterConnection)

        ' Initialize the connection, open it, and set it to the "master" database
        masterConnection.ConnectionString = My.Settings.masterConnectionString
        Command.Connection.Open()
        Command.Connection.ChangeDatabase(DatabaseName)
        Try
            Command.ExecuteNonQuery()
        Finally
            ' Closing the connection should be done in a Finally block
            Command.Connection.Close()
        End Try
    End Sub

    Protected Sub AddDBTable(ByVal strDBName As String)
        Try
            ' Creates the database.
            ExecuteSql("master", "CREATE DATABASE " + strDBName)

            ' Creates the tables.
            ExecuteSql(strDBName, GetSql("sql.txt"))

        Catch ex As Exception
            ' Reports any errors and abort.
            MsgBox("In exception handler: " & ex.Message)
            Throw ex
        End Try
    End Sub

    Public Overrides Sub Install(ByVal stateSaver As _
      System.Collections.IDictionary)

        MyBase.Install(stateSaver)
        AddDBTable(Me.Context.Parameters.Item("dbname"))
    End Sub

End Class

En el menú Generar, elija Generar DBCustomAction.

En el menú Archivo, haga clic en Agregar y, a continuación, en Nuevo proyecto.

En el cuadro de diálogo Agregar nuevo proyecto, abra el nodo Otros tipos de proyectos y seleccione Proyectos de instalación e implementación en el panel Tipo de proyecto. A continuación, seleccione Proyecto de instalación en el panel Plantillas. En el cuadro Nombre, escriba DBCustomAction_Setup.

En la ventana Propiedades, seleccione la propiedad ProductName y escriba Instalador de DB.

En el Editor del sistema de archivos, seleccione la Carpeta de la aplicación. En el menú Acción, haga clic en Agregar y, a continuación, en Resultados del proyecto.

En el cuadro de diálogo Agregar grupo de resultados del proyecto, seleccione Resultado principal para el proyecto DBCustomAction.

Seleccione el proyecto DBCustomAction_Setup en el Explorador de soluciones. En el menú Ver, seleccione Editor y elija Interfaz de usuario.

En el Editor de la interfaz de usuario, seleccione el nodo Iniciar, situado bajo Instalar. En el menú Acción, elija Agregar cuadro de diálogo.

En el cuadro de diálogo Agregar cuadro de diálogo, seleccione el cuadro de diálogo Cuadros de texto (A) y, a continuación, haga clic en Aceptar.

En el menú Acción, elija Subir. Repita esta acción hasta que el cuadro de diálogo Cuadros de texto (A) quede situado encima del nodo Carpeta de instalación.

En la ventana Propiedades, seleccione la propiedad BannerText y escriba Especificar nombre de la base de datos.

Seleccione la propiedad BodyText y escriba Este cuadro de diálogo permite especificar el nombre de la base de datos que se debe crear en el servidor de bases de datos.

Seleccione la propiedad Edit1Label y escriba Nombre de la base de datos:.

Seleccione la propiedad Edit1Property y escriba CUSTOMTEXTA1.

Seleccione las propiedades Edit2Visible, Edit3Visible y Edit4Visible y asígneles el valor False.

Seleccione el proyecto DBCustomAction_Setup en el Explorador de soluciones. En el menú Ver, elija Editor y, a continuación, haga clic en Acciones personalizadas.

En el Editor de acciones personalizadas, seleccione el nodo Instalar. En el menú Acción, elija Agregar acción personalizada.

En el cuadro de diálogo Seleccionar elemento en el proyecto, haga doble clic en la Carpeta de la aplicación.

Seleccione Resultado principal de DBCustomAction (Active), luego haga clic en Aceptar para cerrar el cuadro de diálogo.

Asegúrese de que el elemento Resultado principal de DBCustomAction (Active) esté seleccionado en el Editor de acciones personalizadas. En la ventana Propiedades, seleccione la propiedad CustomActionData y escriba /dbname=[CUSTOMTEXTA1].

En el menú Generar, elija Build DBCustomAction_Setup.

En el Explorador de Windows, desplácese hasta el directorio del proyecto y busque el instalador que se ha generado. La ruta de acceso predeterminada será \documents and settings\nombreDeInicioDeSesión\DBCustomAction_Setup\configuración de proyecto\DBCustomAction_Setup.msi. La configuración de proyecto predeterminada es Debug.

Copie DBCustomAction_Setup.msi y los demás archivos y subdirectorios del directorio en otro equipo.

Nota
Para realizar una instalación en un equipo que no está en una red, copie los archivos en medios tradicionales como el CD-ROM.

En el equipo de destino, haga doble clic en el archivo Setup.exe para ejecutar el instalador.

Nota
Debe tener los permisos de instalación en el equipo para poder ejecutar el instalador.

En el Panel de control de Windows, haga doble clic en Agregar o quitar programas.

En el cuadro de diálogo Agregar o quitar programas, seleccione DBCustomAction_Setup, haga clic en Quitar y, a continuación, haga clic en Aceptar para cerrar el cuadro de diálogo.

Sugerencia
Para desinstalar la aplicación en el equipo de desarrollo, elija Desinstalar en el menú Proyecto.