Código Delphi
[-]
Var
MS : TmemoryStream;
Begin
ms:=TMemoryStream.Create ;
MyTImage.Picture.Graphic.savetoStream(ms);
ExecSQL(insert into empleados (nombre,apellido,id) values ('Juan','Perez','1212'))
OpenSQL('select * from empleados where id ='1212',zquery2);
zquery2.Edit;
ZQuery2foto.LoadFromStream(ms);
ZQuery2.Post;
end;
No es Muy elegante pero me funciona...
Otra tambien podria ser...
Código Delphi
[-]
OpenSQL('select * from empleados where id ='''+id+'''',zquery2);
zquery2.Edit;
ZQuery2foto.LoadFromFile(OpenDialog1.FileName );
ZQuery2.Post ;
P.D.: El OpenSQL y ExecSQL, son funciones mias que lo unico que hacen es ejecutar la consulta....seria lo mismo que
zquery2.sql.tex='select * from empleados';
zquery2.execsql;
espero que te sirva...
