Discussion :

[forzaxelah]

Bonjour à tous!!

Voici mon code :

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
Pas1 := EntreMP_ComboBox.Items[EntreMP_ComboBox.ItemIndex];
Pas2 := EtMP_ComboBox.Items[EtMP_ComboBox.ItemIndex];
DataModule1.QSelectModule.close;
DataModule1.QSelectModule.SQL.Clear;
DataModule1.QSelectModule.SQL.Add('SELECT Module_N6,Pas_nominal,Periode_LCC,Nom_Pas_FK1,Nb_Km_Annuel,MOE_CostHour,Operation_M,Prix,   ');
DataModule1.QSelectModule.SQL.Add('Duree_Operation,Nb_MOE,Cout_Conso,  ');
DataModule1.QSelectModule.SQL.Add('(Periode_LCC*Nb_Km_Annuel/Pas_nominal)*(Duree_Operation*MOE_CostHour*Nb_MOE+Cout_Conso + Prix) As Cout_Total  ');
DataModule1.QSelectModule.SQL.Add('FROM Arbo A                                                                  ');
DataModule1.QSelectModule.SQL.Add('   FULL OUTER JOIN Param_LCC L       ON L.ID_Engin_FK1 = A.ID_Engin_FK3  ');
DataModule1.QSelectModule.SQL.Add('   FULL OUTER JOIN ID_M M            ON M.Nom_Pas = A.Nom_Pas_FK1  ');
DataModule1.QSelectModule.SQL.Add('WHERE Pas_Nominal IN                                              ');
DataModule1.QSelectModule.SQL.Add('                (SELECT Pas_nominal  FROM ID_M                    ');
DataModule1.QSelectModule.SQL.Add('                 WHERE Pas_nominal BETWEEN ' + QuotedStr(EntreMP_Label.Caption)+' AND '+ QuotedStr(EtMP_Label.Caption) +')  ');
DataModule1.QSelectModule.SQL.Add('AND concat('+QuotedStr(Module_N)+','+ QuotedStr(inttostr(SelectedLevel))+') = ' + QuotedStr(SelectedModule));
DataModule1.QSelectModule.ExecSQL;
Form2.show;

J'ai le droit à "Fonctionnalité non supportée" mais je ne trouve pas ou est mon erreur!!! (logique sino je vous poserais pas la question!!!!)

[Zatoobux]

Salut
Le SQL de paradx ne connait pas "concat".
Utilise le ||

DataModule1.QSelectModule.SQL.Add('AND '+QuotedStr(Module_N)+'||'+ QuotedStr(inttostr(SelectedLevel))+' = ' + QuotedStr(SelectedModule));
Dans un cas comme ça test ta requete dans paradox...

@+