delphi ADO操作blob字段，在线等待，实现就给分

Question

procedure TForm1.Button3Click(Sender: TObject);
var
  qry:TADOquery;
  sPath:string;
  //word_stream:TFilestream;
begin
  try
    qry:=tadoquery.Create(self);
    qry.Connection:=self.c;
    qry.sql.Clear;
    qry.SQL.add('select * from CFIB.D');
    qry.Open;
    qry.Insert;
    OpenDialog1.Filter:='word file (*.doc)';
    if OpenDialog1.Execute then
      begin
        qry.FieldByName('a').AsString:='1';
        sPath:=OpenDialog1.FileName;
        TBlobField(qry.FieldByName('b')).LoadFromFile(sPath);
        qry.Post;
      end;  except on e:Exception do
    begin
      showmessage(e.Message);
      exit;
    end;
  end;
  showmessage('ok');end;请问：上述实现对吗？数据库是db2
报错误：[DB2/NT] SQL0973N  "QUERY_HEAP" 堆中没有足够的存储器可用来处理语句。  SQLSTATE=57011

Answer 1

动态创建TQuery，想实现增删改功能，必须 Qry.RequestLive:=true;如果有必要使用缓存： Qry.CachedUpdates:=true;

Answer 2

如果是TADOQuery： Qry.LockType:=ltBatchOptimistic;

Answer 3

to:renzhm
msn:[email protected]