adoquery 的值 close 后再 append报错,请指点,TKS!解决思路

adoquery 的值 close 后再 append报错,请指点,TKS!if not qrycoloryarn.Active then qrycoloryarn.Openqr

adoquery 的值 close 后再 append报错,请指点,TKS!
if not qrycoloryarn.Active then qrycoloryarn.Open;
  qrycoloryarn.Close;
  with qrycoloryarn do
  begin
  qrycoloryarn.Append;
  end;
想把qrycoloryarn中的值清除掉,再插新值,提示错误,怎么样才能解决此问题?

[解决办法]
抱本书再啃啃,TQuery.Close方法是关闭数据集(失去对表操作控制),而不是清除数据集。
如果要清空记录集中数据,应该用delete方法:
while not qrycoloryarn.recordcount>0 do qrycoloryarn.delete;
qrycoloryarn.append;
。。。