Requêtes SQL avec TurboDB

Version imprimable

03/08/2015, 12h44
samidz2014

1 pièce(s) jointe(s)

Requêtes SQL avec TurboDB

Salut tout le monde

Voilà, je suis débutant en delphi

Je développe une application (Gestion des archives administratif),j'utilise TurboDB comme SGBD, mon MCD est le suivant :

Table 1 : TArchive (Id_arch, libelle_arch, rayonnage, etage_ray, num_boite_arch, date_archivage, duree_vie, scan_arch, observation, id_type_arch, id_dir, id_salle, id_etat_arch, id_langue_arch)

Table 2 : T Directions (id_dir, libelle_dir)

Table 3 : TSalles_archives (id_salle, num_salle_arch, surface_salle, etage_salle)

Table 4 : TEtat_arch (id_etat_arch, etat_arch)

Table 5 : TLangue_ arch (id_langue_arch, langue_arch)

Table 6 : Ttypes_archives (id_type_arch, des_type_arch)

Ce que je veux exactement c'est : Avec SQL : Quand je click sur le bouton "Valider", mon DBGRID affiche un résultat qui englobe tous les champs qui en été remplis dans mes champs de saisies (voir la photo), sachant que certain champs viens de plusieurs tables déférentes,

Voici mon capture d'écran.
Pièce jointe 184519
Et merci d’avance…
04/08/2015, 16h13
samidz2014

j'atend toujours votre aide

quelqu'un peut m'aider
04/08/2015, 17h11
tourlourou

ici : http://www.developpez.net/forums/d15...-multi-tables/ des idées sur la conception du SELECT pour lequel ta clause WHERE devra tenir compte des valeurs de champs saisies dans les Edit. Il vaut mieux faire une requête paramétrée, l'affecter au SQL.Text du Query, puis affecter les valeurs des paramètres.
07/08/2015, 11h44
samidz2014

salut Tourlourou

Citation:

ici : http://www.developpez.net/forums/d15...-multi-tables/ des idées sur la conception du SELECT pour lequel ta clause WHERE devra tenir compte des valeurs de champs saisies dans les Edit. Il vaut mieux faire une requête paramétrée, l'affecter au SQL.Text du Query, puis affecter les valeurs des paramètres.

Merci Tourlourou pour votre réponse, je vais me renseigner plus sur les paramètres SQL.

J'ai une autre question, le faite que j'utilise TurboDb, est-ce que ça influe sur la requête elle-mème ?

Citation:

Envoyé par samidz2014

J'ai une autre question, le fait que j'utilise TurboDb, est-ce que ça influe sur la requête elle-même ?

sur la requête elle-même je ne sais pas, cela dépende des possibilités de TurboDB. Il a fallu que je cherche sur Internet pour savoir ce que c'était !
encore une SGBD "exotique" avec des composants associés dont le but était de remplacer Paradox et BDE, donc à priori pour des programmes mono-poste

pour ce qui est de la requête, plus que les paramètres (j'abonde avec tourlourou sur le fait qu'il faille les utiliser), c'est surtout les Jointures (JOIN ou LEFT JOIN) qu'il faut travailler, voici un début de SQL à continuer
partie "contante"
Code:

1 2 3 4 5 6 7 SELECT a.Id_arch, a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.observation, a.id_type_arch, a.id_dir, a.id_salle, a.id_etat_arch, a.id_langue_arch,D. Libelle_dir, S.num_salle_arch, S.surface_salle, S.etage_salle, ... FROM TArchive A LEFT JOIN Directions D ON a.id_dir=D.id_dir LEFT JOIN Salles_archives S ON a.id_Salle=S.id_salle ..... WHERE 1=1
reste ensuite à bâtir la partie WHERE tout va dépendre si ces composants peuvent utiliser des macros ou non
d'une manière générale (pas de macros) je ferais de la manière suivante
Code:

1 2 3 4 5 6 7 8 9 10 11 12 tdbQuery1.Close; tdbQuery1.UnPrepare; tdbQuery1.SQL.text:=PartieConstante; // voir plus haut tdbQuery1.SQL.Add('WHERE 1=1'); if length(nomdirectionEdit.Text)>0 then tdbQuery1.SQL.Add('AND Libelle_dir=:Dir'); .... tdbQuery1.Prepare; if length(nomdirectionEdit.Text)>0 then tdbQuery1.ParamByName('Dir').asString:=nomdirectionEdit.text; ... tdbQuery1.Open;

Erreur de compilation

Salut SergioMaster
Merci pour ton aide, et désolé pour le retard...

j'ai lu ton code, et j'ai travaillé avec, mais je reçoi le message d'érreur suivant:

Mon code:

Code:

1
2
3
4
5
6
7
8
TdbQuery1.close;
TdbQuery1.UnPrepare;
TdbQuery1.SQL.text:=('Select a.libelle_arch, a. rayonnage, a. etage_ray, a. num_boite_arch, a. date_archivage, a. duree_vie, a. scan_arch, a. observation, a. type_interet, D. libelle_dir, E. etat_arch, L. langue_doc, T. des_type_arch, S. num_salle_arch, s. surface_salle, s. etage_salle from Tarchive a LEFT JOIN Tdirections D ON a. id_dir=D. id_dir LEFT JOIN Tetat_arch E ON a. id_etat_arch=E. id_etat_arch LEFT JOIN TLangue_docum L ON a. id_langue_arch =L. id_langue_arch LEFT JOIN Tsalles_archives S ON a. id_salle=S. id_salle LEFT JOIN Ttypes_archives T ON a. id_type_arch=T. id_type_arch WHERE 1=1');
TdbQuery1.SQL.add(WHERE 1=1);
If length(nomdirectionEdit.text)>0 then TdbQuery1.sql.add('AND Libelle_dir = :Dir');
TdbQuery1. Prepare ;
If length(nomdirectionEdit.text)>0 then TdbQuery1.paramByName('Dir').asString :=nomdirectionEdit.text ;
TdbQuery1.Open;

Message d'erreur:

[Error] USerche.pas(98): String literals may have at most 255 elements
[Error] USerche.pas(99): Undeclared identifier: 'WHERE'
[Fatal Error] UMain.pas(150): Could not compile used unit 'USerche.pas'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
TdbQuery1.close;
TdbQuery1.UnPrepare;
//si chaîne trop longue, la construire en plusieurs étapes :
TdbQuery1.SQL.text:='Select a.libelle_arch, a. rayonnage, a. etage_ray, a. num_boite_arch, a. date_archivage, a. duree_vie, a. scan_arch, a. observation, a. type_interet,';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+' D. libelle_dir, E. etat_arch, L. langue_doc, T. des_type_arch, S. num_salle_arch, s. surface_salle, s. etage_salle from Tarchive a';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+' LEFT JOIN Tdirections D ON a. id_dir=D. id_dir LEFT JOIN Tetat_arch E ON a. id_etat_arch=E. id_etat_arch LEFT JOIN TLangue_docum L';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+' ON a. id_langue_arch =L. id_langue_arch LEFT JOIN Tsalles_archives S ON a. id_salle=S. id_salle LEFT JOIN Ttypes_archives T ON a. id_type_arch=T. id_type_arch';
TdbQuery1.SQL.Add('WHERE 1=1'); // Add attend une chaîne en paramètre ; il suffisait d'ajouter les quotes
If length(nomdirectionEdit.text)>0 then TdbQuery1.sql.add('AND Libelle_dir = :Dir');
TdbQuery1. Prepare ;
If length(nomdirectionEdit.text)>0 then TdbQuery1.paramByName('Dir').asString :=nomdirectionEdit.text ;
TdbQuery1.Open;

1 pièce(s) jointe(s)

Preaparing SQL statement

salut Tourlourou;

j'ai fait ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
TdbQuery1.close;
TdbQuery1.UnPrepare;
TdbQuery1.SQL.text:='Select a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.type_interet,';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+ 'D.libelle_dir, E.etat_arch, L.langue_doc, T.des_type_arch, S.num_salle_arch, s.surface_salle, s.etage_salle from Tarchive a';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+'LEFT JOIN Tdirections D ON a.id_dir=D.id_dir LEFT JOIN Tetat_arch E ON a.id_etat_arch=E.id_etat_arch LEFT JOIN TLangue_docum L';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+'ON a.id_langue_arch =L.id_langue_arch LEFT JOIN Tsalles_archives S ON a.id_salle=S. id_salle LEFT JOIN Ttypes_archives T ON a.id_type_arch=T.id_type_arch';
TdbQuery1.SQL.Add('WHERE 1=1'); // Add attend une chaîne en paramètre ; il suffisait d'ajouter les quotes
If length(nomdirectionEdit.text)>0 then TdbQuery1.sql.add('AND Libelle_dir = :Dir');
TdbQuery1. Prepare ;
If length(nomdirectionEdit.text)>0 then TdbQuery1.paramByName('Dir').asString :=nomdirectionEdit.text ;
TdbQuery1.Open;

Mais Delphi m'affiche l'erreur suivante:
Pièce jointe 185548

Bonjour,

En ce qui concerne l'erreur , bien vérifier le chemin d'accès et le nom de la table

pour ce qui est du style, perso je préfère l'écriture suivante (mais qui nécessite de faire attention aux espaces) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Const Requete = 'Select a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.type_interet,'+
                       'D.libelle_dir, E.etat_arch, L.langue_doc, T.des_type_arch, S.num_salle_arch, s.surface_salle, s.etage_salle from Tarchive a'+
                       .....  +
                       ' WHERE 1=1';
begin
TdbQuery1.close;
TdbQuery1.UnPrepare;
TdbQuery1.SQL.text:=Requete;
....
 
end;

ou celle-ci

Code:

1
2
3
4
5
6
TdbQuery1.close;
TdbQuery1.UnPrepare;
TdbQuery1.SQL.Clear;
TdbQuery1.SQL.Add('Select a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.type_interet,');
TdbQuery1.SQL.Add('D.libelle_dir, E.etat_arch, L.langue_doc, T.des_type_arch, S.num_salle_arch, s.surface_salle, s.etage_salle from Tarchive a');
.....

1 pièce(s) jointe(s)

un autre message d'erreur!!

Bonjour;

Merci SergioMaster pour le nouveau style,
c'est vrais, c'est les noms des tables qui en été fausses, et après la correction de ces noms, j'ai pu retirer l’ancien message d’erreur………….mais ! un autre apparait.

Voici le nouveau code :

Code:

1
2
3
4
5
6
7
8
9
10
11
TdbQuery1.close;
TdbQuery1.UnPrepare;
TdbQuery1.SQL.text:='Select a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.type_interet,';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+ 'D.libelle_dir, E.etat_arch, L.langue_doc, T.des_type_arch, S.num_salle_arch, s.surface_salle, s.etage_salle from archive a';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+'LEFT JOIN directions D ON a.id_dir=D.id_dir LEFT JOIN etat_arch E ON a.id_etat_arch=E.id_etat_arch LEFT JOIN Langue_docum L';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+'ON a.id_langue_arch =L.id_langue_arch LEFT JOIN salles_archives S ON a.id_salle=S. id_salle LEFT JOIN types_archives T ON a.id_type_arch=T.id_type_arch';
TdbQuery1.SQL.Add('WHERE 1=1'); // Add attend une chaîne en paramètre ; il suffisait d'ajouter les quotes
If length(nomdirectionEdit.text)>0 then TdbQuery1.sql.add('AND Libelle_dir = :Dir');
TdbQuery1. Prepare ;
If length(nomdirectionEdit.text)>0 then TdbQuery1.paramByName('Dir').asString :=nomdirectionEdit.text;
TdbQuery1.Open;

Et voici le nouveau message d’erreur :
Pièce jointe 185594

désolé pour le dérangement, mais je veux vraimant terminer mon programme.

Salutations...

17/08/2015, 14h15
SergioMaster

C'est que vous avez une ',' en trop quelque part dans votre SQL (enfin soit disant)
ou que pire , j'espère que non, TurboDB n'accepte pas les alias :koi:

le mieux : testez avec le composant avec le texte du SQL (sans le where)
mais je dirais aussi de faire attention aux espaces

par exemple la ligne 5 et ligne 6 ajoutez un espace en début de chaine avec des alias aLEFT au lieu de A et LON au lieu de L
car votre SQLText produit une mauvaise chaine

Citation:

...from archive aLEFT JOIN directions D ON a.id_dir=D.id_dir LEFT JOIN etat_arch E ON a.id_etat_arch=E.id_etat_arch LEFT JOIN Langue_docum LON a.id_langue_arch =L.id_langue_arch LEFT JOIN salles_archives S ON a.id_salle=S. id_salle LEFT JOIN types_archives T ON a.id_type_arch=T.id_type_arch

ce n'est pas pour rien que j'indique d'utiliser un style plus clair ;)