Hola, gracias por ese apunte
, basándome en tu código parece que lo conseguí, las instrucciones se ejecutaron bien y la base de datos creció en tamaño. Además el access indica que en el campo OLE object hay datos binarios. El código al final me quedó así:
Código:
query:=TADOQuery.create(Self);
query.connection:=AC1;
query.SQL.text:='Select * from visitas WHERE NVisita='+IntToStr(numVisita);
query.active:=true;
query.edit;
TBlobField( query.FieldByName('Fotografia1') ).LoadFromStream( fStream );
query.Post;
fStream.Free;
query.free;