SoloCodigo

Hola,

Tengo un problema en una PC COMPAQ que tiene una version vieja de W98 (No es Segunda Edicion).

Instale una aplicacion de manejo de clientes y como funcionaba en todas las PCs menos en esa PC, decidi instalar el Visual Basic en esa PC para asi podia ejecutar el programa con el Debuguer y ver que pasaba.

Bien...

Ahora...

Cuando corro el debuguer me aparecen los errores y es que no reconoce el VB instrucciones como FORMAT o TRIM$ o un simple CLOSE ALL, y me aparece el siguiente mensaje en c/u de ellos

ERROR DE COMPILACION :

NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA

PLEASE.....HELP ME !!!!

Gracias

Es muy extraño lo que te pasa. Doy por hecho que la instalación de vb6 no te ha dado ningún tipo de error y ha terminado correctamente.

Con el explorador investiga si tienes VB6ES.DLL y VB6STDK.DLL en el directorio de Windows o en alguna de las subcarpetas.

Un saludo
-Acalanto-

A mí me pasó una vez, y aunque parezca estúpido lo arreglé instalando office 97, prueba a ver si te sirve.

Como decías que en el Pc estaba instalado w98, dí por supuesto que el office era la versión 97, pero si es la 2000 reinstálala igual. El problema está en VBA así que con eso se solocionaría.

A mí me funcionó, así que sí te lo recomiendo.

Hola.

Ya reinstale el Office 2000 y no resolvio el problema.

Ahora...

Estoy viendo en el examinador de objetos y en la PC que falla me aparece ...

FALTA Activex Data Objects 2.50 .......

Ahora Bien....

Copio los archivos de mi PC (que funciona bien)  a la maquina del problema.

c:archivos de programaarchivos comunessystemadomsado*.*
y procedi a registrarlos



Milagrosamente y sin ningun tipo de logica se soluciono lo del error de que no encontraba la funcion format o mid$ o todo lo que fallaba.

PERO......

En dicha aplicacion tengo un DataEnvironment y cuando ejecuto la aplicacion me aparece el siguiente error.

ERROR NRO. 429

EL COMPONENTE ACTIVEX NO PUEDE CREAR EL OBJETO

Como aparecio este error yo pense que como en mi PC tengo WinXP y la de destino tiene W98 habria alguna incompatibilidad, por lo que reinstalo el Visual Basic.

Durante el proceso de instalacion me aparece un mensaje que dice que fallo la registracion del archivos MSADOR15.DLL y otros mas pero todos de la version 1.5 de ADO.

Alguien que me ayude, Please.

Hola amigo:

Te agradezco de antemano tu ayuda en este asunto, lo he incluido aquí porque es el mismo tema de esta discusión. A ver si me puedes echar una manilla

Cuando ejecuto el programa (con el compilador, pulsando el botón play), me sale el error "No se encuentra el proyecto o biblioteca". Lo hace deteniéndose en "Hex" [en la parte... s = Format(Hex(Serial), "00000000")] y en "Left" [en la parte... VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)]

Aclararte que, en un principio, mi programa funcionaba a la perfección, sólo que tuve que formatear mi disco duro y reinstalar el Win98, el Visual Studio y demás programas, por lo que supongo que las susodichas bibliotecas a las que acude no las halla: lo dice el mismo mensaje de 'Error de compilación, no se encuentra el proyecto o biblioteca')

Te muestro el código, a ver si pudieras indicarme qué bibliotecas son, y añadirlas o lo que se tenga que hacer en este caso:

----------------
Public Function VolumeSerialNumber(ByVal RootPath As String) As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String

If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize) Then
'Crea una cadena de 8 caracteres
s = Format(Hex(Serial), "00000000")
'Agregar el caracter '-' entre los 4 primeros caracteres y los últimos 4 caracteres
VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)
Else
'Si la llamada a la función API falla debe retornar un número de serie lleno de ceros
VolumeSerialNumber = "0000-0000"
End If
End Function
--------------

Muchas gracias.