OVH Cloud OVH Cloud

[WD7.5] requete avec Oracle4WD

3 réponses
Avatar
Pierre
Bonjour,

Voici mon problème:
ma requete fonctionne bien quand ma table "TABSUBPRODEF" sous Oracle
contient des données.
Mais quand elle est vide mon application me retour une fenêtre d'erreur :

Microsoft Visual C++ Runtine Library
Runtime Error!
Program: c:\windev75\programmes\WDTST.exe
abnormal program termination"

puis mon application se ferme. Merci de votre aide.
Voici ma requete:

retCode is boolean
HCréation(TABSUBPROJDEF)
retCode = Oracle4WD:mySQLExec("select NSUBPROJNR,szname from TABSUBPROJDEF",
1)
SI retCode ALORS
Oracle4WD:mySQLPremier(1)
TANTQUE PAS Oracle4WD:mySQLEnDehors
HRAZ(TABSUBPROJDEF)
TABSUBPROJDEF.NSUBPROJNR = Oracle4WD:mySQLLitCol(1,1)
TABSUBPROJDEF.SZNAME = Oracle4WD:mySQLLitCol(1,2)
HAjoute(TABSUBPROJDEF)
Oracle4WD:mySQLSuivant(1)
FIN
FIN
Oracle4WD:mySQLFerme(1)

3 réponses

Avatar
Manu
> Voici mon problème:
ma requete fonctionne bien quand ma table "TABSUBPRODEF" sous Oracle
contient des données.
Mais quand elle est vide mon application me retour une fenêtre d'erreur :



Normalement tout devrait fonctionner car c'est le mySQLPremier(1) qui va
renvoyer mySQLEnDehors à vrai.

Microsoft Visual C++ Runtine Library
Runtime Error!
Program: c:windev75programmesWDTST.exe
abnormal program termination"



Celà vient souvent quand on fait une lecture de champ alors que
mySQLEnDehors est à vrai.

puis mon application se ferme. Merci de votre aide.



Quelle est la ligne qui pose problème en mode debug ?
Quelle est la version utilisée ? aussi bien version WD, en classe et en DLL.

Voici ma requete:

retCode is boolean
HCréation(TABSUBPROJDEF)



j'ose espérer que c'est un fichier HF :-)

retCode = Oracle4WD:mySQLExec("select NSUBPROJNR,szname from


TABSUBPROJDEF",1)

renvoie toujours vrai même si table vide (sauf si erreur bien sur)

SI retCode ALORS
Oracle4WD:mySQLPremier(1)



là si la table est vide mySQLEnDehors passe à 0 car le fetch ne renvoie
rien.

TANTQUE PAS Oracle4WD:mySQLEnDehors



si table vide le programme ne passe pas ici.

HRAZ(TABSUBPROJDEF)
TABSUBPROJDEF.NSUBPROJNR = Oracle4WD:mySQLLitCol(1,1)
TABSUBPROJDEF.SZNAME = Oracle4WD:mySQLLitCol(1,2)
HAjoute(TABSUBPROJDEF)
Oracle4WD:mySQLSuivant(1)
FIN
FIN
Oracle4WD:mySQLFerme(1)


Avatar
Manu
"Pierre" wrote in message
news:41e7df2d$0$6438$
Bonjour,



pas de news ??
Avatar
nospam
houla
j'ai eu le probleme y'a qq temps mais il va falloir que ca me revienne....
(je lance un thread en tache de fond dans mon cerveau)

La premiere chose qui me revienne à l'esprit est que c'etait GROS comme une
maison et ca crevait les yeux....


"Manu" a écrit dans le message de news:
csla0o$c1c$
"Pierre" wrote in message
news:41e7df2d$0$6438$
Bonjour,



pas de news ??