Falla conversion proyecto VB 6 a VB 2008

Question

Si alguien me pudiera orientar se lo agradeceria mucho.
Mi SO es windows 7  64bit
Tengo un proyecto en VB 6 que trato de abrir con VB 2008 para que lo convierta al 
nuevo esquema de Visual Studio. Cuando comienza la conversion al abrir el proyecto 
se detiene por el siguiente error:
 "Upgrade failed: Exception ocurred: Could not load referenced component: GRID32.OCX (1.0.0)"
No he podido sacar el error. Por favor ayuda. Gracias

Answer 1

Te recomiendo que lo realizes la conversión paso a paso, de lo contrario orurrira estos fallos de dependencias que no tienes en Vb 2008, no es lo mismo velo desde ese punto de vista, lenguage parecído pero conceptos distintos.

Saludos

Answer 2

Hola

Si vas a migrar una aplicación desarrollada en VB6 a Visual Basic .Net, te recomiendo hacer la aplicación desde cero ya que es muy distinto utilizar ADO que ADO.NET.

Revisa este enlace Comparación de ADO.NET con ADO

Otro punto que puedes programar utilizando POO y una arquitectura de tres capas donde puedes separar responsabilidades, reutilizar código, realizar cambios sin que impacte en las otras capas, etc

Programación en 3 capas

Saludos

---

Pedro Ávila
"El hombre sabio querrá estar siempre con quien sea mejor que él."
Lima - Perú

Answer 3

Hola Mondo:

 Conversión directa de Vb6 a Vb.Net no existe, muchas de las cosas se cambiaron para dar paso a una nueva era, un ejemplo de ello son los famosos y tan utiles OCXs (motivo de tu errror) que se usaban en 6 y que hoy por hoy quedan fuera de Vb.Net, el trabajar con una nueva plataforma quizás en un principio te pueda resultar complejo, tedioso y quizá incomprensible, muchos llegaron a este foro queriendo hacer los mismo que con Vb6 y al final encontraron un camino menos sinuoso con Vb.Net, un ejemplo de ello, el uso de de los RecordSet, en donde se tenia que hacer los mapings manualmente recorriendo la colección, su mas cercana comparación serian los DataSet y los DataTable que con un Fill de un objeto DataAdapter los cargas sin mas ni mas y para ligarlo a un control DataGridView no tienes que recorrer el origen para llenar el control haciendo un foreach, basta con usar la propiedad DataSource y asignar una colección como una Lista genérica o un DataTable y listo, no tienes mas que escribir un par de lineas y tienes tus datos presentados en pantalla.

Te dejo las características de Vb.Net:

Visual Basic Language Features

 Espero te sea de utilidad.

---

Saludos desde Monterrey, Nuevo León, México!!!

Answer 4

Base de datos

 If ComboBox1.Text = "Seleccione una sustancia" Then
            Label43.Text = ""
            Label44.Text = ""
            Label45.Text = ""
            Label46.Text = ""
            Label47.Text = ""
            Label48.Text = ""
            Label49.Text = ""
            Label50.Text = ""
            Label51.Text = ""
        End If
        If ComboBox1.Text = "Acetato de Etilo" Then
            Label43.Text = 0.081
            Label44.Text = 350.2
            Label45.Text = 190.1
            Label46.Text = 189.3
            Label47.Text = 700.15
            Label48.Text = 530.2
            Label49.Text = 4.22809
            Label50.Text = 1245.702
            Label51.Text = -55.189
        End If
        If ComboBox1.Text = "Acetato de Isopropilo" Then
            Label43.Text = 0.102
            Label44.Text = 392
            Label45.Text = 203.85
            Label46.Text = 0
            Label47.Text = 733.15
            Label48.Text = 532
            Label49.Text = 4.5517
            Label50.Text = 1490.877
            Label51.Text = -34.098
        End If
        If ComboBox1.Text = "Acetona" Then
            Label43.Text = 0.058
            Label44.Text = 329.6
            Label45.Text = 168.7
            Label46.Text = 178.5
            Label47.Text = 811.15
            Label48.Text = 508
            Label49.Text = 4.42448
            Label50.Text = 1312.253
            Label51.Text = -32.445
        End If
        If ComboBox1.Text = "Agua" Then
            Label43.Text = 0.018
            Label44.Text = 373.15
            Label45.Text = 273.15
            Label46.Text = 273.16
            Label47.Text = 0
            Label48.Text = 647.14
            Label49.Text = 4.6543
            Label50.Text = 1435.264
            Label51.Text = -64.848
        End If
        If ComboBox1.Text = "Amoniaco" Then
            Label43.Text = 0.017
            Label44.Text = 239.81
            Label45.Text = 194.95
            Label46.Text = 195.4
            Label47.Text = 924
            Label48.Text = 405.4
            Label49.Text = 4.86886
            Label50.Text = 113.928
            Label51.Text = -10.409
        End If
        If ComboBox1.Text = "Benceno" Then
            Label43.Text = 0.078
            Label44.Text = 353.3
            Label45.Text = 278.64
            Label46.Text = 278.5
            Label47.Text = 833.15
            Label48.Text = 562
            Label49.Text = 4.01814
            Label50.Text = 1203.835
            Label51.Text = -53.226
        End If
        If ComboBox1.Text = "Butano" Then
            Label43.Text = 0.058
            Label44.Text = 273
            Label45.Text = 136
            Label46.Text = 134.6
            Label47.Text = 638
            Label48.Text = 425
            Label49.Text = 4.3557
            Label50.Text = 1175.581
            Label51.Text = -2.071
        End If
        If ComboBox1.Text = "Ciclohexano" Then
            Label43.Text = 0.084
            Label44.Text = 353.9
            Label45.Text = 279.6
            Label46.Text = 269.7
            Label47.Text = 553.15
            Label48.Text = 554
            Label49.Text = 3.0877
            Label50.Text = 777.363
            Label51.Text = -182.037
        End If
        If ComboBox1.Text = "1,4 Dioxano" Then
            Label43.Text = 0.088
            Label44.Text = 374.3
            Label45.Text = 285
            Label46.Text = 284.1
            Label47.Text = 573.15
            Label48.Text = 587.3
            Label49.Text = 4.58135
            Label50.Text = 1570.093
            Label51.Text = -31.297
        End If
        If ComboBox1.Text = "Etanol" Then
            Label43.Text = 0.046
            Label44.Text = 351.6
            Label45.Text = 158.9
            Label46.Text = 150
            Label47.Text = 636
            Label48.Text = 514
            Label49.Text = 5.37229
            Label50.Text = 1670.409
            Label51.Text = -40.191
        End If
        If ComboBox1.Text = "Hexano" Then
            Label43.Text = 0.086
            Label44.Text = 341.9
            Label45.Text = 178
            Label46.Text = 178
            Label47.Text = 497
            Label48.Text = 507.6
            Label49.Text = 4.002
            Label50.Text = 1171.53
            Label51.Text = -48.784
        End If
        If ComboBox1.Text = "Metanol" Then
            Label43.Text = 0.032
            Label44.Text = 337.8
            Label45.Text = 176.1
            Label46.Text = 175.5
            Label47.Text = 658
            Label48.Text = 513.1
            Label49.Text = 5.20409
            Label50.Text = 1581.341
            Label51.Text = -33.5
        End If
        If ComboBox1.Text = "Pentano" Then
            Label43.Text = 0.072
            Label44.Text = 309.2
            Label45.Text = 143.4
            Label46.Text = 143.46
            Label47.Text = 533.15
            Label48.Text = 469.8
            Label49.Text = 3.9892
            Label50.Text = 1070.617
            Label51.Text = -40.454
        End If
        If ComboBox1.Text = "Propano" Then
            Label43.Text = 0.044
            Label44.Text = 231.1
            Label45.Text = 85.5
            Label46.Text = 85
            Label47.Text = 813.2
            Label48.Text = 469.9
            Label49.Text = 4.536
            Label50.Text = 1149.36
            Label51.Text = 29.906
        End If
        If ComboBox1.Text = "Xileno" Then
            Label43.Text = 0.106
            Label44.Text = 411.4
            Label45.Text = 286.4
            Label46.Text = 286.4
            Label47.Text = 813.15
            Label48.Text = 617.3
            Label49.Text = 4.145
            Label50.Text = 1474.406
            Label51.Text = -55.377
        End If