Programación General > Visual Basic 6.0 e inferiores
Error Al Recuperar Imagen De Mdb Access 97.
cpmario:
Trata de abrir con algún programa visor de imágenes, para ver si efectivamente la imagen no es válida.
Te sugiero revises como se guarda la imagen, por ahí puede estar el problema.
El error de imagen no válida, significa que en algunos de los pasos el formato de la imagen se perdió.
:comp:
Sagutxo:
Salu2.
Abriéndolo con otro programa me dice que no es un archivo de mapa de bits correcto :(.
Lo verdaderamente curioso es:
Creo la tabla desde VB6 y parece ser que el campo Objeto Ole no se crea correctamente ya que si la abro desde access y borro ese campo, guardo la tabla, y creo el campo de nuevo con los datos exactamente iguales, Mismo nombre y mismo tipo, el programa recupera bien las imagenes.
La verdad es que ya no se que mas hacerle, puede que deba desistir y buscar otras posibilidades :( .
Muchas gracias a los 2, el 2º enlaze tiene buena pinta, a ver si saco un ratillo y lo miro.
:smartass: :comp: :whistling:
cpmario:
Modifiqué el programa del que posiblemente tomaste las rutinas que muestras y que se encuentra en PSC. Te lo adjunto, le coloqué una rutina para que elabore una base de datos programáticamente y funciona para lo que deseas.
Espero te sea de utilidad.
:comp:
Sagutxo:
Salu2.
Efectivamente este funciona, dios muchíiiiiiiiiiisimas gracias por tomarte tiempo en hacermelo tan fácil.
Lo único que veo diferente al crear el campo Ole de la DB es la forma de abrir la tabla, así que será algo así.
La verdad es que no me acuerdo de donde cogí el ejemplo para guardar imagenes, pero tendrás razon seguro porque son muy parecidos.
Gracias, me siento en deuda contigo. No es naada habitual ver tanta dedicación.
:smartass: :smartass: :comp:
Sagutxo:
Salu2. OLEEEEEEEEEEEEEEEEEEEEEEEEEe, he encontrado el error :)
--- Código: Text ---Set Fld = NuevaTabla.CreateField("PD", dbLongBinary)Fld.DefaultValue = 0 [B]ESTE ES EL ERROR, quitandolo funciona as la perfección.[/B]'Fld.NuevaTabla.Fields.Append FldSet Fld = Nothing
Por fin, pensé que no lo iba a encontrar nunca :). :comp: :smartass: :comp:
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa