Ver Mensaje Individual
  #5  
Antiguo 09-12-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

La verdad es que no sé si comprendí realmente que es lo que buscas...
Creo haber entendido que tenes un query origen (donde está la imágen) y otro de destino donde se copiará ("mi tabla").

Entonces, si no inferí mal:
Código Delphi [-]
...
var
  Stream : TStream;
begin
  Stream := TMemoryStream.Create;
  try
    TBlobField( qryOrigen.FieldByName( 'IMAGEN' ) ).SaveToStream( Stream );
    Stream.Seek( soFromBeginning, 0 );
    qryDestino.Close;
    qryDestino.SQL.Text := 'UPDATE REL_CONCEPTO_SUMINISTRO SET IMAGEN = :IMAGE WHERE ID = :ID';
    qryDestino.ParamByName( 'ID' ).AsInteger := numero_id ; // ID de la tabla destino
    qryDestino.ParamByName( 'IMAGEN' ).LoadFromStream( Stream, ftBlob  );
    qryDestino.ExecSQL;
  finally
    Stream.Free;
  end;
...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita