<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#ffffff">
Hola a todos, tengo un problema e la actualizacion de una tabla para
un campo Bytea [BLOB], tengo el procedimiento descrito abajo, el
cual me debería permitir actualizar un registro de la tabla, en
particular un campo donde guardo las imágenes. El problema está que
me actualiza TODOS los registros y no solo el que deseo. Alguna
idea de como solucionarlo?<br>
<br>
<br>
<b>Procedure <font color="#996633"><i>Tsqlmanage.AddImage</i></font></b>(<i><font
color="#660000">sTable,sImageField: String;
Imagen:TImage;sCondicion:string</font></i>);<br>
<b>var </b>SQLupdate:TZUpdateSQL;<br>
TheImage:TStream;<br>
<b>begin</b><br>
TheImage:=TMemoryStream.Create;<br>
Imagen.Picture.Bitmap.SaveToStream(TheImage);<br>
TheImage.Position:=0;<br>
<b>with </b>Query <b>do begin</b><br>
Close();<br>
Params.Clear;<br>
SQL.Clear;<br>
SQL.Add<font color="#336666">('select '</font> + sImageField );<br>
SQL.Add(<font color="#336666">'from '</font>+ sTable);<br>
SQL.Add(<font color="#336666">'where '</font>+ sCondicion);<br>
Open;<br>
Edit;<br>
TBlobField(FieldByName(sImageField)).LoadFromStream(TheImage);<br>
Post; <i><font color="#3366ff">//Probe con ApplyUpdates y fue
lo mismo</font></i><br>
FreeAndNil(TheImage);<br>
<b> end;<br>
end; </b> <br>
</body>
</html>