SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sagutxo en Viernes 17 de Febrero de 2006, 12:35

Título: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Viernes 17 de Febrero de 2006, 12:35
SAlu2.

   He creado una tabla desde VB6 para Access97, .mdb. Curiosamente si la creo de esta manera, al guardar un registro perfecto, vamos que no da error, pero al recuperarlo me da imagen no válida.

   Creado el campo de la imagen de la tabla de esta forma, solo pongo la declaraciones de variables y el campo que falla en concreto

Código: Text
  1. Dim NuevaTabla As TableDef
  2. Dim Fld As Field
  3.  
  4. Set Fld = NuevaTabla.CreateField("PD", CLng(dbLongBinary))
  5. Fld.DefaultValue = 0
  6. 'Fld.AllowZeroLength = True
  7. NuevaTabla.Fields.Append Fld
  8. Set Fld = Nothing
  9.  

   Bueno pues al recuperar la imagen de esta manera, osea como lo hago siempre

Código: Text
  1. Dim LngPicLen As Long
  2.  
  3. LngPicLen = AbreTabla.Fields("PD").FieldSize
  4.     '
  5.     ' If there's data in the picture field,
  6.     ' save it to temp file and load it.
  7.       If LngPicLen > 0 Then
  8.       '
  9.       ' Extract from database
  10.       StrFotoData = AbreTabla.Fields("PD").GetChunk(0, LngPicLen)
  11.       '
  12.       ' Save to temp file
  13.       TempFile = PathABase & "\tmp.bmp"
  14.  
  15.       Open TempFile For Binary As #1
  16.       Put #1, , StrFotoData
  17.       Close #1
  18.       '
  19.       ' AQUI DA EL ERROR, "La imagen no es válida"
  20.       Picture1.Picture = LoadPicture(TempFile)
  21.  

   Si borro el campo PD, objeto ole, grabo la tabla, y lo creo desde Access de nuevo funciona, pero no puedo hacerle eso a un usuario :(. Aparentemente las 2 tablas, la manual y la creada desde VB6, son iguales y despues de mirarlo muchisimas veces, creerme, no aprecio ninguna diferencia.

   Si alguno tiene idea de que puede estar pasando le agradeceria su ayuda.
Gracias. y espero haberme explicado sin llegar a ser pesado jejeje.
 :smartass:  :comp:  :smartass:  :whistling:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: masticor en Viernes 17 de Febrero de 2006, 16:35
Viejito no es bueno guardar las fotos en la base de datos es mejor solo guardar la ruta donde se encuentra la foto.
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Viernes 17 de Febrero de 2006, 20:17
Salu2, jovencito :), tienes toda la razón, pero no es lo que quiero, Gracias.

 :comp:  :smartass:  :whistling:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Sábado 18 de Febrero de 2006, 17:49
Salu2, he sustituido una parte la linea que pienso que no hace falta pero sigue ocurriendo lo mismo :(.

Vieja:
Set Fld = NuevaTabla.CreateField("PD", CLng(dbLongBinary))

Nueva:
Set Fld = NuevaTabla.CreateField("PD", dbLongBinary)

Vamos lo mismo.
Agur.
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: 9tnix en Domingo 19 de Febrero de 2006, 15:03
Hola sagutxo  :hola:


Lo que necesitas pero usando ADO esta aqui (http://www.elguille.info/VB/ejemplos/imagenes_ADODataControl.htm)

Mira este otro link que encontre aqui (http://www.elguille.info/VB/ejemplos/bases_imagenes.htm)


Salu2
Att. zeekel  :D  :D
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: cpmario en Domingo 19 de Febrero de 2006, 17:37
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:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Lunes 20 de Febrero de 2006, 14:11
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:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: cpmario en Lunes 20 de Febrero de 2006, 21:05
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:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Lunes 20 de Febrero de 2006, 22:31
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:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Lunes 20 de Febrero de 2006, 23:28
Salu2.  OLEEEEEEEEEEEEEEEEEEEEEEEEEe, he encontrado el error :)

Código: Text
  1. Set Fld = NuevaTabla.CreateField("PD", dbLongBinary)
  2. Fld.DefaultValue = 0  [B]ESTE ES EL ERROR, quitandolo funciona as la perfección.[/B]
  3. 'Fld.NuevaTabla.Fields.Append Fld
  4. Set Fld = Nothing
  5.  

Por fin, pensé que no lo iba a encontrar nunca :). :comp:  :smartass:  :comp:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Miércoles 22 de Febrero de 2006, 12:32
SAlu2, ahora me he topado con otro problema:

   Imaginaros dos pictures:

   Cargo la primera imagen, perfecto, cargo la segunda, al abrirse la ventana del CDLG, si tapa por completo el picture cargado, desaparece la imagen. aunke realmente está ahí.

   Hay alguna forma de que esto no suceda?

Gracias.
 :smartass:  :comp:  :smartass:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: cpmario en Miércoles 22 de Febrero de 2006, 17:59
Verifica que la propiedad 'AutoRedraw' del PictureBox sea igual a 'True'

 :comp:
Título: Re: Error Al Recuperar Imagen De Mdb Access 97.
Publicado por: Sagutxo en Miércoles 22 de Febrero de 2006, 18:08
Salu2. Tio, eres mi ángel de la guarda, no se como puedes acordarte de todas las cosas.
Muchas gracias. :)
 :smartass:  :comp:  :smartass: