Discussion :

[moabomotal]

Bonjour,

Nous avons une application développée sous Windev9. nous n'avons ni l'environnement de développement Windev9 ni windev10. nous avons qu'un exécutable pour lancer l'application et des .dlls et bien sur des fichiers de données .fic et d'index .ndx.

actuellement je teste une version nouvelle de l'application (celle-ci est développée sous windev10) mais nous travaillons toujours avec l'ancienne version (développée sous windev9).

J'ai écris un programme en WLangage contenant des requetes SQL pour extraire des données de mes tables.

ce programme s'éxécute bien sous la nouvelle version (développée sous windev10) mais lorsque je le lance sous l'ancienne version j'ai un message d'erreur.

mon programme est le suivant:

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
 
 
//Exportation de la table Benevoles
ligne est une chaîne
i est un entier
req est une source de données
idfich est un entier
 
//création du fichier dans lequel nous allons stocker les données extraites
idfich=fOuvre("\\monServ\temp\exportBenevoles.txt",foCréation+foEcriture)
SI idfich=-1 ALORS 
	Erreur("Erreur lors de la création du fichier")
	RETOUR
FIN
//ligne d'entete
ligne="idBenevole"+TAB+"Nom"+TAB+"Prenom"+TAB+"telephone"+TAB+"adresse"+TAB+"codePostal"+TAB+"ville"+RC
fEcrit(idfich, ligne)
HExécuteRequeteSQL(req, hRequêteDefaut,...
	"SELECT idBenevole, Nom, Prenom, telephone, adresse, codePostal, ville FROM Benevoles WHERE dateDerniereMission >= 20050601")
POUR TOUT req
	ligne=req.idBenevole+TAB+req.Nom+TAB+req.Prenom+TAB+...
	req.telephone+TAB+req.adresse+TAB+req.codePostal+TAB+...
	req.ville+RC
	fEcrit(idfich, ligne)
	i++
FIN
 
fFerme(idfich)
Info("Traitement fini!"+RC+"Nombre d'enregistrement: "+i)

le message d'erreur sous la version en windev9 est le suivant:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
Erreur à la ligne 18 du traitement procext.
Le mécanisme de sécurité Hyper File s'est déclenché lors d'un parcours intégré du fichier 'req' sur la rubrique ''.
Fichier <req> inconnu dans l'analyse <C:\MES PROJETS\dmg\appli.wdd>, ou requête ou vue non initialisée.
 
 
**********************************************
 
Informations techniques
 
Projet : appli
 
Dump de l'erreur du module <WD90HF.DLL> <9.00Df>.
 
- Appel WL :
Traitement de <procext>, ligne <18>, thread <0>
 
- Niveau : erreur fatale (EL_FATAL)
 
- Code erreur : 70018
 
- Code erreur WD55 : 18
 
- Pas de code d'erreur système
 
- Pas de message d'erreur système
 
- Que s'est-il passé ?
Le mécanisme de sécurité Hyper File s'est déclenché lors d'un parcours intégré du fichier 'req' sur la rubrique ''.
Fichier <req> inconnu dans l'analyse <C:\MES PROJETS\dmg\appli.wdd>, ou requête ou vue non initialisée.
 
- Infos de debug :
iehf=1001
 
- Infos attachées :
EIT_PATHWDD : <C:\MES PROJETS\dmg\appli.wdd>
EIT_LOGICALTABLENAME : <req>
EIT_DATEHEURE : 04/12/2006 15:55:06
EIT_PILEWL :
  procext (procext), ligne 18
 
- Identifiant dans le .err : 70116

[moabomotal]

l'eereur est dans la requete. le problème c'est que le champ "dateDerniereMission" est une date sous forme JJ/MM/AAAA.
je ne sais pas comment faire pour comparer deux dates dans le langage SQL de HF (contenu dans la version Windev 9).
même en utilisant la syntaxe:

Code :

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

"SELECT idBenevole, Nom, Prenom, telephone, adresse, codePostal, ville FROM Benevoles WHERE dateDerniereMission >= 01/06/2005"

j'ai un message d'erreur.
idem pour la syntaxe:

Code :

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

"SELECT idBenevole, Nom, Prenom, telephone, adresse, codePostal, ville FROM Benevoles WHERE dateDerniereMission >= "+ ChaîneVersDate ("01-01-2005")

aidez moi svp

Merci

[hegros]

Ok.

Premier point c'est qu'il faut déja amorcer la requete avec un HlitPremier(req).

Ensuite il serait préférable de faire :

Code :

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

1
2
3
4
5
6
7
8
9
Si HExecuteRequeteSql(....) ALORS
     HlitPremier(req)
     Tantque Pas HEnDehors(req)
          HlitSuivant(req)
    FIN
    HAnnuleDeclaration(req)
SINON
      Erreur(ErreurInfo(ErrComplet)
FIN

[moabomotal]

j'ai fait ça mais j'ai le meme message d'erreur.

au fait je ne sais pas formuler une requete SQL HF (sous windev9) qui compare un champ d'une table qui est une date sous forme JJ/MM/AAAA à une autre date

alors que sous SQL HF (windev10) la requete:
SELECT .... FROM benevoles WHERE dateDerniereMission >= 20050601 marche.

le champ dateDerniereMission de la table benevoles est une date sous forme JJ/MM/AAAA