saimslim
Messages postés47Date d'inscriptiondimanche 17 juillet 2005StatutMembreDernière intervention22 octobre 2012
-
28 avril 2009 à 09:11
nn2009
Messages postés14Date d'inscriptiondimanche 31 mai 2009StatutMembreDernière intervention14 novembre 2011
-
2 juin 2009 à 18:04
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.
L_art_ment
Messages postés302Date d'inscriptionvendredi 21 septembre 2007StatutMembreDernière intervention 6 février 2013 28 avril 2009 à 12:38
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;
nn2009
Messages postés14Date d'inscriptiondimanche 31 mai 2009StatutMembreDernière intervention14 novembre 20111 2 juin 2009 à 18:04
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;