Jump to content


Photo

¿Cómo insertar imágenes en access 2010, no me aparece esa opción que debo hacer?


  • Please log in to reply
3 replies to this topic

#1 Master23

Master23

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 230 posts
  • LocationSanto Domingo

Posted 11 July 2010 - 03:16 PM

Bueno estaba usando access por primera vez es igual que casi todos los sistemas de base de datos pero bien en la lista de tipos de datos no me aparece la opción imagen , solo datos adjuntos y no creo que sea el tipo para poder mostrar imágenes en delphi como en paradox espero su ayuda ,gracias de antemano.
  • 0

#2 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 12 July 2010 - 06:49 AM

En paradox se manejan tipos BLOB, en acces puedes usar el tipo OLE

Objeto OLE Objeto (como por ejemplo una hoja de cálculo de Microsoft Excel, un documento de Microsoft Word, gráficos, sonidos u otros datos binarios) vinculado o incrustado en una tabla de Microsoft Access.


Recuerda que las imagenes en este tipo de motores pueden poner pesada la red.

  • 0

#3 zajoma

zajoma

    Newbie

  • Miembros
  • Pip
  • 1 posts

Posted 07 August 2010 - 09:57 AM

Hola amigos, soy nuevo y con ganas de colaborar.

este es un procedimiento para insertar y recuperar imágenes en ACCESS



delphi
  1. procedure TForm1.CargaFoto( field:TField; image:TImage );
  2. var
  3.   BS:TADOBlobStream;
  4. begin
  5.   result.Picture.Graphic := nil;
  6.  
  7.   if not field.IsNull then begin
  8.     BS := TADOBlobStream.Create( field AS TBlobField, bmRead );
  9.     try
  10.       Image.Picture.Graphic := TJPegImage.Create();
  11.       Image.Picture.Graphic.LoadFromStream( BS );
  12.     finally
  13.       BS.Free;
  14.     end;
  15.   end;
  16. end;
  17.  
  18. procedure TForm1.GrabaFoto( field:TField; image:TImage );
  19. var
  20.   BS:TADOBlobStream;
  21. begin
  22.   if (Image.Picture.Graphic <> nil ) then begin
  23.     BS := TADOBlobStream.Create( field AS TBlobField, bmWrite );
  24.     try
  25.       Image.Picture.Graphic.SaveToStream( BS );
  26.     finally
  27.       BS.Free;
  28.     end;
  29.   end;
  30. end;



espero que sirva.
  • 0

#4 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6295 posts
  • LocationArgentina

Posted 07 August 2010 - 11:21 AM

Hola zajoma,

Gracias por tu aporte.

Bienvenido a DelphiAccess, espero que este lugarcito te sea de mucho agrado.
Me tomé la molestia de editar tu mensaje para darle el formato adecuado a tu código.

Para hacer esto debes emplear la etiqueta DELPHI, fíjate que cuando redactas tus mensajes justo debajo del combo "tamaño de fuente" hay un botón de un caso romano. Selecciona tu código y presiona el botón. Con eso debería bastar para darle el formato.
En mi firma tengo un enlace que dice "uso de etiquetas", fíjate.

Saludos,
  • 0




IP.Board spam blocked by CleanTalk.