Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Problema al cargar una imagen a una Base de datos access (https://www.clubdelphi.com/foros/showthread.php?t=84530)

feliz-58 31-10-2013 03:56:59

Problema al cargar una imagen a una Base de datos access
 
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.:confused::confused::confused::confused:

Saludos! :(


Datos:
Delphi 7
Base de datos Access
Componentes ADO

Neftali [Germán.Estévez] 31-10-2013 10:29:15

¿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 31-10-2013 12:17:31

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 31-10-2013 13:42:21

Cita:

Empezado por Neftali (Mensaje 469129)
¿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 :D Por fin funciona :)

feliz-58 31-10-2013 13:42:57

Cita:

Empezado por radenf (Mensaje 469132)
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 ;)


La franja horaria es GMT +2. Ahora son las 20:02:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi