Buenas nuevamente colegas.
En esta ocacion mi consulta es acerca del entorno de programacion, habitualmente programo en Vb6 y recientemente instale en mi equipo el Visual Studio 2005 y luego intente convertir un proyecto de vb6 a 2005 pero cuando intento iniciar la depuracion me emite un mensaje: "Errores al generar. Desea continuar y ejecutar la ultima version generada? SI/NO, obviamente se generaron errores en la conversion, por ejemplo en la siguiente guncion me inserto los siguientes mensajes:
Public Function Importe(ByRef Vimporte As Object) As Decimal
Dim vvalor As Object
On Error GoTo Hay_err_err
Dim Vcon As Object
Dim Vcat As Object
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto vvalor. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
vvalor = 1
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Form_Liquidacion.txtlegajo. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Busqueda(). Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcon. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Vcon = Busqueda("Convenio", "Tbl_Empleados", "legajo=" & Form_Liquidacion.txtlegajo & "")
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Form_Liquidacion.txtlegajo. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Busqueda(). Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcat. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' Vcat = Busqueda("Categoria", "Tbl_Empleados", "legajo=" & Form_Liquidacion.txtlegajo & "")
DBpath = My.Application.Info.DirectoryPath & "\datos\tablas.mdb"
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcon. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcat. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"' strsql = "SELECT * FROM Tbl_C_importes WHERE categoria=" & Vcat & "and convenio=" & Vcon
db = DAODBEngine_definst.OpenDatabase(DBpath, False, False, ";pwd=" & MiPass)
rst = db.OpenRecordset(strsql)
rst.MoveFirst()
rst.MoveLast()
Select Case Vimporte
Case 1
Importe = rst.Fields("Importe1").Value
Case 2
Importe = rst.Fields("Importe2").Value
Case 3
Importe = rst.Fields("Importe3").Value
Case 4
Importe = rst.Fields("Importe4").Value
Case 5
Importe = rst.Fields("Importe5").Value
Case 6
Importe = rst.Fields("Importe6").Value
Case 7
Importe = rst.Fields("Importe7").Value
Case 8
Importe = rst.Fields("Importe8").Value
Case 9
Importe = rst.Fields("Importe9").Value
Case 10
Importe = rst.Fields("Importe10").Value
End Select
Hay_err_exit:
'Cerramos los Objetos...
rst.Close()
db.Close()
'Desvinculamos los objetos...
'UPGRADE_NOTE: El objeto rst no se puede destruir hasta que no se realice la recolección de los elementos no utilizados. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
rst = Nothing
'UPGRADE_NOTE: El objeto db no se puede destruir hasta que no se realice la recolección de los elementos no utilizados. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
db = Nothing
Hay_err_err:
Select Case Err.Number
Case 3024
MsgBox("Es imposible localizar la base de datos en la ruta determinada: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & My.Application.Info.DirectoryPath & "\datos" & " e intente nuevamente", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Aviso!")
Exit Function
Resume Hay_err_exit
Case 3078
MsgBox("Es imposible encontrar la tabla requerida. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & My.Application.Info.DirectoryPath & "\datos" & " e intente nuevamente", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Aviso!")
Exit Function
Resume Hay_err_exit
Case 3071
Importe = 0
End Select
End Function
Bueno, las consultas son:
1-Como soluciono lo de los erroresÇ?
2-por que se generan si es el mismo codigo?
3- Es mejor Visual Studio 2005 que vb6 clasico?
Gracias de antemano por sus respuestas.-