Discussion :

[samidz2014]

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.

Et merci d’avance…

[samidz2014]

quelqu'un peut m'aider

[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.

[samidz2014]

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 ?

[SergioMaster]

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 sql :

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

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 :

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

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;

[samidz2014]

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 :

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

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'