Discussion :

[matchlesspseudo]

Bonjour amis développeurs,

Nous avons eu erreur sur notre site : Aucun parcours fichier n'est amorcé sur le fichier <Mon fichier>!

Je ne comprend pas l'origine de cette erreur et ce qu'elle signifie surtout qu'elle s'est produite du jour au lendemain sans modification du code.

elle est due à mon code d'initialisation de ma table qui ressemble à celui ci:
.......

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sdReq est une souce de données
texte_requête est une chaine="SELECT rubrique1,rubrique2 FROM <MonFichier> WHERE MonFichier.rubrique1= <valeur>"
 
SI PAS HExécuteRequêteSQL(sdREQ_sdReq ,hRequêteDéfaut,texte_requête) ALORS
  Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
  RETOUR
SINON
  TableSupprimeTout(MoiMême)
  HLitDernier(sdREQ)
  TANTQUE PAS HEnDehors(sdREQ)
    TableAjouteLigne(MoiMême,sdREQ.rubrique1,sdREQ.rubrique2)
    HLitPrécédent(sdREQ)
  FIN
FIN

..............................

avez vous une idée de comment l'éviter?


Balises [CODE] ajoutées par L.nico merci d'y penser à l'avenir

[hpascal]

Bonjour

Peut être une erreur de frappe dans ton post, mais la source que tu manipules dans le parcours n'est pas la même celle du HExécuteRequêteSQL

[matchlesspseudo]

oui malheureusement c'est juste une erreur de frappe dans mon poste et pas dans mon code

le code est bien le suivant, mais il ne marche pas !

sdReq est une souce de données
texte_requête est une chaine="SELECT rubrique1,rubrique2 FROM <MonFichier> WHERE MonFichier.rubrique1= <valeur>"

SI PAS HExécuteRequêteSQL(sdREQ ,hRequêteDéfaut,texte_requête) ALORS
Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
RETOUR
SINON
TableSupprimeTout(MoiMême)
HLitDernier(sdREQ)
TANTQUE PAS HEnDehors(sdREQ)
TableAjouteLigne(MoiMême,sdREQ.rubrique1,sdREQ.rubrique2)
HLitPrécédent(sdREQ)
FIN
FIN

[hpascal]

C'est bien une table mémoire ?
Peux-tu nous donner le vrai code, sans les <MonFichier> et autres <valeur> et sans fautes de frappe ("souce de données" ...)

[matchlesspseudo]

Voilà chef :

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
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

[hpascal]

Bonjour
J'ai testé vite fait ton code avec un fichier que j'avais sous la main

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
sTexte_de_la_requete est une chaîne
sdREQ_Caractéristiques est une Source de Données
sTypeRemise est un entier = 1
 
sTexte_de_la_requete = ChaîneConstruit([
SELECT Code_Mdr, Lib_Mdr, Type_Remise, Code_Compta
FROM Modreg
WHERE Type_Remise = %1
ORDER BY Code_Mdr
], sTypeRemise)
 
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.Code_Mdr, sdREQ_Caractéristiques.Lib_Mdr, sdREQ_Caractéristiques.Type_Remise, sdREQ_Caractéristiques.Code_Compta)
		HLitPrécédent(sdREQ_Caractéristiques)
	FIN
	HAnnuleDéclaration(sdREQ_Caractéristiques)
FIN

J'ai collé ça dans le code d'initialisation de ma table, qui est une table mémoire (donc dans l'onglet Contenu, "Par programmation" est coché)

J'ai fait mon test avec Windev mais le principe est le même dans un code coté serveur

Donc je ne vois pas ou est ton problème

Autre chose, au lieu de faire un parcours à l'envers (HLitDernier) pourquoi ne pas mettre un ORDER dans ta requête ?
Tu pourrais utiliser une boucle POUR TOUT sdREQ_Caractéristiques ...

[matchlesspseudo]

Sur le coup j'avais créé une nouvelle page et supprimé la dernière, mais aujourd'hui je sais:

C'était tout con, Je manipulais la table par programmation sans cocher la case par programmation au niveau de l'onglet Contenu de la description de la table.

Ça génère cette erreur.

Merci énormément de ton aide pascal

[hpascal]

C'était tout con, Je manipulais la table par programmation sans cocher la case par programmation au niveau de l'onglet Contenu de la description de la table

ça arrive à tout le monde