Bonjour,

Je suis sur un problème à la fois Delphi et SQL mais je ne vois pas trop comme le résoudre.

J'ai deux table dans ma base :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Article (String : #REF, Int : NOMBRE_COLIS)
Colis ( Int : #COLIS_ID, String : REF)
En fonction du nombre de colis renseigné dans la table Article je dois insérer autant de ligne ayant la même référence dans la table COLIS.
Comme j'ai essayé de faire sur le code ci-dessous :
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
19
20
21
22
23
24
25
26
27
28
29
 
procedure TForm_Import.gererInsertionOuMAJ;
var
requete : TADOQuery;
i : integer;
sql : string;
 
Reference : string;
Nombre_Colis : variant
 
begin 
	for i to StringGrid.rowcount + 1 do begin
		if StringGrid.Cells[0,i] <> '' then begin
			Reference := StringGrid.Cells[0,i];
			Nombre_Colis := StringGrid.Cells[99, i];
                        // Probléme à ce niveau
			for i = 1 to Nombre_Colis do begin
				requete := TADOQuery.Create(nil);
				requete.Connection := ctrl_principal.connexionBase;
				sql := 'INSERT INTO COLIS (REF) VALUES ('+ Reference +')';
				requete.SQL.Add(sql);
				requete.Open;
				requete.SQL.Clear;
				requete.Close;
				requete.Free;
			end;
		end; 
	end; 
end;
Merci d'avance de votre aide.
Je travail avec D7 et SQL Server 2014