WDForge.org - Forums - WD 7.x - [RESOLU]Fenêtre de recherche

Index des forums WDForge.org

WD 7.x

[RESOLU]Fenêtre de recherche

Bas

Suivant S'enregistrer pour contribuer

(1) 2 »

	[RESOLU]Fenêtre de recherche	#1
Utilisateur WDF Inscrit: 15/01/2004 11:33 De Etoile (26) Post(s): 70	Voilà. je désirerai réaliser une fenêtre de recherche. je m'explique : //Au niveau contexte, il s'agit d'une recherche de clients -Au démarrage de la fenêtre, il n'y a qu'un champ de saisie ainsi qu'un bouton "Rechercher". -Après avec saisie le nom dans la zone, l'utilisateur clique sur le bouton et là s'affiche 2 choses : -Le nombre de clients trouvés -Un tableau contenant les clients trouvés Mes soucis sont : -Comment réaliser ma recherche (j'aimerai savoir si avec une requête c'est possible) -Afficher le nombre d'enregistrements trouvé dans un libellé -Remplir le tableau Merci d'avance Contribution le : 21/01/2004 11:22

	Re: Fenêtre de recherche	#2
Inscrit: 08/10/2003 15:30 De Montfort sur Argens (83) Post(s): 209	Pour ma part, je créerais un requête grâce au générateur de requête avec comme paramètre le nom ou le début de nom de la personne recherchée. Dans la description de la table, il faut associer la requête et définir chaque colonne avec les champs désirés. Il est possible une fois le remplissage terminé de connaître le nombre de ligne de la table grâce à la commande suivante : elNbLigne est un entier = TableOccurence(TableClient) libComptage = elNbLigne Cela dit au vu de mon expérience (mince!!), je te recommande de vérifier auprès de Romu ou de DrCharly qui sont biens plus compétents que moi. J'espère n'avoir pas dit de grosses bétises. Bon courage. Contribution le : 21/01/2004 12:05
	_________________ Cordialement, Thernius ------------------------------------------- Itanéa.com, réalisations de logiciels & créations webs......

	Re: Fenêtre de recherche	#3
Utilisateur WDF Inscrit: 15/01/2004 11:33 De Etoile (26) Post(s): 70	Merci déjà pour comment afficher le nombre d'enregistrement. En fait, je ne cherchais pas au bon endroit (je cherchais dans les paramètres de la table). Pour ma part, j'ai fait ma recherche de mon côté. j'ai crée une requête qui a cette forme `SELECT NomClient, PrénomClient FROM CLIENT WHERE NomClient =paramnomclient` paramnomclient serait un paramètre auquel je donnerai la valeur de mon champ de saisie lorsque l'on cliquerait sur le bouton "Rechercher". J'ai trouvé (je pense que c'est ça), la ligne de code pour passer le paramètre qui serait : `REQ_TROUVER_CLIENT.paramnomrech=Frm_RechCli.Zs_Client..Valeur` Reste à savoir que faire par la suite car je suis bloqué à ce niveau pour le moment. Merci d'avance Contribution le : 21/01/2004 12:27

	Re: Fenêtre de recherche	#4
Animateur WDF Inscrit: 26/06/2002 16:24 De wdforge.org Post(s): 2822	Bonjour AngelMJ, Pour produire ce que vous cherchez... votre bouton doit executer la requete et en traiter le résultat. une solution serait la suivante... Monter une table fichier sur votre fichier CLIENT avec colonnes NOM/PRENOM... Créer deux requetes (assistant) qui feront - votre sélect. peaufiner l'utilisation de l'assistant pour la récupération d'un paramètre - votre comptage (select count...) `//code du bouton si SAISIE1="" alors retour si pas hExecuteRequete(REQSELECT,SAISIE1) alors retour // initialise le parcours du résultat de requète hlitpremier(REQSELECT) // affecte ce résultat à la table (attention aux rubriques) table..fichier=REQSELECT tableaffiche(table,tainit) si pas hExecuteRequete(REQCNT,SAISIE1) alors retour // initialise le parcours du résultat de requète si hlitpremier(REQCNT) alors NOMBRE=REQCNT.COMPTEUR` Reste à vérifier les portées (validité dans le temps des sources de données des requètes) et le tou devrait être joué. Contribution le : 21/01/2004 13:34
	_________________ R&B Contact, CV.

Re: Fenêtre de recherche

Utilisateur WDF

Inscrit:
15/01/2004 11:33

De Etoile (26)

Post(s): 70

Si je me fis au code en y incluant mes propres paramètres, mon tableau se remplit... mais entièrement , c'est à dire qu'il ne tient pas du tout compte de ce qu'il y a de saisie dans ma zone.

Est ce que ma requête est mal construite? Ai-je oublié une ligne de code? Etant donné que je débute sous ce logiciel, j'ai dû mal à trouver mes erreurs

Voici donc le code qui se trouve derrière mon bouton "Rechercher". Il y a également une gestion d'affichage de certains boutons donc ne vous étonnez pas

//On regarde d'abord si la zone de saisie n'est pas vide
SI Frm_RechCli.Zs_Client="" ALORS RETOUR
REQ_TROUVER_CLIENT.paramnomrech=Frm_RechCli.Zs_Client
SI PAS HExécuteRequête(REQ_TROUVER_CLIENT) ALORS RETOUR
//On exécute la requête
HExécuteRequête(REQ_TROUVER_CLIENT)
//On affiche le résultat de la recherche
Frm_RechCli.Lb_Resultat..Visible=Vrai
HLitPremier(REQ_TROUVER_CLIENT)
// affecte ce résultat au résultat
Frm_RechCli.Tab_ListCLi.NomClient=REQ_TROUVER_CLIENT.NomClient
Frm_RechCli.Tab_ListCLi.PreClient=REQ_TROUVER_CLIENT.PreClient
Frm_RechCli.Tab_ListCLi.TypeClient=REQ_TROUVER_CLIENT.TypeClient

TableAffiche(Frm_RechCli.Tab_ListCLi)
SI PAS HExécuteRequête(REQ_TROUVER_CLIENT) ALORS RETOUR
//On affiche le nombre de résultat
elNbLigne est un entier = TableOccurrence(Tab_ListCLi)
Frm_RechCli.Lb_NbResult..Valeur = elNbLigne
Frm_RechCli.Lb_NbResult..Visible=Vrai
//Si il y a des clients on affiche le tableau et les boutons
SI Frm_RechCli.Lb_NbResult..Valeur<>0 ALORS
  Frm_RechCli.Bt_Commande..Visible=Vrai
  Frm_RechCli.Bt_Facture..Visible=Vrai
  Frm_RechCli.Bt_Rdv..Visible=Vrai
  Frm_RechCli.Bt_Suivie..Visible=Vrai
  Frm_RechCli.Tab_ListCLi..Visible=Vrai
  Frm_RechCli.Bt_Enreg..Visible=Faux
SINON
  //Si il n'y a aucun client, on propose de saisir un nouveau client
  Frm_RechCli.Bt_Enreg..Visible=Vrai
  Frm_RechCli.Bt_Commande..Visible=Faux
  Frm_RechCli.Bt_Facture..Visible=Faux
  Frm_RechCli.Bt_Rdv..Visible=Faux
  Frm_RechCli.Bt_Suivie..Visible=Faux
  Frm_RechCli.Tab_ListCLi..Visible=Faux
FIN

Merci

Sinon, si cela vient de ma requête, est ce qu'il serait possible de me l'écrire en SQL?

Contribution le : 21/01/2004 14:45

	Re: Fenêtre de recherche	#6
Animateur WDF Inscrit: 26/06/2002 16:24 De wdforge.org Post(s): 2822	OK, Je vous ai fait passé un mail... sinon la lecture du résultat de votre requete n'est effectivement pas bon. je m'explique, pour remplir la table par programmation (contraitement à ma première explication qui était des plus rapides...) il faut parcourir Toutes les lignes de REQ_TROUVER_CLIENT et utiliser une table mémoire (non alimentée avec les données d'un fichier). Attention n'utiliser hExecuteRequete qu'une unique fois... // dans le bouton une erreur d'execution de la requete abandonne le traitement SI PAS HExécuteRequête(REQ_TROUVER_CLIENT) ALORS RETOUR // vide la table tablesupprimetout(Tab_ListCLi) // Parcours du résultat de la requete. HLitPremier(REQ_TROUVER_CLIENT) TANTQUE PAS HEnDehors(REQ_TROUVER_CLIENT) // Ajoute la ligne dans la table tableajouteligne(Tab_ListCLi,... REQ_TROUVER_CLIENT.NomClient,... REQ_TROUVER_CLIENT.PrenomClient,... REQ_TROUVER_CLIENT.TypeClient) // résultat suivant HLitsuivant(REQ_TROUVER_CLIENT) FIN // calcul du nombre de lignes Lb_NbResult = TableOccurrence(Tab_ListCLi) voila... C'est la méthode de programmation la moins rapide mais bon. Contribution le : 21/01/2004 15:59
	_________________ R&B Contact, CV.

	Re: Fenêtre de recherche	#7
	Bonjour, personnellement, vu la complexité de ta recherche (pas de lien entre table et condition simple), au lieu d'utiliser une requete sql qui t'oblige a remplir ta table a la main, j'opterais plutot pour un filtre hyperfile ^^ tu décrit da table en table fichier et dans ton code du crée un filtre sur le fichier en question. apres, il te suffit juste de réactualiser la table (fct tableAffiche()) et le tour est joué !! tu trouveras de l'aide sur la fct HFiltre dans l'aide WinDev. franchement si tu est débutant c'est ce que je peut te conseiller de mieux. A moins que ta base de données ne soit pas HF ou encore que ta condition de sélection soit plus lourde (style liaison entre 2 tables ou condition a ralonge avec tris et groupement ). Bon dev Cordialement Argona Contribution le : 21/01/2004 17:43

	Re: Fenêtre de recherche	#8
Utilisateur WDF Inscrit: 15/01/2004 11:33 De Etoile (26) Post(s): 70	Pour te répondre Argona, OUI, je suis débutant et pas qu'un peu ^^'' Je vais essayer vos différentes méthodes et je vous donne des nouvelles dès que j'ai un résultat potentiel. Merci à tous. Contribution le : 22/01/2004 09:06

Re: Fenêtre de recherche

Utilisateur WDF

Inscrit:
15/01/2004 11:33

De Etoile (26)

Post(s): 70

Bon... une heure plus tard, j'obtiens un résultat des plus étrange : ma "Cléparcours" ne prend pas la valeur du champ mais la valeur de l'intitulé du champ. En gros, au lieu d'avoir "Dupond" j'ai "NomClient". :p

Voilà mon code. Je me suis inspirer de l'aide sous WinDev pour réaliser cette partie.

//On regarde d'abord si la zone de saisie n'est pas vide
SI Frm_RechCli.Zs_Client="" ALORS RETOUR
SI PAS HExécuteRequête(REQ_SELECT_CLIENT) ALORS RETOUR
Cléparcours est une chaîne
Cléparcours=HFiltre(REQ_SELECT_CLIENT,NomClient,Frm_RechCli.Zs_Client)
SI Cléparcours<>"" ALORS
	HLitPremier(REQ_SELECT_CLIENT, Cléparcours)
	TANTQUE PAS HEnDehors(REQ_SELECT_CLIENT)
	  TableAjouteLigne(Frm_RechCli.Tab_ListCLi,REQ_SELECT_CLIENT.NomClient,...
	  REQ_SELECT_CLIENT.PreClient,REQ_SELECT_CLIENT.TypeClient)
	  HLitSuivant(REQ_SELECT_CLIENT, Cléparcours)
    FIN	
FIN
//On affiche le nombre de résultat
Frm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)

Il n'empêche que... je ne pensais pas qu'une recherche dans une requête pouvait si compliqué... en algo ça parait vraiment simple ^^''

Contribution le : 22/01/2004 10:10

	Re: Fenêtre de recherche	#10
	Salut, pour la fonction Hfiltre ce que tu utilise n'est pas bon. Le 1er paramatre c'est le nom du fichier de donnée sur lequel porte la requete. pas besoin de déclarer une requete sql vu la condition que tu veut y mettre. Un exemple d'appel a cette fct pour toi serait du genre : // FichierClient est le nom du fichier ou se trouvent tous // les clients existants // SaisieNom est le nom du champ de saisie servant a // parametrer la recherche // NomTable est le nom de ta table // rub1, rub2 ... sont les affectations de tes colonnes ... cléparcours est chaine=hfiltre(FichierClient,"NomClient="+SaisieNom) si cléparcours<>"" alors HLitPremier(FichierClient, CléParcours) tantque pas hendehors() tableajouteligne(Nomtable,rub1,rub2,...) HLitSuivant(FichierClient,Cléparcours) fin fin tableaffiche(NomTable) Ce code ci fonctionne. je l'utilise tout le temps. Autre chose, si tu souhaite que TOUTES tes colonnes soient triables alors change de format de table et utilise une table mémoire, car dans les tables fichiers seuls les rubriques clé sont triables. Bon dev Cordialement Argona Contribution le : 22/01/2004 11:37

	Re: Fenêtre de recherche	#11
Utilisateur WDF Inscrit: 15/01/2004 11:33 De Etoile (26) Post(s): 70	WinDev me déclenche une erreur sur cette ligne : Citation : cléparcours est chaine=hfiltre(FichierClient,"NomClient="+SaisieNom) Le message d'erreur est : Erreur à la ligne 12 du traitement Clic sur Bt_Rechercher. Vous avez appelé la fonction HFiltre. Erreur lors de l'initialisation du filtre. Rubrique DUPOND inconnue dans le fichier CLIENT. Vérifiez que la requête est en phase avec la description des fichiers. DUPOND étant le nom que je recherchai à ce moment là... Contribution le : 22/01/2004 11:53

	Re: Fenêtre de recherche	#12
	je sais d'ou viens p-e l'erreur : Nomclient est une chaine, donc le code doit etre : cléparcours est chaine=hfiltre(FichierClient,"NomClient='"+SaisieNom+"'") ^^ dsl :) Argona Contribution le : 22/01/2004 13:19

Re: Fenêtre de recherche

#13

Utilisateur WDF

Inscrit:
15/01/2004 11:33

De Etoile (26)

Post(s): 70

houlala! Ca me plante l'application ^^'

Mais le problème vien peu être du boucle infini...

Cléparcours est une chaîne
Cléparcours=HFiltre(CLIENT,"NomClient="+"'Frm_RechCli.Zs_Client"+"'")
SI Cléparcours<>"" ALORS
	HLitPremier(CLIENT, Cléparcours)
	TANTQUE PAS HEnDehors(REQ_SELECT_CLIENT)
	  TableAjouteLigne(Frm_RechCli.Tab_ListCLi,CLIENT.NomClient,...
	  CLIENT.PreClient,CLIENT.TypeClient)
	  HLitSuivant(CLIENT, Cléparcours)
    FIN	
FIN
//On affiche le nombre de résultat
Frm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)

Je pense que ce n'est plus qu'une histoire de synthaxe...

Contribution le : 22/01/2004 14:03

Re: Fenêtre de recherche

#14

pas de boucle infinie, juste une erreur d'appel :
le parametre de la fct Hendehors, c'est le nom du fichier parcourru. Hors si j'en croi ton code, le fichier en question n'est pas "REQ_SELECT_CLIENT" mais "CLIENT".
et n'oublie surtout pas d'actualiser la table avec la fct TableAffiche() a la fin du code.
Ce qui donne :

Cléparcours est une chaîne
Cléparcours=HFiltre(CLIENT,"NomClient="+"'Frm_RechCli.Zs_Client"+"'")
SI Cléparcours<>"" ALORS
	HLitPremier(CLIENT, Cléparcours)
	TANTQUE PAS HEnDehors(CLIENT)
	  TableAjouteLigne(Frm_RechCli.Tab_ListCLi,CLIENT.NomClient,...
	  CLIENT.PreClient,CLIENT.TypeClient)
	  HLitSuivant(CLIENT, Cléparcours)
    FIN	
FIN
//On affiche le nombre de résultatFrm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)

TableAffiche(Frm_RechCli.Tab_ListCLi)

Contribution le : 22/01/2004 14:38

	Re: Fenêtre de recherche	#15
Anonyme	[IMG]http://www.stupid-boy.com/smilies/contrib/aahmed/azcrying.gif[/IMG]Ouin.[IMG]http://www.stupid-boy.com/smilies/contrib/aahmed/azcrying.gif[/IMG] C'est toujours pas ça. Voilà le résultat : Mon tableau apparaît mais complètement vide. Pour les enregistrements y sont car il me les compte... mais ils y tous. J'ai compris comment marché mon code et la syntaxe alors je me demande bien où est le problème. Contribution le : 22/01/2004 15:32
Anonyme

Re: Fenêtre de recherche

#16

Utilisateur WDF

Inscrit:
15/01/2004 11:33

De Etoile (26)

Post(s): 70

Désolé mais c'est moi en anonyme, Internet Explorer a planté

Voici dans un ultime espoir mon code complet :

//On masque certains champs
Frm_RechCli.Bt_Commande..Visible=Faux
Frm_RechCli.Bt_Facture..Visible=Faux
Frm_RechCli.Bt_Rdv..Visible=Faux
Frm_RechCli.Bt_Suivie..Visible=Faux
Frm_RechCli.Tab_ListCLi..Visible=Faux
Frm_RechCli.Lb_Resultat..Visible=Vrai
Frm_RechCli.Lb_NbResult..Visible=Vrai
//On regarde d'abord si la zone de saisie n'est pas vide
SI Frm_RechCli.Zs_Client="" ALORS RETOUR
Cléparcours est une chaîne
Cléparcours=HFiltre(CLIENT,"NomClient="+"'Frm_RechCli.Zs_Client"+"'")
SI Cléparcours<>"" ALORS
	HLitPremier(CLIENT, Cléparcours)
	TANTQUE PAS HEnDehors(CLIENT)
	  TableAjouteLigne(Frm_RechCli.Tab_ListCLi,CLIENT.NomClient,...
	  CLIENT.PreClient,CLIENT.TypeClient)
	  HLitSuivant(CLIENT, Cléparcours)
    FIN	
FIN
//On affiche le nombre de résultat
Frm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)
TableAffiche(Tab_ListCLi)
Frm_RechCli.Lb_Resultat..Visible=Vrai
Frm_RechCli.Lb_NbResult..Visible=Vrai
//Si il y a des clients on affiche le tableau et les boutons
SI Frm_RechCli.Lb_NbResult..Valeur<>0 ALORS
  Frm_RechCli.Bt_Commande..Visible=Vrai
  Frm_RechCli.Bt_Facture..Visible=Vrai
  Frm_RechCli.Bt_Rdv..Visible=Vrai
  Frm_RechCli.Bt_Suivie..Visible=Vrai
  Frm_RechCli.Tab_ListCLi..Visible=Vrai
  Frm_RechCli.Bt_Enreg..Visible=Faux
SINON
  //Si il n'y a aucun client, on propose de saisir un nouveau client
  Frm_RechCli.Bt_Enreg..Visible=Vrai
  Frm_RechCli.Bt_Commande..Visible=Faux
  Frm_RechCli.Bt_Facture..Visible=Faux
  Frm_RechCli.Bt_Rdv..Visible=Faux
  Frm_RechCli.Bt_Suivie..Visible=Faux
  Frm_RechCli.Tab_ListCLi..Visible=Faux
FIN

Contribution le : 22/01/2004 15:35

	Re: Fenêtre de recherche	#17
	hmmm ... t'as pas du exactement comprendre ce que je te disait... c'est pas grave... t'est escusé ^^ dans cette ligne : `Cléparcours=HFiltre(CLIENT,"NomClient="+"'Frm_RechCli.Zs_Client"+"'")` la syntaxe est mauvaise. car au final la condition sera une chaine égale a NomClient='Frm_RechCli.Zs_Client' forcément je suppose que tu n'a aucun client ayant ce nom. ^^ La bonne syntaxe est donc : `Cléparcours=HFiltre(CLIENT,"NomClient='"+sansespace(Frm_RechCli.Zs_Client)+"'")` explication : On doit rajouter des quotes car sinon la valeur de ton champ est interpreté comme un objet(une rubrique de la table), nom pas une valeur. Sansespace(), t'est obligé de l'utiliser si ton fichier est compatible 5.5, car dans ce cas des espaces sont rajoutés en fin de rubrique. Question : Ta table est de quel type ? Mémoire ou fichier ? Autre chose, moins important : Si tu a plusieurs champs qui doivent avoir le meme comportement (en visibilité, etat ...), tu peut les regrouper dans un groupe ^^. Ensuite quand tu veut les rendre invisibles,grisé ... tu n'a qu'une ligne a appeler en utilisant le nom du groupe ^^. Si c'est pas magique. Ca t'apporteras rien de spécial en plus si ce n'est que ton code sera + lisible :) Contribution le : 22/01/2004 15:56

	Re: Fenêtre de recherche	#18
Utilisateur WDF Inscrit: 15/01/2004 11:33 De Etoile (26) Post(s): 70	Merci de me pardonner pour mon erreur ^^ En fait je me suis un peu embrouillé dans mes guillemets :p Je n'ai plus mon application sous la main donc je testerai le tous demain. Le type de ma table? Hum... j'en sais rien :p Dsl mais je débute bien débutant avec WinDev ^^ je pense qu'elle est de type fichier (Hyper File c'est ça non?) Merci pour votre aide et votre patience ^-^' (vous car vous êtes plusieurs à m'aider ) Contribution le : 22/01/2004 16:11

	Re: Fenêtre de recherche	#19
Utilisateur WDF Inscrit: 15/01/2004 11:33 De Etoile (26) Post(s): 70	Hé ben non, ça marche toujours pas J'en reviens toujours au même résultat : mon tableau s'affiche complètement vide mais il contient en réalité toute ma table CLIENT car la fonction TableOccurence() me renvoit le nombre de clients présents dans ma table. On va essayer de procéder autrement : Est ce que quelqu'un aurait le code ou un tutorial pour réaliser une recherche dans une table à partir d'un critère de recherche et d'afficher le résultat dans un tableau cliquable. Merci Contribution le : 23/01/2004 11:01

	Re: Fenêtre de recherche	#20
Animateur WDF Inscrit: 02/03/2003 04:07 De Noisy le grand(93) Post(s): 2745	Bonjour AngelMJ, J'ai pas pris le temps de lire le fil de la discussion, mais voici une idée. Tu creer un champs de Saisie pour la recherche 'RECH_Client' tu créer une table vierge 'tbl_Clients' tu Créer un bouton pour la recherche 'cmdRecherche' ru créer un libellé pour le nombre de ligne retournées 'lblNbLignes' dans le code du bouton cmdRecherche Rs est une source de donnees Sql est une chaine sFichier est une Chaine = "Clients"//Nom du fichier source sRubrique est une chaine "Nom, Prenom" //Liste des rubrique à afficher dans la table sCondition est une chaine = " WHERE Nom LIKE '" +REC_Client + "%'" sTri est une chaine = " ORDER BY Nom" Sql = "SELECT " + srubrique + " FROM " + sCondition + sTri SI PAS HexecuteRequeteSQL(Rs,hRequeteDefaut,Sql) ALORS ERREUR(HerreurInfo()) RETOUR FIN TableSupprimeTout("tbl_Clients") ConstruitTableFichier(Rs,"tbl_Clients") lblNbLigne="["+tbl_Clients..Occurrence+"] Client(s) trouvé(s)" Voir l'aide en ligne sur le mot clé ConstruitTableFichier pour l'amélioration d l'affichage et de la présentation de la table. voila un exemple simple ou il ne te reste qu'a modifier le nom du fichier, le contenu des rubriques et la condition Contribution le : 23/01/2004 11:36
	_________________ @A+ Contact (privé)...... email : drcharly@wdforge.org [DrCharly93]

Haut

(1) 2 »

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.