Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Problemas para guardar en la tabla (https://www.clubdelphi.com/foros/showthread.php?t=34680)

ilichhernandez 17-08-2006 18:46:48

Problemas para guardar en la tabla
 
Hola amigos y colegas, tengo el siguiente problema, tengo unos campos dbedit, un par de memos y 2 image,un dbgrid , un componente tabla, una bd y un datasource, ahora bien necesito agregar registros (datos e imagenes) y no me guarda los datos ni imagenes.... aqui les envio de el codigo que tengo.....

Aqui esta el boton agregar, para realizar la insercion
Código Delphi [-]
procedure TForm1.cxButton1Click(Sender: TObject);
begin
table1.Insert;
end;
Aqui esta el codigo de la carga de imagen
Código Delphi [-]
procedure TForm1.dxButton1Click(Sender: TObject);
Var
  jpg : TJpegImage;
  Stream : TMemoryStream;

begin
  jpg := Nil;
  Stream := Nil;
  Try
    openpicturedialog1.Execute;
    edit1.Text := openpicturedialog1.FileName;
    Jpg := TJpegImage.Create;
    Jpg.LoadFromFile(openpicturedialog1.FileName);
    Stream := TMemoryStream.Create;
    Jpg.SaveToStream(Stream);
    Stream.Position := 0;
    cx_etiqueta.Picture.LoadFromFile(openpicturedialog1.FileName);
    TBlobField(Table1.FieldByName('foto_etiqueta')).LoadFromStream(Stream);
     except
      jpg.free;
      stream.Free;
      raise;
    end;
    jpg.free;
    stream.Free;
end;

Y evidentemente el codigo para salvar
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Post;
end;

Bueno espero que alguien pueda saber que es lo que no anda bien por aqui.... muchas gracias de antemanos....

BLASS 17-08-2006 23:11:47

Sugerencias
 
Hola...

Recomendaciones......

Puedes almacenar las imagenes en un Folder común, el cual puedas enrutar desde tu aplicación.

En vez de descargar la imagen en la base de datos puedes guardar la ubicación del archivo de imagen.....

Utiliza Append en vez de Insert, te garantiza que siempre será el último registro.

Blass

ilichhernandez 17-08-2006 23:16:44

Ok cambie el append por el insert, pero lo otro no lo puedo realizar, pues como es una aplicacion que trabajara en red no podria accesar las imagenes si lo realizao con los nombres y enrutandolos hacia las imagenes, si fuese local me serviria esa solucion pero en red o no se puede asi o yo no se como hacerlo..... gracias...


La franja horaria es GMT +2. Ahora son las 04:38:21.

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