DELPHI+ADO+ORACLE8 如何实现图片字段的打开，保存 (30分)

我是这么写的，图版字段用的是blob类型，但总是出错
procedure TForm1.BitBtn2Click(Sender: TObject);
var
ms:TMemoryStream;
begin
Ms:=TmemoryStream.Create;
Image1.picture.bitmap.SaveToStream(ms);
ms.Seek(0,0);
adoq_tmp.Close;
adoq_tmp.SQL.Text :='update corppicture set corppicture1=:corppicture1 where '+
' fullcorpcode=''' + dbedit1.Text+'''' ;
//adoq_tmp.Parameters.ParamByName('corppicture1').assign(image1.Picture.Graphic);
adoq_tmp.Parameters.ParamByName('corppicture1').loadFromStream(ms,ftblob);
adoq_tmp.ExecSQL ;
ms.Free;
end;

我用的是TABLE的as TBlobField.loadfromfile，没问题。
听其他DFW说用QUERY也是可以的，我没有试过。试试加上as TBlobField。
用loadfromstream应该是一样的。

顺序：先执行 query，再Edit， 再LoadfromStream， 再 Update 回去。