bonjour voila je démar une nouvel application qui complétera la 1er (pour ce qui ont suivit le cour de mais probléme )
"ma tstringgrid s'appel televe"

alors voila je met dans un Tstringgrid les informations que je selectionne grace a mon 1er adoconnection (je selectionne 3 champs parmit une 100éne dans la 1er table)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select elenoet ,elenom, elepre from F_ele ');
//Adoquery1.Parameters.paramByName('classe').Value := Edit1.Text;
ADOQuery1.Open;
 
for i:=0 to ADOQuery1.RecordCount do
begin
televe.Cells[0,i] := ADOQuery1.FieldByName('elenoet').AsString;
televe.Cells[1,i] := ADOQuery1.FieldByName('elenom').AsString;
televe.Cells[2,i] := ADOQuery1.FieldByName('elepre').AsString;
ADOQuery1.Next;
televe.RowCount:= ADOQuery1.RecordCount + 1;
end;
end;


ensuite je veut passé ces donné qui sont dans mon tstringgrid(televe) dans ma nouvelle base de donné (ma nouvelle base de donné est préte a recevoir c'est 3 champs)
j'esseille de les mettre comme ceci met sans succes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
ADOQuery2.SQL.Clear;
ADOQuery2.sql.add('insert into eleve (ELENOET,ELENOM,ELEPRE)');
ADOQuery2.SQL.Add('values (:num,:nom,:prenom)');
Adoquery2.Parameters.paramByName('num').Value :=televe.Cells[0,0];
Adoquery2.Parameters.paramByName('nom').Value :=televe.Cells[1,0];
Adoquery2.Parameters.paramByName('prenom').Value :=televe.Cells[2,0];
ADOQuery2.ExecSQL;
biensur il me manque une boucle pour parcourir tout mon tableau met la non plus je ne sais pas ou la placer :s

Voila si vous pouviez me filler un petit coup de pouce ca serait simpa ^^
merci d'avance !!!