pb curseurs ....

[rgarnier]

Bonour,

J'ai de + en + d'erreurs Oracle 'nombre maximum de curseurs atteint', alors que j'en ai 300 de déclarés par user.

Le pb se pose sur un service pour lequel je fais beaucoup de requête à la main dans Delphi. Voici un exemple de code, sachant que je déclare 2 TDACQuery que je réutilise une bonne 50aine de fois :

Qry.SQL.text := 'SELCT * FROM FICHIER WHERE CLE=:pCle';
Qry.Prepare;
Qry.SetParamType('pCle','VARCHAR');
Qry.SetParamAsString('pCle',Context.Values['MaValeur']);
Qry.Open;

Est-ce bien correct ??? J'ai entendu dire que ce pb était connu avec le BDE, mais avec ADO ??

Qqu'un aurait-il une piste ??

[RDM]

Bon passons sur le fait que de faire des requêtes à la main ne soit pas la meilleure chose

le code correct serait:

Code :

1
2
3
4
5
6
7
8
9
10
11
 
  Qry.SQL.text := 'SELCT * FROM FICHIER WHERE CLE=:pCle'; 
  Qry.Prepare; 
  Qry.SetParamType('pCle','VARCHAR'); 
  Qry.SetParamAsString('pCle',Context.Values['MaValeur']); 
  Qry.Open; 
  try
   MyField := Qry.GetFieldAsString('AField');
  finally
    Qry.Close;
  end;

Ne JAMAIS oublier de fermer un curseur en fermant la Query.

[rgarnier]

Même si je fais un FreeAndNil ???

voici le code complet que je fais:

procedure TEST
var
Qry : TDacQuery;
begin
Qry := TDACQuery.Create(nil);
try
Qry..Database := XMLCollection.GetDatabaseComponent('Database');
Qry.SQL.text := 'SELCT * FROM FICHIER WHERE CLE=:pCle';
Qry.Prepare;
Qry.SetParamType('pCle','VARCHAR');
Qry.SetParamAsString('pCle',Context.Values['MaValeur']);
Qry.Open
traitements
finally
FreeAndNil(qry);
end;
end;

[Julien C.]

Le fait que tu fasses un FreeAndNil libère les ressources allouées à la Query. TU dois absoluement rajouter le Qry.Close; pour fermer correctement ta connection. Je pense que ca résoudra ton problème.

[rgarnier]

ok, j'essaie ça de suite !

[RDM]

Le destructeur (appelé par FreeAndNil) appelle Close, donc ca devrait etre bon

[rgarnier]

dommage .... mais cela ne m'étonne qu'à moitié, car le pb survient en fin de journée (alors que les 300 curseurs on t déjà été utilisés) donc, les curseurs sont bien fermés quasiment tout le temps ....

[RDM]

Peut etre qu'ADO garde des curseurs en "cache", ou bien c'est peut etre Oracle, difficile de dire la.
tu peux essayer de te déconnecter et de te reconnecter à la base Oracle pour voir si ca libère des choses....