Grabar Imagen en Tabla Access

[rodrigodeoz]

primero agregas un OpenPictureDialog1, un Imge1, un edit y boton;
en el boton le agregas este codigo:

Código Delphi [-]
 
if (OpenPictureDialog1.Execute) then begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
edit1.Text:=openpicturedialog1.FileName;
end;

esto es para buscar y mostrar la imagen.
para guardarla solo guardas el texto que te parece en el edit1 y para mostrar la imagen desde una consulta te dare un ejemplo:


image1.Picture.LoadFromFile(query1.field[0].value);

suponiendo que la consulta solo la haces para seleccionar la imagen

o desde un DBGRID
image1.Picture.LoadFromFile(dbgrid1.Fields[6].asstring);

su poniendo que en la posisicion 6 del grid esta la direccion de la imagen
este codigo para el grid se lopones en el onclick o en le DblClick