1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
var i : integer;
begin
for i:=1 to televe.RowCount do
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into note (Francais, Maths, Hist-geo,LV1,SVT) in "C:\Documents and Settings\care.jf\Bureau\Brevet.mdb" select Francais=:fr, Maths=:mt, Hist-geo=:hg, LV1=:lv1, SVT=:svt where ELENOET=:num');
Adoquery1.Parameters.paramByName('fr').Value := televe.Cells[4,i];
Adoquery1.Parameters.paramByName('mt').Value := televe.Cells[5,i];
Adoquery1.Parameters.paramByName('hg').Value := televe.Cells[6,i];
Adoquery1.Parameters.paramByName('lv1').Value := televe.Cells[7,i];
Adoquery1.Parameters.paramByName('svt').Value := televe.Cells[8,i];
ADOQuery1.Parameters.ParamByName('num').Value := televe.Cells[1,i];
ADOQuery1.ExecSQL; |
Partager