Qelle requête pour le bon fonctionnement ?

meksam Messages postés 37 Date d'inscription   Statut Membre Dernière intervention   -  
nabil-bago Messages postés 255 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,


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.



J'ai fait l'essai suivant (pour le boutton valider):

procedure TFSearch.W7ToolButton2Click(Sender: TObject);
begin
TdbQuery1.SQL.Clear;
TdbQuery1.SQL.Add('Select * from tarchive where duree_vie =Edit8.Text and des_type_arch=edit3.text');
TdbQuery1.Open;
end;


mais je recoi le message d'erreur suivant:


aider moi SVP
Et merci d'avance...
A voir également:

2 réponses

meksam Messages postés 37 Date d'inscription   Statut Membre Dernière intervention   2
 
Quelqu'un peut m'aider..?
0
nabil-bago Messages postés 255 Date d'inscription   Statut Membre Dernière intervention   13
 
bonjour veuillez corriger la requette puis quand tu saisi sa
TdbQuery1.SQL.Add('Select * from tarchive where duree_vie =Edit8.Text and des_type_arch=edit3.text'); 
sa filtre pas rapport au contenu de Edit mais le filtre = Edit8.text
essaye celle là :
TdbQuery1.SQL.Add('Select * from tarchive where duree_vie =' +Edit8.Text + 'and des_type_arch='+edit3.text); 
0