ado 频繁执行内存增长问题

delphi7+ado

解决

var
RecordSet   :   _RecordSet;

begin

 RecordSet:=con1.Execute('select ......');
 qry1.Recordset := RecordSet;

end;