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

[fogg]

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

[renzhm]

动态创建TQuery，想实现增删改功能，必须

Qry.RequestLive:=true;

如果有必要使用缓存：

Qry.CachedUpdates:=true;

[renzhm]

如果是TADOQuery：

Qry.LockType:=ltBatchOptimistic;

[fogg]

我QQ:9623642
欢迎指教，并交个朋友

[renzhm]

不知道有没有解决您的问题？

[e-mail]

QQ:35692190//没有QQ的条件

[fogg]

to:renzhm
msn:[e-mail]