Base de données

Signaler
Messages postés
47
Date d'inscription
dimanche 17 juillet 2005
Statut
Membre
Dernière intervention
22 octobre 2012
-
Messages postés
14
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
14 novembre 2011
-
bonjour,
je cherche dans deux tables (si table1.nom =  table2.nom) alors j'ajoute le champ "prenom "de la table2  sur le champ" prenom" de latable1.comment realiser ça.mercccccccccccci.

3 réponses

Messages postés
302
Date d'inscription
vendredi 21 septembre 2007
Statut
Membre
Dernière intervention
6 février 2013
1
Avec un minimum de recherche tu aurais trouvé...

if table1.FieldByName('nom').AsString=table2.FieldByName('nom').AsString then
   begin   
   table1.edit;
   Table1.FieldByName('prenom').Value:=Table2.FieldByName('prenom').Value;
   table1.Post;
   end;

<hr />
L'Armand joue, l'arme en joug... www.art-ment.com

"comment realiser ça.mercccccccccccci" :

Réponse
1)En Cherchant .
2)En postant dans le langage adéquat : http://www.sqlfr.com/

Si Nix a fait un site pour SQL, c'est pas que pour faire jolie .
Messages postés
14
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
14 novembre 2011
1
bonjour
je filtre ma table sur un entier (code patient) ou bien sur un string (nom patient) voila mon code et dite moi ou est l'erreure svp
procedure TModifier_Patient.Edit1Change(Sender: TObject);
begin
Adotable1.Filtered:=false;
if edit1.Text ='' then exit;
AdoTable1.Filter := 'inttostr(Code_Patient) LIKE ('+''''+edit1.Text+'%'+''''+')';
AdoTable1.filtered := True;
end;
procedure TModifier_Patient.Edit2Change(Sender: TObject);
begin
Adotable1.Filtered:=false;
if edit2.Text ='' then exit;
AdoTable1.Filter := 'Nom_Patient LIKE ('+''''+edit2.Text+'%'+''''+')';
AdoTable1.filtered := True;
end;
 pour le filtre sur edit2 ça marche mais pour le filtre sur edit1 ça foire ! ?
any help please;