ADOQuery se ferme après le constructeur

Question

J'utilise TADOQuery dans Delphi 7.
Dans le constructeur, j'appelle ADOQuery.open.

Pourquoi le ADOQuery est-il fermé lorsqu'une autre fonction est appelée depuis l'extérieur du formulaire?

constructor TClass1.Create(AOwner: TComponent; 
    MyParam: TProgramParam); 
begin 
    inherited; 
    ADOQuery.Open; 
    ADOQuery.Locate('fieldName',Param,[]); 
end; 

Answer 1

Mon conseil pour trouver qui ferme le DataSet:

Créer un nouveau gestionnaire d'événements pour l'événement BeforeClose du AdoQuery, mettez tout ce qui est compilé et exécuté juste pour mettre un point de jonction. Par exemple:

procedure TfrmCreDocCredito.cdsSucursalesBeforeClose(DataSet: TDataSet); 
begin 
    ShowMessage('Closing!!'); 
end; 

Lancez votre programme, effectuer toute action de l'utilisateur nécessaire pour créer votre instance de classe et lorsque le programme cesse sur le point d'arrêt, vous avez la chance d'inspecter la pile d'appels. Cela révèlera qui, et si vous y réfléchissez un peu, vous découvrirez pourquoi l'ensemble de données se ferme. Si votre point d'arrêt ne se déclenche pas, je parie que l'ensemble de données ne s'ouvre jamais vraiment.

Cordialement.

Answer 2

constructor TClass1.Create(AOwner: TComponent; 
    MyParam: TProgramParam); 
begin 
    inherited; 
    ADOQuery.Open; 
    ADOQuery.Locate('fieldName',Param); 
end; 

// 

constructor TClass1.Create(AOwner: TComponent; 
    MyParam: TProgramParam); 
begin 
    inherited; 
    ADOQuery.Open; 
    ADOQuery.Locate('fieldName',Param,[]); 
end;