Re: Filtre sur un fichier

Posté par Michel34 le 3/7/2004 2:12:51

voila avec l'editeur de requete j'ai creer ma requette et j'ai un message
d'erreur:

je donne les procedures

*****************************************************************

// Syntaxe :
//Calcul_filtre (, , ,

, )
//
// Paramètres :
// JF1 :
// JF2 :
// RF1 :
// DD :
// DF :
// Valeur de retour :
// Aucune

PROCEDURE Calcul_filtre(JF1,JF2,RF1,DD,DF)
Sablier(Vrai)
Main.MonFiltre="SELECT Fichier_Vetuste.JOURNAL AS
JOURNAL,Fichier_Vetuste.REPARATION AS REPARATION,"+...
"Fichier_Vetuste.D_APPEL AS D_APPEL FROM Fichier_Vetuste WHERE
Fichier_Vetuste.JOURNAL BETWEEN '"+JF1+...
"' AND '"+JF2+"' AND Fichier_Vetuste.REPARATION = '"+RF1+"' AND
Fichier_Vetuste.D_APPEL BETWEEN '"+DD+"' AND '"+DF+"'"

Affiche_Ma_Table()

Sablier(Faux)

***************************************************************************

// Syntaxe :
//Affiche_Ma_Table ()
//
// Paramètres :
// Aucun
// Valeur de retour :
// Aucune

PROCEDURE Affiche_Ma_Table()
SI HExécuteRequêteSQL(Main.MonFiltre) ALORS
TableSupprimeTout(Main.T_Seeg)
HLitPremier(Main.MonFiltre)

TANTQUE PAS HEnDehors(Main.MonFiltre)

TableAjouteLigne(Main.T_Seeg,Fichier_Vetuste.JOURNAL+TAB+Fichier_Vetuste.D_A
PPEL+...

TAB+Fichier_Vetuste.REFERENCE+TAB+Fichier_Vetuste.MATERIEL+TAB+Fichier_Vetus
te.EURO+...
TAB+Fichier_Vetuste.REPARATION)

HLitSuivant(Main.MonFiltre)
FIN
SINON
Erreur("Erreur d'initialisation de la
requête"+RC+HErreur()+RC+HErreurInfo())

FIN
HAnnuleDéclaration(Main.MonFiltre)
// TableAffiche(Main.T_Seeg)