Problema al cargar una imagen a una Base de datos access

[feliz-58]

Saludos, Quiero cargar una imagen a un Base de datos Access pero me da error #42.

el dialogo se abre y todo y la imagen se carga al dbimage pero al momento de guardarla sale el error.

Código Delphi [-]
var
  direccion:string;
begin
 if OpenPictureDialog1.Execute then begin
  direccion:= OpenPictureDialog1.FileName;
  DBImage1.Picture.Bitmap.LoadFromFile('fotoprueba.bmp');
 end;
end;

alguien sabe porque? o tiene otra forma de guardarla, busque TODOS! los post sobre el tema y las formas que he visto ninguna me ha funcionado.

Saludos!


Datos:
Delphi 7
Base de datos Access
Componentes ADO

[Neftali [Germán.Estévez]]

¿Porqué no utilizas el nombre del fichero que has seleccionado?

Código Delphi [-]
var
  direccion:string;
begin
 if OpenPictureDialog1.Execute then begin
  direccion:= OpenPictureDialog1.FileName;
  DBImage1.Picture.Bitmap.LoadFromFile(direccion);
 end;
end;

Por otro lado, ten en cuenta que el LoadFromFile necesita la ruta completa de dónde se encuentra el fichero.

[radenf]

Estimado feliz-58:

Para evitar problemas debes colocar la BD en estado de edición y asignar la ruta completa del archivo de imagen como señala Neftali, utilizando el siguiente código (Bitmap está demás):

Código Delphi [-]
begin
if OpenPictureDialog1.Execute then begin
TuTabla.Edit;
DBImage1.Picture.LoadFromFile( OpenPictureDialog1.FileName);
TuTabla.Post;
end;

Esto a mi me funciona perfecto en Access 2007
Salu2

[feliz-58]

Empezado por radenf

Estimado feliz-58:

Para evitar problemas debes colocar la BD en estado de edición y asignar la ruta completa del archivo de imagen como señala Neftali, utilizando el siguiente código (Bitmap está demás):

Código Delphi [-]
begin
if OpenPictureDialog1.Execute then begin
TuTabla.Edit;
DBImage1.Picture.LoadFromFile( OpenPictureDialog1.FileName);
TuTabla.Post;
end;

Esto a mi me funciona perfecto en Access 2007
Salu2

gracias

[feliz-58]

Empezado por Neftali

¿Porqué no utilizas el nombre del fichero que has seleccionado?

Código Delphi [-]
var
  direccion:string;
begin
 if OpenPictureDialog1.Execute then begin
  direccion:= OpenPictureDialog1.FileName;
  DBImage1.Picture.Bitmap.LoadFromFile(direccion);
 end;
end;

Por otro lado, ten en cuenta que el LoadFromFile necesita la ruta completa de dónde se encuentra el fichero.

Muchas Gracias Por fin funciona