关于非可视控件的动态创建与释放（二层结构）(100分)

listhano · 2006-11-20

利用ACCESS数据库，用TADOQuery控件，返回数据集。 我要问的问题是：当打开少量的TADOQuery数据集，程序运行正常；如果打开多个数据集，运行程序就会出错（可能是正用内存太多的缘故吧）。请问下面的程序怎样做才能关闭TADOQuery数据集（即用完一个，关闭一个）？ ============================== ｛***这是数据层的数据集***｝ unit uClassTab; interface uses  SysUtils,Classes,ADODB; type  TTab=class(TObject)  public    CunQry:TADOQuery;    procedure AllQry(AllQryName:string);    procedure TabShow(ShowName:string);  end; implementation procedure  TTab.AllQry(AllQryName:string); var  cnn:TADOConnection; const    strA='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';    strB=';Persist Security Info=False';    mdbName='ClimateNMDat.mdb'; begin  CunQry:=TADOQuery.Create(nil);  cnn:=TADOConnection.Create(nil);  cnn.ConnectionString:=strA+ExtractFilePath(ParamStr(0))+mdbName+strB;  cnn.LoginPrompt:=false;  with CunQry do  begin    Connection:=cnn;    Close;    SQL.Clear;    SQL.Add('select * from '+AllQryName+' order by year');    open;  end; end; procedure  TTab.TabShow(ShowName:string); begin  AllQry(showName); end; ========================= ｛***这是界面层应用情况***｝ {***返回的是树状节点值（其目的是为了查找数据库中的数据表。 即R0101、R0102、R0103...R1001、R1002、R1003...***） function TfrmMain.tvTTreeNode:string; var  parent,child:string; begin    if (tv.Selected.Parent.Index<9) and (tv.Selected.Parent.Index>=0) then      parent:='0'+IntToStr(tv.Selected.Parent.Index+1); //tv是TTreeView;    if tv.Selected.Parent.Index>=9 then      parent:=IntToStr(tv.Selected.Parent.Index+1);    if (tv.Selected.Index<9) and (tv.Selected.Index>=0) then      child:='0'+IntToStr(tv.Selected.Index+1);    if tv.Selected.Index>=9 then      child:=IntToStr(tv.Selected.Index+1);    if (StrToInt(parent)>=0) and (StrToInt(child)>=0) then      Result:='R'+parent+child      else      Result:='R0101'; end; //当改变树状(即TTreeView)焦点（节点）时显示不同的数据集 procedure TfrmMain.tvChange(Sender: TObject; Node: TTreeNode); begin  tvSelect(tvTTreeNode); end; //在dbg（TDBGrid控件）中显示数据集 procedure TfrmMain.tvSelect(strName:string); var  s:TTab; begin  s:=TTab.Create;  s.TabShow(stRName);    //<----当多次改变树状节点时这里就产生错误（就是找不到数据库中表了即R****我想这个可能与打开多个数据集有关）  ds.DataSet:=s.CunQry;  //ds:是TDataSource;  dbg.DataSource:=ds;   //dbg:是TDBGrid; end; ======================== s.TabShow(stRName);     当多次改变树状节点时这里就产生错误（就是找不到数据库中表了即R****我想这个可能与打开多个数据集有关）；我想到释放数据集，在这个过程中 procedure  TTab.AllQry(AllQryName:string); 这样释放数据集？ 大概是这种结构有问题，请高手给一个合理的结构。 谢谢！

时报平 · 2006-11-20

1、TADOConnection没必要每次都动态创建吧，那样的话，随着你的 AllQry的调用次数增多，TADOConnection也很多。一个就行了。 2、〉〉运行程序就会出错 出什么错？

tianlove · 2006-11-20

[

]没看懂楼主的用意

listhano · 2006-11-20

to 时报平 谢谢！ 我会采纳你的建议的。

listhano · 2006-11-20

to tianlove 我的问题就是： 我已经动态创建了TADOQuery. 怎样才能动态释放它？（就这么简单的问题） 谢谢！

shunzi1220 · 2006-11-20

首先你的这段程序创建的对象都没有有释放，肯定存在严重的内存泄露，个人看法： 1、TTab中可以考虑返回_recordset      aADO := MyDBUtils.ExecSQLReturnRS(sqlstr);      result := aADO.Recordset;      if aADO <> nil then FreeAndNil(aADO); 2、当改变树状(即TTreeView)焦点（节点）时显示不同的数据集，此过程最好不要写在OnChange事件中，可以试试其它事件 3、TTab定义为全局变量 var  s:TTab; s:=TTab.Create; procedure TfrmMain.tvSelect(strName:string); begin  s.Recordset := Nil;    //Recordset为返回的_Recordset  s.TabShow(stRName);      ds.AdoQuery.Recordset := s.Recordset;  //AdoQuery可以是TAdoQuery  dbg.DataSource:=ds;   //dbg:是TDBGrid; end; 下面是我定义的数据操作类中的一个函数，你参考一下 function TDBUtils.ExecSQLReturnRS(strSQL: string): TADOQuery; var  ReQuery: TADOQuery; begin  Result := nil;  try    if strSql = '' then exit;    ReQuery := TADOQuery.Create(nil);    ReQuery.Connection := DBConn;    ReQuery.SQL.Clear;    ReQuery.SQL.Text := strSQL;    ReQuery.Active := true;    ReQuery.Connection := nil;    result := ReQuery;  except    on E: Exception do    begin      raise Exception.Create('在执行SQL语句' + strSQL + '时，出现以下异常：' + E.Message);      result := nil;    end;  end; end; 没有实际测试，自己试一下吧。

hellfire2008 · 2006-11-21

关键问题的所在 procedure TfrmMain.tvSelect(strName:string); var  s:TTab; begin  s:=TTab.Create;---此变量不要用局部变量.然后在创建之前检测有没有创建过.如果有就没必要再创建了 你每次节点被改变时.都会调用这个过程.一执行这个过程就会创建一个局部的TTab. 节点被改变100次还不让机器冒烟

listhano · 2006-11-21

to hellfire2008 先谢谢你！ 你给了我很大的提示。 >>>......此过程最好不要写在OnChange事件中...... 你认为写在那个事件中比较好？

listhano · 2006-11-21

这段程序出现的问题就是：频繁地创建TTab；因此，出现了调用数据集的时候出错为：“未找到数据指定的值”。 把TTab改成全局变量一次性地创建，就没有出现上述的错误了！ 问题得到了解决。 谢谢hellfire2008。

hellfire2008 · 2006-11-22

程序自动创建数据集写在哪个事件都是一样的.主要是资源要分配好.

hellfire2008 · 2006-11-22

楼主别忘记结贴.(给分啊.哈哈)

listhano · 2006-11-22

结贴了！

关于非可视控件的动态创建与释放（二层结构）(100分)

listhano

Unregistered / Unconfirmed

时报平

Unregistered / Unconfirmed

tianlove

Unregistered / Unconfirmed

listhano

Unregistered / Unconfirmed

listhano

Unregistered / Unconfirmed

shunzi1220

Unregistered / Unconfirmed

hellfire2008

Unregistered / Unconfirmed

listhano

Unregistered / Unconfirmed

listhano

Unregistered / Unconfirmed

hellfire2008

Unregistered / Unconfirmed

hellfire2008

Unregistered / Unconfirmed

listhano

Unregistered / Unconfirmed

Similar threads