WDForge.org - Forums

Re: Help:Recherche Avancee dans une table

Sujet: Re: Help:Recherche Avancee dans une table
par bassy sur 11/5/2004 22:09:48

bonjour
Le code de DrCharly est très correcte, ce code te parviendra parfaitement, si tu fait ce qui suit :
>Une table nommé ici TABLE1
>3 champs de saisie nommés respectivement ici : CODE, ANNEE, DEPARTEMENT
>Fichier ETUDIANT avec comme clé "IDEtudiant" .
>un BOUTON
> copier/coler le code de DrCharly dans le code du bouton :

nIndice est un entier
Sql est une chaîne
Rs est une Source de Données
sIdentifiantUniqueEtudiant est une chaîne = "IDEtudiant"
sCondition est une chaîne


Sql = " SELECT "+sIdentifiantUniqueEtudiant+" AS Id FROM Etudiant "

SI CODE <> "" ALORS
	sCondition = "CodeEtudiant='"+CODE+"' "
FIN
SI ANNEE <> "" ALORS
	SI sCondition <> "" ALORS sCondition += "AND "
	sCondition += "AnneeInscription='"+ANNEE+"' "
FIN

SI DEPARTEMENT <> "" ALORS
	SI sCondition <> "" ALORS sCondition += "AND "
	sCondition += "Departement='"+DEPARTEMENT+"' "
FIN

SI sCondition <> "" ALORS 
	Sql += "WHERE "+sCondition
FIN

SI PAS HExécuteRequêteSQL(Rs,hRequêteDéfaut,Sql) ALORS
	Erreur(HErreurInfo)
	RETOUR
FIN

HLitPremier(Rs)
SI PAS HEnDehors(Rs) ALORS 
	nIndice = TableCherche(Table1.id,Rs.Id,Faux,1) 
	SI nIndice <> -1 ALORS 
	TableSelectPlus(Table1,nIndice)
	
	FIN
	
FIN

> Le code en rouge, lit la requete et TIRE le IDEtudiant de l'étudiant trouvé et sélectionne ce IDEtudiant dans la Table TABLE1, alors si tu n'as pas une colonne pour IDEtudiant, il faut l'ajouter et mets la invisible si tu veux.