1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

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.
Afficher la suite

3 réponses

Réponse 1 / 3
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
Réponse 2 / 3

"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 .
Réponse 3 / 3
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;
Répondre Posez votre question