Cómo utilizar al Asistente para actualización de Visual Basic

Resumen

Este artículo paso a paso explica cómo crear una sencilla aplicación de Visual Basic 6.0 y, a continuación, actualice la aplicación a Visual Basic .NET o Visual Basic 2005 utilizando el Asistente para actualización de Visual Basic en Visual Studio .NET o Visual Studio 2005.

Nota: El Asistente para actualización de Visual Basic .NET se incluye en Visual Studio .NET Professional.

Nota: Se ha mejorado el Asistente para actualización de Visual Basic 2005 desde versiones anteriores de Visual Basic.

Requisitos

Los elementos siguientes describen el hardware recomendado, software, infraestructura de red, habilidades, conocimiento y service Pack que se necesita:
  • Microsoft Windows 2000 Professional (o Server) o Microsoft Windows XP Professional (o Server) con el.NET Framework instalado
  • Microsoft Visual Basic 6.0
  • Microsoft SQL Server 7.0 o posterior con la base de datos Northwind, los permisos adecuados y los valores de ID de usuario y contraseña
Conocimientos previos requeridos:
  • Conocimiento general de cómo crear aplicaciones con Visual Basic 6.0

Utilizar al Asistente para actualización de Visual Basic

Los pasos siguientes muestran cómo crear una sencilla aplicación de Visual Basic 6.0 y, a continuación, actualice la aplicación a Visual Basic .NET o Visual Basic 2005 utilizando el Asistente para actualización de Visual Basic en Visual Studio .NET o Visual Studio 2005:
  1. En el menú Inicio , seleccione programas, elija Microsoft Visual Studio 6.0y, a continuación, haga clic en Microsoft Visual Basic 6.0.
  2. En el cuadro de diálogo Nuevo proyecto , haga clic en EXE estándary, a continuación, haga clic en Abrir.
  3. El primer formulario en esta aplicación utiliza ADO para recuperar un conjunto de registros y, a continuación, muestra el conjunto de registros en un Control Microsoft Hierarchical FlexGrid. En el campo nombre del cuadro de diálogo de Propiedades de Form1, escriba
    frmADO.
  4. Si no está abierto el cuadro de herramientas, en el menú Ver , haga clic en cuadro de herramientas.
  5. En el cuadro de herramientas, coloque un MSHFlexGrid en el formulario para que ocupe la mayor parte del formulario. Deje suficiente espacio en la parte inferior del formulario para colocar un botón.

    Nota: si no ve el icono MSHFlexGrid en el cuadro de herramientas, agregar al cuadro de herramientas. Haga clic en el cuadro de herramientas y, a continuación, haga clic en componentes. En el cuadro de diálogo componentes , haga clic para seleccionar Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB) de la lista de componentes disponibles y, a continuación, haga clic en Aceptar.
  6. En el cuadro de herramientas, coloque un CommandButton en el formulario debajo del MSHFlexGrid. En el campo título del cuadro de diálogo Propiedades , escriba Aceptar.
  7. Haga clic en mADOy, a continuación, haga clic en Ver código. Agregue el código siguiente, que crea una conexión de base de datos y devuelve un objeto recordset que contiene todos los datos de la tabla Products de la base de datos Northwind.

    Nota: debe cambiar en el código de ejemplo siguiente, id de usuario =< username > y
    contraseña =< contraseña segura > a los valores correctos. Asegúrese de que el identificador de usuario tiene los permisos apropiados para realizar esta operación en la base de datos.
    Private Sub Command1_Click()    Unload Me
    End Sub

    Private Sub Form_Load()
    Dim cn As Connection
    Set cn = New Connection
    cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;database=northwind;user id=<username>;password=<strong password>"
    cn.Open

    Dim rs As Recordset
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from products", cn

    Set MSHFlexGrid1.DataSource = rs
    End Sub

  8. Presione CTRL+S para guardar el formulario. En el menú Archivo, haga clic en Guardar como. En el cuadro de diálogo Guardar como , haga clic en Guardar.
  9. En el explorador del proyecto (ratón) en Project1, haga clic en Agregary, a continuación, haga clic en formulario. Haga clic en Abrir.
  10. En el campo nombre del cuadro de diálogo Propiedades , escriba frmClipboard.
  11. En el cuadro de herramientas, coloque un control Textbox en el formulario. En el campo de texto , escriba el veloz murciélago hindú comía feliz cardillo y kiwi feliz.
  12. Coloque un control CommandButton a continuación el cuadro de texto. En el campo título del cuadro de diálogo Propiedades , escriba Copiar.
  13. Coloque un segundo control CommandButton en el formulario. En el campo título del cuadro de diálogo Propiedades , escriba Pegar.
  14. Haga clic en frmClipboardy, a continuación, haga clic en Ver código. Pegue el código siguiente para el control CommandButton haga clic en eventos. En este código se utiliza el Portapapeles a objeto GET y pegue el texto:
    Private Sub Command1_Click()    Clipboard.SetText Text1.SelText
    End Sub

    Private Sub Command2_Click()
    Text1.SelText = Clipboard.GetText
    End Sub

  15. Presione CTRL+S para guardar el formulario.
  16. El último formulario que necesita es el formulario principal de la aplicación. En el Explorador de proyectos, haga clic en Project1, haga clic en Agregar, haga clic en formularioy, a continuación, haga clic en Abrir.
  17. En el campo nombre del cuadro de diálogo Propiedades , escriba frmMain.
  18. En el cuadro de herramientas, coloque un CommandButton en el formulario frmMain. En el campo título del cuadro de diálogo Propiedades , escriba ADO.
  19. Coloque un segundo control CommandButton en el formulario. En el campo título del cuadro de diálogo Propiedades , escriba Portapapeles.
  20. Haga clic derecho en frmMainy, a continuación, haga clic en Ver código. Pegar el siguiente código en el control CommandButton eventos click, muestre las dos formas:
    Private Sub Command1_Click()    frmADO.Show
    End Sub

    Private Sub Command2_Click()
    frmClipboard.Show
    End Sub

  21. Presione CTRL+S para guardar el formulario.
  22. En el Explorador de soluciones, haga clic en Project1y, a continuación, haga clic en Propiedades de Project1. En el campo Objeto de inicio , haga clic en frmMainy, a continuación, haga clic en Aceptar.
  23. Para agregar una referencia al componente de ADO, en el menú proyecto , haga clic en referencias. En la lista de referencias disponibles, haga clic en Biblioteca de objetos de datos ActiveX de Microsoft (hará cualquier versión 2.0 o posterior). Haga clic en Aceptar.
  24. Para compilar el proyecto, en el menú archivo , haga clic en Generar Project1.exe. En el cuadro de diálogo Crear proyecto , haga clic en OK (Aceptar el nombre predeterminado del archivo).
  25. Presione F5 para ejecutar la aplicación en modo de depuración.

    Nota: no es necesario comprobar que la aplicación heredada de Visual Basic se ejecuta sin problemas, antes de actualizar.
  26. Cierre el entorno de desarrollo de Visual Basic. En el indicador para guardar los cambios en el proyecto, haga clic en . Utilice el nombre predeterminado y guardar el proyecto.
  27. En el menú Inicio , seleccione programas, elija Microsoft Visual Studio .NETy, a continuación, haga clic en Microsoft Visual Studio. NET.
  28. En la página de inicio, haga clic en Abrir proyecto. Busque la carpeta que contiene el archivo de proyecto de Visual Basic 6.0 que acaba de crear (normalmente C:\Program Files\Microsoft Visual Studio\VB98). Haga clic en Project1.vdpy, a continuación, haga clic en Abrir.
  29. Visual Studio .NET detecta que esto es un proyecto de Visual Basic heredado e inicia al Asistente para actualización de Visual Basic. El asistente muestra una descripción de cada paso cuando proceda a través de los pasos en el orden siguiente:
    • Cree un nuevo proyecto en el que se actualiza el proyecto existente.
    • Copie los archivos de formulario y archivos de clase en el nuevo proyecto.
    • Proporcionar un informe de actualización que enumera los componentes del proyecto que se actualizó correctamente y los componentes que no se actualización correctamente.

  30. Haga clic en siguiente a través de cada uno de los pasos hasta que comience el proceso de actualización. La actualización tarda aproximadamente 30-60 segundos en completarse.
  31. En el Explorador de soluciones, haga doble clic en _UpgradeReport.htm. Este informe muestra los resultados de la actualización. Tenga en cuenta que todas las formas excepto frmClipboard actualizan sin ningún problema.
  32. Expanda frmClipboard.vb para ver los problemas. Clipboard.SetText y GetText no actualizó correctamente. Haga clic en los vínculos de la Descripción para ver cómo corregir los problemas.
  33. En el Explorador de soluciones, tenga en cuenta que todas las formas mantienen sus nombres originales, pero la extensión de archivo se cambia de .frm a. vb.
  34. Expanda referencias. Tenga en cuenta que hace referencia a todos los componentes que se requieren para usar heredado de Visual Basic y ADO se agregaron automáticamente.
  35. Haga clic derecho en cualquiera de las formas y, a continuación, haga clic en Ver código. Expandir el área de Soporte para la actualización . Esta área muestra cómo configura Visual Studio .NET o Visual Studio 2005 de varias propiedades y variables para admitir el código actualizado.
  36. En el Explorador de soluciones, haga clic en frmClipboard.vby, a continuación, haga clic en Ver código. Tenga en cuenta que hay comentarios que se colocan antes de las líneas que no actualizó.
  37. Cambie los eventos Command1_Click y Command2_Click por lo siguiente:
    Private Sub Command1_Click(ByVal eventSender As System.Object, _    ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Clipboard.SetDataObject(Text1.Text)
    End Sub

    Private Sub Command2_Click(ByVal eventSender As System.Object, _
    ByVal eventArgs As System.EventArgs) Handles Command2.Click
    Text1.SelectedText = _
    Clipboard.GetDataObject().GetData(GetType(System.String))
    End Sub

Código completo

(FrmADO.frm) el listado de código completo

Private Sub Command1_Click()    Unload Me
End Sub

Private Sub Form_Load()
Dim cn As Connection
Set cn = New Connection
cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;database=northwind;user id=<username>;password=<strong password>"
cn.Open

Dim rs As Recordset
Set rs = New Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from products", cn

Set MSHFlexGrid1.DataSource = rs
End Sub

(FrmClipboard.frm) el listado de código completo

Private Sub Command1_Click()    Clipboard.SetText Text1.SelText
End Sub

Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText
End Sub

Complete Code Listing (frmMain.frm)
Private Sub Command1_Click()
frmADO.Show
End Sub

Private Sub Command2_Click()
frmClipboard.Show
End Sub

Compruebe que la aplicación funciona

  1. Presione F5 para iniciar la aplicación.
  2. En el símbolo para guardar el proyecto, haga clic en Aceptar.
  3. En Form1, haga clic en ADO. Aparece un formulario que contiene los datos en una cuadrícula. Cerrar este formulario.
  4. En Form1, haga clic en Portapapeles.
  5. Haga clic en Copiar.
  6. Coloque el punto de inserción en el cuadro de texto al principio del texto y, a continuación, haga clic en Pegar. Debería ver el texto pegado.

Solución de problemas

Visual Basic .NET es un cambio importante de versiones anteriores de Visual Basic. Para muchos proyectos, algún trabajo de preparación extensa es aconsejable antes de actualizar. Consulte el documento siguiente para obtener información que puede ayudarle a actualizar más fácilmente:

REFERENCIAS

Para obtener más información, consulte los siguientes artículos de Microsoft Developer Network (MSDN):
Propiedades

Id. de artículo: 317885 - Última revisión: 17 ene. 2017 - Revisión: 1

Comentarios