OVH Cloud OVH Cloud

WDGénère

2 réponses
Avatar
MSY
Je ne sais pas si vous avez déjà vue l'exemple fourni dans le LST 44
(WDGénère) qui crée des données dans vos base de données. Cette application
rempli la base de données pour qu'on puisse la tester

Je sais que cet exemple est fait en windev 5.5.
Je l'ai converti en 7.5 et ne fonctionne vraiment pas.
Est-ce que vous avez d'autres exemples qui font le même travail ?

Merci

2 réponses

Avatar
Benjamin Cabé
On Wed, 1 Oct 2003 16:51:39 -0400, MSY wrote:

Je ne sais pas si vous avez déjà vue l'exemple fourni dans le LST 44
(WDGénère) qui crée des données dans vos base de données. Cette application
rempli la base de données pour qu'on puisse la tester

Je sais que cet exemple est fait en windev 5.5.
Je l'ai converti en 7.5 et ne fonctionne vraiment pas.
Est-ce que vous avez d'autres exemples qui font le même travail ?

Merci



Pour peupler rapidement avec des valeurs bidons, je fais une procedure qui
met n'importe quoi dans les attributs, et, pour ceux qui sont des clés
étrangères j'utilise une procédure pour choisir un enregistrement au hasard
dans la table correspondante :

PROCEDURE lireEnregistrementAuPif(nom_fichier)

nbEnr est un entier
nb est un entier

nbEnr=HNbEnr(nom_fichier)
SI nbEnr =-1 ALORS
Erreur("fichier inexistant!")
RENVOYER Faux
SINON
InitHasard()
nb= Hasard(0, nbEnr)
HLitPremier(nom_fichier)
TANTQUE nb > 0
HLitSuivant(nom_fichier)
nb--
FIN
RENVOYER Vrai
FIN

Aussi quand je veux générer une date au hasard, située entre deux dates
particulières, voici ma fonction:

FONCTION genereDate(debut_periode="19990101", fin_periodeÚteSys)
InitHasard

date_gen est une Date

date_genÚteVersEntier(debut_periode)
date_gen+=Hasard(0,DateDifférence(debut_periode,fin_periode))

RENVOYER EntierVersDate(date_gen)


Ce n'est pas le Pérou mais ça peut te suffire avec quelques petites
adaptations éventuellement
a++
benji
Avatar
SP&B
"MSY" a écrit dans le message de
news:D6Heb.76832$
Je ne sais pas si vous avez déjà vue l'exemple fourni dans le LST 44
(WDGénère) qui crée des données dans vos base de données. Cette


application
rempli la base de données pour qu'on puisse la tester

Je sais que cet exemple est fait en windev 5.5.
Je l'ai converti en 7.5 et ne fonctionne vraiment pas.
Est-ce que vous avez d'autres exemples qui font le même travail ?

Merci





Bonjour,

Il existe un exemple avec la 7.5 qui s'apelle WD Génération.

Sincères salutations
--
Jean-Claude FLAJOULOT
Sécurité, Pointage & Biométrie


enlever _no.spam pour me contacter en PV.