Programación General > Visual Basic 6.0 e inferiores
Re: No se puede encontrar el proyecto o la biblioteca
chiaravel:
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
:beer:
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.
:ayuda::ayuda::ayuda::ayuda::ayuda::ayuda::ayuda::ayuda:
chiaravel:
La solucion a este problema es mas simple de lo que se esperaba.
Estas PCs con W98 viejo tenian desactualizado el MDAC para ser mas exacto tenian la version de ODBC 3.510.3711.0.
Descargue de la pagina de Microsoft el MDAC 2.7 y lo instale y me actualizo el ODBC a la version
3.520.4403.2.
Listo todo funciono de maravillas.
Muchas Gracias a todos los que me ayudaron.
:beer:
puedequesiempre:
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.
puedequesiempre:
Ah, claro, y revisanso y revisando el programa (estoy ya de los nervios), más adelante he hallado que también se detiene en la propiedad/instrucción "Right".
Viene a ser la misma que "Left", ya sabemos, del tipo de manejo de cadenas.
Por favor, ayudenme.
Gracias.
Navegación
[*] Página Anterior
Ir a la versión completa