Ver Mensaje Individual
  #1  
Antiguo 15-10-2007
Avatar de novato03
novato03 novato03 is offline
Miembro
 
Registrado: ago 2007
Posts: 45
Reputación: 0
novato03 Va por buen camino
Question Problema para grabar en access

Hola a todos, ya se que este tema de grabar imagenes en una tabla access ha sido ya debitido en varias ocasiones, pero el problema es que no se porque la imagen no se guarda en la tabla, lo he tratado de realizar de la siguiente manera con código que he consguido aqui en el foro.

Código Delphi [-]
procedure TFormSubclases.BitBtn1Click(Sender: TObject);
begin
  with TOpendialog.Create(nil) do
  try
    Filter:= 'Archivos de imagen|*.bmp;*.ico;*.jpg';
    if Execute then
    begin
     AdoTable1.Edit;
      DBImage1.Picture.LoadFromFile(Filename);
     AdoTable1.Post;
    end;
  finally
    Free;
  end;
end;

otro caso.

Código Delphi [-]
If OpenPictureDialog1.Execute then
begin
AdoTable1.Edit;
DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);
AdoTable1.Post;
End;

Otro caso.

Código Delphi [-]
with TOpenPictureDialog1.Create(nil) do  
  try
      if Execute then
    AdoTable1.edit;
     DBImage1.Picture.LoadFromFile(FileName);
      AdoTable1.Post;
     finally
     Free;

  end;

Se supone que debería grabarlo en la tabla pero no lo hace, utilizo Delphi 7 y Access 2003, el campo para grabar la imagen lo he puesto en esta dos forma Texto y OleDb, pero no me finciona.

Gracias de antemano por la ayuda que alguien me pueda birndar...
Responder Con Cita