Discussion :

[julesclaude]

Bonjour à vous tous,

Je travaille avec Delphi 10.3 Community Edition et les composants Firedac.

J'aimerais récupérer dans une variable la valeur qui résulte de la commande suivante :

Code :

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

F_Google.FDQuery_Groupes.SQL.Add('COUNT(*) FROM Group WHERE name = ' + QuotedStr(xclasse)+ '');

j'ai essayé :

Code :

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

xnbrGroupes := F_Google.FDQuery_Groupes.ExecSql(true);

sans succés

Pourriez-vous m'aider ?
Merci d'avance

[ShaiLeTroll]

Pourquoi ne pas lire la documentation ?
FireDAC.Comp.Client.TFDCustomQuery.ExecSQL

Utilisez ExecSQL pour exécuter des requêtes qui ne renvoyent pas un curseur aux données (comme INSERT, UPDATE, DELETE, CREATE TABLE).
renvoie le nombre de lignes mises à jour

Code :

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

1
2
3
4
F_Google.FDQuery_Groupes.SQL.Add('COUNT(*) As AliasCountGroupe FROM Group WHERE name = ' + QuotedStr(xclasse)+ '');
F_Google.FDQuery_Groupes.Open();
xxnbrGroupes := F_Google.FDQuery_Groupes.FieldByNAme('AliasCountGroupe').AsInteger;
F_Google.FDQuery_Groupes.Close();

ou

Code :

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

xnbrGroupes := F_Google.FDQuery_Groupes.Fields[0].AsInteger

[Andnotor]

Pour ce genre de chose tu peux aussi directement passer par le TFDConnection et la méthode ExecSQLScalar :

Code :

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

xnbrGroupes := FDConnection1.ExecSQLScalar('SELECT COUNT(*) FROM Group WHERE name = :name', [xclasse]);

[julesclaude]

Rebonjour à vous

Merci pour vos réponses

ShaiLeTroll, j'ai lu la documentation que vous m'avez conseillé mais je n'ai pas su trouvé ma réponse.
J'ai essayé votre code, il me renvoie l'erreur suivante :


Andnotor, votre morceau de code fonctionne parfaitement, je vous renouvelle mes remerciements.

[ShaiLeTroll]

Effecitvement c'est SELECT COUNT(*) As AliasCountGroupe FROM Group WHERE name = :PGroupeName a utiliser avec ParamByName('PGroupeName').AsString := '1A';
le SQL.Add devrait être précéder d'un SQL.Clear si vous réutiliser une Query, sinon directement affecté SQL.Text.

dans l'erreur, vous voyez bien que le SQL est incorrect ! Non ?

Mais la solution du ExecSQLScalar semble très courte et efficace, en ADO, c'est bien plus compliqué mais en FireDac j'en profiterais même si apprendre à utiliser le TFDQuery est un bon exercice.

[Andnotor]

J'ai essayé votre code, il me renvoie l'erreur suivante :

Mise à part l'oubli de SELECT, Le problème est SQL.Add puisque le composant contenait déjà la commande SELECT * FROM Groups

Dans ce cas, ce serait SQL.Clear; SQL.Add() ou plus simplement SQL.Text :=.


Edit: Shai a complété sa réponse

[julesclaude]

Tous fonctionne parfaitement.
Merci pour la réactivité de vos réponses.
Je ferme la discussion.

[pprem]

Juste pour rappel : "group" fait partie des mots réservés du SQL, étant utilisé dans SELECT pour regrouper des enregistrements. Il est fortement recommandé d'éviter les tables et champs ayant ce nom ou il faut les encadrer d'apostrophes lorsqu'on les utilise dans les requêtes.