01-02-2016, 11:31 PM
كيف يمكن أن أضيف بينات من عدة جداول في جدول واحد عن طريق التصفية
هته الماحولة تظهر لي بيانات جدول واحد فقط
هته الماحولة تظهر لي بيانات جدول واحد فقط
كود :
procedure TForm7.BitBtn1Click(Sender: TObject);
Var ch,f,id,code: string;
begin
ch:='select Matricule,Nom,Prenom,Emploi,Responsabilite,service From Fonctionnaire where Matricule ='+Quotedstr(id);
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Text := 'select Matricule,Nom,Prenom,Emploi,Responsabilite,service From Fonctionnaire where Matricule = :Matricule';
ADOQuery3.Parameters.ParamByName('Matricule').Value:=ADOTable2.FieldByName('matricule').Value;
ADOQuery3.Open;
f:='select Sujetformation,datedebutform,datefinform,lieuform,numgroupe,organisme,residance From Formation where codformation ='+Quotedstr(code);
ADOQuery3.SQL.Text := 'select Sujetformation,datedebutform,datefinform,lieuform,numgroupe,organisme,residance From Formation where codformation =:codformation';
ADOQuery3.Parameters.ParamByName('codformation').Value:=ADOTable2.FieldByName('codformation').Value;
ADOQuery3.Open;