SQL... Probléme..

Question

Salut 





Voila j'ai deux tables la 1ere TABLE AUTEUR et la 2&#232;me TABLE ECRIRE.
j'ai deux clefs primaire dans AUTEUR qui sont NOM_AUTEUR et
PRENOM_AUTEUR et dans la TABLE ECRIRE ce sont des clefs externe
(NOM_AUTEUR et PRENOM_AUTEUR) ce que j'aimerai savoir faire c'est
lorsque je modifie mes champs NOM_AUTEUR et PRENOM_AUTEUR dans la
Gestion Auteur que celle ci change NOM_AUTEUR et PRENOM_AUTEUR dans la
Gestion Ecrire &#233;galement. J'ai deja un code pour modifier NOM_AUTEUR et
PRENOM_AUTEUR dans la gestion Auteur elle fonctionne mais elle modifie
pas les champs NOM_AUTEUR et PRENOM_AUTEUR dans la Gestion Ecrire.





 
Code:, 		----
var

OldType,OldType1,OldType2,OldType3 :string; // D&#233;claration de variable

OldType4,OldType5 :string;

procedure TGes_Auteur.Modifier_AuteurClick(Sender: TObject);

begin
if  (edit1.Text '')or (edit2.Text '')or (edit3.Text = '')or (edit4.Text='') then

begin

messagedlg('Veuillez s&#233;lectionner le champs &#224; supprimer', mtWarning,[mbok],0);

end

else

with DataModule2.IBQuery_Auteur do

begin           // Ici on modifie les champs s&#233;lectionner

SQL.Clear;

SQL.Add('Update AUTEUR set NOM_AUTEUR=:Nom_Auteur,
PRENOM_AUTEUR=:Prenom_Auteur, PSEUDONYME=:Pseudonyme,
NATIONALITE=:Nationalite');
SQL.Add('WHERE NOM_AUTEUR :OldType and PRENOM_AUTEUR
:OldType1 and PSEUDONYME = :OldType2 and NATIONALITE=:OldType3 ');

DataModule2.IBQuery_Auteur.ParamByName('Nom_Auteur').AsString:=edit1.text;

DataModule2.IBQuery_Auteur.ParamByName('OldType').AsString:=OldType;

DataModule2.IBQuery_Auteur.ParamByName('Prenom_Auteur').AsString:=edit2.text;

DataModule2.IBQuery_Auteur.ParamByName('OldType1').AsString:=OldType1;

DataModule2.IBQuery_Auteur.ParamByName('Pseudonyme').AsString:=edit3.text;

DataModule2.IBQuery_Auteur.ParamByName('OldType2').AsString:=OldType2;

DataModule2.IBQuery_Auteur.ParamByName('Nationalite').AsString:=edit4.text;

DataModule2.IBQuery_Auteur.ParamByName('OldType3').AsString:=OldType3;

ExecSQL;

end;

with DataModule2.IBQuery_Ecrire do

begin

SQL.Clear;

SQL.Add('Update ECRIRE set NOM_AUTEUR=:Nom_Auteur, PRENOM_AUTEUR=:Prenom_Auteur');
SQL.Add('WHERE NOM_AUTEUR :OldType4 and PRENOM_AUTEUR :OldType5 ');

DataModule2.IBQuery_Ecrire.ParamByName('Nom_Auteur').AsString:=Ges_Auteur.edit1.text;

DataModule2.IBQuery_Ecrire.ParamByName('OldType4').AsString:=OldType4;

DataModule2.IBQuery_Ecrire.ParamByName('Prenom_Auteur').AsString:=Ges_Auteur.edit2.text;

DataModule2.IBQuery_Ecrire.ParamByName('OldType5').AsString:=OldType5;

ExecSQL;

end;

Refresh_Auteur.Click; //Bouton qui rafraichi la table AUTEUR

edit1.Text:='';

edit2.text:='';

edit3.Text:='';

Ajouter_Auteur.Enabled:=true;

Modifier_Auteur.Enabled :=false;

Supprimer_Auteur.Enabled :=false;

Ges_Ecrire.Refresh_Ecrire.click;

end;







P.S: La requ&#234;te fonctionne mais elle modifie pas les champs NOM_AUTEUR et PRENOM_AUTEUR dans la Gestion Ecrire

cs_Delphiprog · Answer

Le mieux serait de poser la question sur le site appropri&#233; 

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

jace1975 · Answer

Juste une remarque sur le choix de tes cl&#233;s :

Que se passe-til quand il y deux auteurs ayant le m&#234;me nom?? 

je te conseille de (re)voir les 3 fornes normales pour mod&#232;liser une base, l'id&#233;al &#233;tant pour ton pb d'utiliser un identiefiant technique, genre num&#233;ro incr&#233;mental dans ta table de r&#233;f&#233;rence. de cette fa&#231;con tu r&#233;cup&#232;re l'id dans tas premi&#232;re et tu fais un update par rapport &#224; cet ID.

youcefhac · Answer

Je veut faire la recherche dans une table par un intervalle de date dans IBQuery j'ai utilise le code suivante mais ca marche pas
 if RadioGroup1.ItemIndex=2 then
  begin
    DataModule1.IBQuery3.Close;
    DataModule1.IBQuery3.SQL.Clear;
    DataModule1.IBQuery3.SQL.add('select *');
    DataModule1.IBQuery3.SQL.add('from DEMANDES');
    DataModule1.IBQuery3.SQL.add('where (DEMANDES.DATE_D)>='+MaskEdit10.Text+' and (DEMANDES.DATE_D)< '+MaskEdit11.Text);
    DataModule1.IBQuery3.Open;
  end; 
le message suivant apparu : expression d'évaluation insupportable

cs_Delphiprog · Answer

Je soupçonne fortement un manque d'espace.
Juste sur la ligne contenant DataModule1.IBQuery3.Open, tu mets un point d'arrêt et tu inspectes alors la valeur de la propriété de DataModule1.IBQuery3.Open.Text.
Vérifies au passage que les dates soient correctement formatées (AAAA-MM-JJ).

May Delphi be with you 

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

cs_cantador · Answer

Bonjour,

@cmeme :
[i]
j'ai deux clefs primaire dans AUTEUR qui sont NOM_AUTEUR et PRENOM_AUTEUR/i

Tu ne peux pas voir deux clés primaires dans une table..
En revanche, tu peux créer une clé primaire qui encapsule deux champs.
Ainsi, chaque enregistrement est caractérisé par :
Auteur + prénom de l'auteur
cette formule peut fonctionner même si elle présente toutefois certains inconvénients..

cantador

jderf · Answer

Bonjour,

Si j'ai bien compris, tu as un clé primaire (Nom+Prenom) dans la table AUTEUR et (Nom+Prenom) en clé étrangère dans ECRIRE.

Donc dans ce cas tu fait ça :

UPDATE ECRIRE 
SET NOM_AUTEUR=:Nom_Auteur, PRENOM_AUTEUR=:Prenom_Auteur 
WHERE NOM_AUTEUR = :OldType 
AND PRENOM_AUTEUR = :OldType1

Il faut dans ta clause "where" tester les anciens critère de NOM et PRENOM.

Bonne journée.

cs_cantador · Answer

Bonsoir,
si les liens entre les tables et Maj en cascade de choisis, cette opération est automatique.

cantador

jderf · Answer

Oui Cantador, c'est vrai, mais on peut toujours attendre une réponse de Cmeme, sont message date de 2005 !!

C'est youcefhac qu'a posé une question en 2011 !

Youcefhac, Peut-tu nous dire avec quel SGBD tu travails ?
Y'a surement des fonctions de conversion et comparaison de date déja prévu dans le moteur de base.

Jean.

cs_cantador · Answer

oh oui, bien vu !
je me suis fait piégé par youcefhac
en 6 ans, je pense qu'il a du trouver quelque chose..

mais pourqouoi avoir utilisé un post de 2005 ?

ah ça y est, j'ai compris..
c'est le moteur de tri de DelphiFr qui nous remonte des vieux crabes
cramoisis, rabougris qui sentent le moisis

Ya quelqu'un ?

cantador

SQL... Probléme..

9 réponses

Votre réponse

Discussions similaires