ADO怎样才能存取oracle的lob字段，我用的是微软的provider 高手请进！

Question

问题是这样 因为ado的原因 ，我采用存储过程向后台数据库提交 blob字段，但是同样的我在使用过程返回参数时 ，ADOStoredProc 的参数不知道怎样赋值  理论上讲  应当给过程一个类似blob定位器的东东才对  可是blob参数 是out的 呀  希望大虾指点  我郁闷了一天了  难道用微软提供的provider就不能解决这个问题吗  
 我的后台过程如下：
create or replace procedure pro_gettestblob(v_id varchar2,p_ftxt out  blob) is
begin
 select ftxt into p_ftxt  from textblob where id=v_id for update;
 --dbms_output.put_line(v_id);
end pro_gettestblob;
  在客户端给怎样写呀 ！  在线等待

Answer 1

怎样写？一看到这就晕难道别人帮你写？Shit

Answer 2

我并没有要大家帮我写的意思 ，我是求教ado使用微软的的provider怎样解决blob字段的存取问题。看看大家可不可以帮我的忙。 使用TadoQuery打开含有blob字段的数据集 我这里怎么都不行，所以我采用了ADOStoredProc  想通过存储过程来实现。 就是这个想法 。如果我什么问题都解决了  我还上论坛 发什么帖子   ！

Answer 3

用OLE代碼如下：（樓主本人的）//Save Paper
procedure TfrmResPaper.bbnSavePaperClick(Sender: TObject);
var
    Query:TADOQuery;
    Stream:TADOBlobStream;
begin
    if not ((OlePaper.State=osLoaded) and
        (DMResPaper.State=dsBrowse) and (DMResPaper.RecordCount>0))  then Exit;
    Query:=TADOQuery.Create(nil);
    with Query do
    begin
        Connection:=Pubconn;
        SQL.Clear;
        SQL.Add('SELECT ID,RES_NO,PAPER FROM B_PAPER WHERE ID='+DMResPaper.FieldByName('ID').AsString
                +' AND RES_NO='''+DMResPaper.FieldByName('RES_NO').AsString+'''');
        Open;
        Edit;
        Stream:=TADOBlobStream.Create(TBlobField(FieldByName('PAPER')),bmReadWrite);
        try
            try
                OlePaper.SaveToStream(Stream);
            finally
                Stream.Free;
            end;
            Post;
            EpsDLG('圖紙保存成功!');
        except
            EpsDLG('圖紙保存失敗!');
        end;
        Query.Free;
    end;
end;//Load Paper
procedure TfrmResPaper.dgMainDblClick(Sender: TObject);
var
    Query:TADOQuery;
    Stream:TADOBlobStream;
begin
  inherited;
  if not ((DMResPaper.State=dsBrowse) and (DMResPaper.RecordCount>0))  then Exit;
    Query:=TADOQuery.Create(nil);
    with Query do
    begin
        Connection:=Pubconn;
        SQL.Clear;
        SQL.Add('SELECT ID,RES_NO,PAPER FROM B_PAPER WHERE ID='+DMResPaper.FieldByName('ID').AsString
                +' AND RES_NO='''+DMResPaper.FieldByName('RES_NO').AsString+''' AND PAPER IS NOT NULL');
        Open;
        if RecordCount=0 then
            OlePaper.DestroyObject
        else
        begin
            Stream:=TADOBlobStream.Create(TBlobField(FieldByName('PAPER')),bmRead);
            try
                OlePaper.LoadFromStream(Stream);
            finally
                Stream.Free;
            end;
        end;
        Query.Free;
    end;
end;

Answer 4

如果是微软的provider Query是根本就打不开的，不过谢谢楼主  我还是结贴了