INSERT INTO table1 ('Chp1', 'Chp2', ...) SELECT 'Chp1', 'Chp2', ... FROM table2
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.Button1Click(Sender: TObject); begin AdoQuery1.Close; with AdoQuery1.SQL do begin Clear; Add('select CDATE,Count(*)as Resultat'); Add('FROM table1'); SQL.Add('group by (CDATE)'); AdoQuery1.Open; end; end;
adoquery1.First;
repeat
adotable3.Insert;
adotable3.FieldByName('Résultat').AsString:=adoquery1.FieldByName('Résultat').AsString ;
adotable3.FieldByName('CDATE').AsString:=adoquery1.FieldByName('CDATE').AsString ;
adotable3.Post;
adoquery1.Next;
until adoquery1.Eof;