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
biensur il me manque une boucle pour parcourir tout mon tableau met la non plus je ne sais pas ou la placer :s
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;
Voila si vous pouviez me filler un petit coup de pouce ca serait simpa ^^
merci d'avance !!!
Partager