Requête SQL dans Postgresql

Bonjour à toutes et à tous.
À partir d'une table dont une colonne correspond à la date de naissance, je désire obtenir l'âge des adhérents à un club. La requête testée avec pgAdmin est construite de la manière suivante, sachant que la date est stockée au format yyyy,mm,dd :

Code:

---

1 2 3 4 5 6 7 8 9

SET datestyle TO 'SQL,DMY'; SELECT ... ... extract(year from age(t_e_adherent_adh.adh_date_naissance)) AS "Âge", ... FROM ... WHERE ...;

---

Cette requête fonctionne bien sous pgAdmin.
Je n'arrive pas au même résultat depuis Lazarus avec le composant TSQLQuery. J'obtiens une erreur External: SIGSEGV.
J'ai essayé d'enchaîner deux requêtes telles que :

Code:

---

1 2 3 4 5 6 7

RequeteSQL.Close; s:= 'SET datestyle TO ' + '"SQL,DMY"' + ';'; RequeteSQL.SQL.Text:=s; RequeteSQL.ExecSQL; RequeteSQL.Close; RequeteSQL.SQL.LoadFromFile('_adherents.sql'); RequeteSQL.Open;

---

Est-ce que le principe est correct pour l'enchaînement des requêtes? Pour l'écriture de s j'ai essayé un peu tout avec les quotes.
Merci de votre aide.

Michel

Bonjour,
dans le principe , il n'y a pas besoin de passer ce

Code:

---

1 2	SET datestyle TO 'SQL,DMY';

---

Seul ceci serait nécessaire, si vou voulez absolument garder le fichier .SQL

Code:

---

1 2 3

RequeteSQL.Close; RequeteSQL.SQL.LoadFromFile('_adherents.sql'); RequeteSQL.Open;

---

mais rien ne vous empêche de mettre directement le SQL dans le programme

Code:

---

1 2 3 4 5 6 7 8

RequeteSQL.Close; RequeteSQL.SQL.Clear; RequeteSQL.SQL.Add('SELECT CHAMP1,CHAMP2 '); RequeteSQL.SQL.Add('FROM TABLE'); RequeteSQL.SQL.Add('WHERE .......'); RequeteSQL.SQL.Add('GROUP .......'); RequeteSQL.SQL.Add('ORDER BY '); RequeteSQL.Open;

---

Merci de cette réponse supersonique!
J'ai enlevé la première ligne et tout fonctionne correctement. Je marque le sujet comme résolu.
J'aurais deux questions.
Comment choisir entre une requête programmée et une requête lue dans un fichier?
J'ai du mal à coder les lignes d'une requête SQL en Pascal lorsqu'il y a des chaînes de caractères. Il faut toujours que je teste avec un nombre variable de quotes avant de trouver la bonne expression.

Citation:

---

Envoyé par Miflon

J'aurais deux questions.
Comment choisir entre une requête programmée et une requête lue dans un fichier?

---

en général je fait tout en "programmé" , tout simplement pour des questions de déploiement . Je ne me vois pas mettre les 100aines de Query de mes application en fichier SQL a distribuer avec le programme ! Même les 'Querys exemples' pour mes utilisateurs se trouvent dans la BDD :D

Citation:

---

J'ai du mal à coder les lignes d'une requête SQL en Pascal lorsqu'il y a des chaînes de caractères. Il faut toujours que je teste avec un nombre variable de quotes avant de trouver la bonne expression.

---

parce que tu n'utilises pas de requêtes paramétrées , ce qui est pourtant le plus utile voici un exemple (pour faire rapide , je reprend des exemples avec les ZEOSDBO et Firebird mais ils sont adaptables a d'autres suite de composants/BDD)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var Query : TZReadonlyQuery; begin Query:=TZReadOnlyQuery.Create(null); try Query.Connection:=ZConnection1; // ZConnection1 est un TZConnection Query.SQL.Text:='SELECT NOM,PRENOM FROM CLIENTS WHERE CODE=:C'; Query.SQL.ParamByname('C').asString:=Edit1.Text; Query.Active:=true; ..... Query.Active:=False; finally Query.Free; end; ... end;

---

tout le sel des paramètres est dans l'utilisation de données particulières telles les dates . Eh oui, on ne sait jamais comment elles sont stockées en internes , en général sous la forme mm/dd/yyyy pas très pratique pour nous autres frenchies.

avec des paramètres pas de soucis

Code:

---

1 2 3

// Query SELECT NOM,PRENOM FROM CLIENTS WHERE DATE_RDV=:DR Query.ParamByName('DR').asDateTime:=date;

---

il m'arrive cependant de vouloir faire des SQL directement sans passer par des composants querys , et là : pas de paramètres :cry: , comment s'en sortir ? personnellement je passe par Format

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

const SQLF ='UPDATE CLIENT SET NOM=%s,UNENTIER=%d,UNAUTREENTIER=%s,MONTANT=%s,DATE_RDV=CAST(%s AS DATE) WHERE CODE=%s'; SQLString : String; begin SQLString:=Format(SQLF,[ QuotedStr('Toto'), // pour les String , on utilise QuotedStr 1, // pour des entiers rien de plus simple , format %d fait le travail IntTostr(1), // mais l'on peut aussi le passer ainsi StringReplace(FloatToStr(20.50),DecimalSeparator,'.'), // les floats , ça se complique , un floatStr (en france) donnera 20,50 mais le SQL n'aimera pas , il faut donc changer la virgule en point décimal , plusieurs solutions QuotedStr(formatDateTime('dd.mm.yyyy',date)), // pour les dates cela va dépendre du SGBD , le fait d'utiliser un CAST dans le SQL va beaucoup aider ;) QuotedStr(Edit1.Text) // le code Client de mon Where ]); if not ZConnection.Executedirect(SQLString) then Showmessage('je me suis planté');   end;

---

P.S. pour la date , je dois avouer n'avoir jamais tenter la chose , en général c'est directement CURRENT_DATE que je mets , il faudra que je fasse un test de confirmation :oops:

Citation:

---

Envoyé par Miflon

Merci de cette réponse supersonique!
J'ai enlevé la première ligne et tout fonctionne correctement. Je marque le sujet comme résolu.
J'aurais deux questions.
Comment choisir entre une requête programmée et une requête lue dans un fichier?
J'ai du mal à coder les lignes d'une requête SQL en Pascal lorsqu'il y a des chaînes de caractères. Il faut toujours que je teste avec un nombre variable de quotes avant de trouver la bonne expression.

---

Utiliser systématiquement la fonction Format si vous voulez composer vos requêtes.

Syntaxe:

ChaineFormattee = Format('chaine_format', [var0, var1, ...]);

où chaine_format contient des codes de formatage identiques aux règles de la fonction printf() du C


Exemple:

Soient

Code:

---

1 2 3 4 5

CONST MyTableCancres = 'TableCancres'; // table des élèves éligibles au Concours Général   EWE := 'Toto'; WU := 666;

---

on veut construire une requête SQL de la forme:

Code:

---

1 2	SELECT * FROM TableCancres WHERE (Nom = "Toto" OR Punitions > 666);

---

Utiliser:

Code:

---

1 2	MyRequeteSQL := Format('SELECT * from `%s` WHERE (Nom="%s" OR Punitions > %d);', [MyTableCancres, EWE, WU]);

---

Codes de formatage usuels:

%s : Pour un string (avec et/ou sans le triangle de tissu) :lol:

%d : pour un entier
%.3d : avec des zéros non significatifs devant

%.2f : nombre en virgule flottante avec deux décimales

Citation:

---

Envoyé par SergioMaster

P.S. pour la date , je dois avouer n'avoir jamais tenter la chose , en général c'est directement CURRENT_DATE que je mets , il faudra que je fasse un test de confirmation :oops:

---

Soit MaDate contenant une date que je veux envoyer à la BDD.

Le format de date en SQL est de la forme

Code:

---

1 2	... DATE = 'YYYY-MM-DD'

---

Pour envoyer une date:

Code:

---

1 2 3 4 5 6 7 8 9 10

var AAAA, MM, JJ: word; ClauseDate: string; // clause sur une date ...   DecodeDate(MaDate, AAAA, MM, JJ); ... ClauseDate = Format(' (DATE = ''%.4d-%.2d-%.2d'')', [AAAA, MM, JJ]);

---