X
xdf_hubei
Unregistered / Unconfirmed
GUEST, unregistred user!
ADO+DELPHI5+SQL SERVER2000,一个存储过程,调用一个,则产生刷新一个表,改写全部记录
我在一个循环里调用这个存储过程,为什么执行几步以后系统告知虚拟内存不足,而且我观察
在刚开始几次循环的时候,内存变化不大,可是到后来成线性增长,部分代码如下,请高人指点
for i:=1 TO 20 DO
BEGIN
AdoStoredProc1.Parameters[1].Value:=Adoquery2.FieldByname('ChannelNo').asinteger;
AdoStoredProc1.Parameters[2].Value:=7;
strChannelName:=Adoquery2.FieldByName('channelname').asstring;
ChannelNo:=Adoquery2.FieldByname('ChannelNo').asinteger;
if not AdoStoredProc1.Prepared then AdoStoredProc1.Prepared:=True;
AdoStoredProc1.ExecProc;
AdoStoredProc1.Prepared:=False;
AdoStoredProc1.Close;
.....
END;
我在一个循环里调用这个存储过程,为什么执行几步以后系统告知虚拟内存不足,而且我观察
在刚开始几次循环的时候,内存变化不大,可是到后来成线性增长,部分代码如下,请高人指点
for i:=1 TO 20 DO
BEGIN
AdoStoredProc1.Parameters[1].Value:=Adoquery2.FieldByname('ChannelNo').asinteger;
AdoStoredProc1.Parameters[2].Value:=7;
strChannelName:=Adoquery2.FieldByName('channelname').asstring;
ChannelNo:=Adoquery2.FieldByname('ChannelNo').asinteger;
if not AdoStoredProc1.Prepared then AdoStoredProc1.Prepared:=True;
AdoStoredProc1.ExecProc;
AdoStoredProc1.Prepared:=False;
AdoStoredProc1.Close;
.....
END;