Discussion :

[keul85]

Bonjour,

J'ai un souci, et j'ai beau chercher sur le forum, je ne trouve pas la solution. Je m'explique. Dans une procédure, j'effectue une requête "Update". Cette procédure est appelée de très nombreuses fois et après chaque appel, je constate que la connexion qui a servi pour effectuer cette procédure est encore là (je regarde dans mysql le nombre de connexion avec show processlist).

Or, le nombre de connection étant limité, j'arrive rapidement à l'exception 'too many connections' (qui est logique). Sachant que je ne veux pas augmenter le nombre de connections max, comment dois je faire pour détruire la connection ayant servi pour la requête ? J'ai essayé Free, FreeAndNil, Close, Destroy et aucun résultat.

Voici le code de la fonction qui engendre l'ajout d'une connexion supplémentaire après chaque appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure LierFluxHacheFluxOriginal(IdFluxHache: integer);
var
  Query: TSQLQuery;
begin
  Query := TSQLQuery.Create(nil);
  try
    Query.SQLConnection := TConnection.GetConnection;
    Query.SQL.Add('UPDATE info');
    Query.SQL.Add('SET fk_id_info_deux = ' + intToStr(Id));
    Query.SQL.Add('WHERE id_info  = ' + intToStr(IdOriginal) + ';');
    Query.ExecSQL;
  finally
    FreeAndNil(Query);
  end;
end;

Si quelqu'un a une piste, je suis preneur. Merci

[NABIL74]

bonsoir,
essaye de faire un close avant de libérer la query:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure LierFluxHacheFluxOriginal(IdFluxHache: integer);
var
  Query: TSQLQuery;
begin
  Query := TSQLQuery.Create(nil);
  try
    Query.SQLConnection := TConnection.GetConnection;
    Query.SQL.Add('UPDATE info');
    Query.SQL.Add('SET fk_id_info_deux = ' + intToStr(Id));
    Query.SQL.Add('WHERE id_info  = ' + intToStr(IdOriginal) + ';');
    Query.ExecSQL;
  finally
    Query.Close;
    FreeAndNil(Query);
  end;
end;

a+

NABIL74

[keul85]

bonsoir,
essaye de faire un close avant de libérer la query

Salut,

Je viens d'essayer mais toujours le même problème... Merci quand même.

[NABIL74]

salut,
keul85 dans ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Query.SQLConnection := TConnection.GetConnection;

ici tu ouvres la connexion à ta query et puis avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 .
FreeAndNil(Query);

tu fermes et libère ta query mais la connexion reste toujours "ouverte"!
il faut fermer la connexion juste après la fermeture de la query.

a+

NABIL74

[keul85]

C'est bon, je viens de résoudre le problème. En fait, il s'agissait de mettre ExecSQL(true) et non ExecSQL tout seul.

Par contre, je ne trouve nulle part la signification de ce paramètre. Si quelqu'un pouvait éclairer ma lanterne, ça serait cool. Résoudre un problème c'est bien mais avoir compris ce qui clochait c'est encore mieux !

[edam]

que fait exactement TConnection.GetConnection;???

[ShaiLeTroll]

On peut espérer un Singleton, sinon, il est évident vu le problème que cela créé une nouvelle instance à chaque fois !