1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| MoiMême..Libellé="Caractéristiques de l'équipement"
sTexte_de_la_requete est une chaîne
sdREQ_Caractéristiques est une Source de Données
sTexte_de_la_requete="SELECT Caractéristique.IDCaractéristique AS IDCaractéristique, Caractéristique.IDType_Equipement AS IDType_Equipement, Caractéristique.Nom_caractéristique AS Nom_caractéristique,"
sTexte_de_la_requete+=" Caractéristique.Type_Caractéristique AS Type_Caractéristique, Caractéristique.Date AS Date, Caractéristique.Heure AS Heure, "
sTexte_de_la_requete+=" Caractéristique.Résponsable AS Responsable FROM Caractéristique WHERE Caractéristique.IDType_Equipement ='"+gxIDTypeEquipement+"'"
SI PAS HExécuteRequêteSQL(sdREQ_Caractéristiques,hRequêteDéfaut,sTexte_de_la_requete) ALORS
Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
RETOUR
SINON
TableSupprimeTout(MoiMême)
HLitDernier(sdREQ_Caractéristiques)
TANTQUE PAS HEnDehors(sdREQ_Caractéristiques)
TableAjouteLigne(MoiMême,sdREQ_Caractéristiques.IDCaractéristique,sdREQ_Caractéristiques.IDType_Equipement,sdREQ_Caractéristiques.Nom_caractéristique,sdREQ_Caractéristiques.Type_Caractéristique)
HLitPrécédent(sdREQ_Caractéristiques)
FIN
FIN |
Partager