Discussion :

[Fred_rt]

Bonjour,

Je suis débutant en Windev et suis actuellement en test de la version 20 Express. Le but de tout ce test est d'acheter le produit complet.
Je suis en HFSQL classic avec plusieurs fichiers de données.
J'ai une fenêtre qui me permet de déclarer un client et un site. Il y a un fichier de données pour le client et pour le site. Lorsque je valide avec un HAjoute sur chaque fichier de données, pas de problème. Mais évidement, je ne veux pas qu'il y ait une nouvelle ligne pour un client ou un site existant.
Voici le code que j'ai mis pour chercher si l'enregistrement existe:

Code :

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

1
2
3
4
5
6
VRechclient est une chaîne
VRechclient = SAI_Nomcomplet
HLitRecherche(EXPRESS_Clients,EXPRESS_Clients.nomcomplet,VRechclient, hIdentique)
SI HTrouve = Faux ALORS
	HAjoute(EXPRESS_Clients)
FIN

La recherche fonctionne, vérifiée avec une fenêtre info. Malheureusement, la fonction HAjoute m'ajoute toujours la même ligne, qui correspond au premier site ou client déclaré.


J'espère avoir été clair.

Merci d'avance.
Cordialement,

Fred

[Invité]

Bonjour,
Ce n'est pas un message propre à windev mais à HFSQL, il faut poser ce genre de question ici.

Concernant ton problème, je ne peux pas t'aider avec HAjoute, dans les rares projets que j'avais fait avec HFSQL Classic, j'ai généré à la place des requêtes de type SELECT, UPDATE, INSERT, DELETE, peut être que tu t'en sortirais plus aisément en faisant ainsi, l'appel se fait avec hExecuteRequête
A toi de voir.

[tbc92]

Je vois 2 raisons pour que ça plante :
Quand tu fait HLitRecherche, le programme Recherche et Lit. Et comme il Lit quelque chose, il remplace le contenue de la structure Express_Clients par ce qu'il a lu.
Utilise HRecherche au lieu de HLitRecherche.

D'autre part, je ne vois pas à quel moment tu initialises ta structure Express_Clients :

Code :

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

1
2
3
4
5
6
7
8
9
 
VRechclient est une chaîne
VRechclient = SAI_Nomcomplet
HRecherche(EXPRESS_Clients,EXPRESS_Clients.nomcomplet,VRechclient, hIdentique)
SI HTrouve = Faux ALORS
        Express_clients.adresse = .. 
        Express_clients.telephone = .. 
	HAjoute(EXPRESS_Clients)
FIN

[Fred_rt]

Bonjour et merci à vous.

La solution de tbc92 est la bonne.

Cordialement,

Fred

[Fred_rt]

Bon, en fait, même phénomène...

tbc92, tu parles d'initialisation de la structure, comme indiquer ici http://wind.developpez.com/tutoriels...acces-donnees/ ?

Est-il obligatoire de monter un table mémoire ?

Merci d'avance.

Cordialement,

Fred

[Fred_rt]

Bonjour,

Voici ce qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
HLitRecherche(EXPRESS_Clients,EXPRESS_Clients.nomcomplet,SAI_Nomcomplet, hIdentique)
SI HTrouve(EXPRESS_Clients) = Faux ALORS
	EXPRESS_Clients.nomcomplet = SAI_Nomcomplet
	EXPRESS_Clients.adresse = SAI_Adresse
	EXPRESS_Clients.responsableclient = SAI_nomresponsableclient
	EXPRESS_Clients.telresclient = SAI_telresponsableclient
	EXPRESS_Clients.mailresponsableclient = SAI_mailresponsableclient
	HAjoute(EXPRESS_Clients)
FIN

Merci pour vos infos.

Fred

[tbc92]

Juste pour info, dans Windev, tu peux aussi associer chaque champ de saisie à telle ou telle rubrique de fichier (clic droit , description / contenu ou liaison, je ne sais plus).
Ainsi, tu peux remplacer les 5 ou 6 lignes d'affectation (lignes 3 à 7) par la commande EcranVersFichier().
Et tu as aussi la commande inverse FichierVersEcran().
Personnellement, comme j'ai programmé avec d'autres langages avant de programmer en Windev, je n'utilise jamais. Mais pour les vrais puristes de Windev, il faut passer par FichierVersEcran() et EcranVersFichier()