Problème avec Hversfichier()

bonsoir à tous

comme l'indique l'intitulé je viens d'avoir des difficultés avec la fonction Hversfichier() mon but et d'exporter des données d'une requette vers un fichier .fic qui a les mêmes rubriques du fichier original avec le code suivant:

Code:

---

1 2 3 4 5

sFichier1 est une chaîne sFichier1 = fSélecteur("", "", "Sélectionnez un fichier.....", "Tous les fichiers (*.*)" + TAB + "*.fic", "*.fic",fselOuvre) SI HExécuteRequête(REQ_tablc1,hRequêteDéfaut,SAI_clas,COMBO_grp) ALORS HVersFichier(REQ_tablc1,sFichier1) FIN

---

mais le fichier et vide

Bonjour,

Est-ce que HVersFichier renvoie Vrai?
dans la négative, que dit HErreurInfo() ?

Patrick

Code:

---

1 2 3 4 5 6 7

sFichier1 est une chaîne sFichier1 = fSélecteur("", "", "Sélectionnez un fichier.....", "Tous les fichiers (*.*)" + TAB + "*.fic", "*.fic",fselOuvre) HExécuteRequête(REQ_tablc1,hRequêteDéfaut,SAI_clas,COMBO_grp)   SI HVersFichier(REQ_tablc1,sFichier1) = Vrai ALORS Info("Données transférées dans un fichier de données") FIN

---

pas de message erreur
le fichier et toujours vide!!!

bonjour

pour mieux comprendre ma situation , j installer mon application sur plusieurs poste, et pour donner a chaque utilisateur ses données :
je cherche à exporter des données d'une requette vers un fichier (.fic) externe
et les importer sur un autre poste
alors le but et d'exporter et d'importer depuis un fichier (.fic)

Bonjour,

...et le HExecuteRequete s'est-il bien passé? Il faudrait aussi tester le retour de HExecuteRequête et, si le retour est OK, regarder que vaut "HNbEnr(REQ_tablc1)"...

Bonjour :coucou:

Je testerai le retour de HexecuteRequete pour savoir si la requete c'est bien passé.
Car il est possible que ton problème provienne de ta requête.

Code:

---

1 2 3 4 5 6 7 8 9

sFichier1 est une chaîne sFichier1 = fSélecteur("", "", "Sélectionnez un fichier.....", "Tous les fichiers (*.*)" + TAB + "*.fic", "*.fic",fselOuvre) SI pas HExécuteRequête(REQ_tablc1,hRequêteDéfaut,SAI_clas,COMBO_grp) alors Erreur(HerreurInfo(herrcomplet)) SINON SI HVersFichier(REQ_tablc1,sFichier1) = Vrai ALORS Info("Données transférées dans un fichier de données") FIN FIN

---

Bon dev :ccool:

ma requette marche très bien.
je viens de tester le code de (dsr57) mais toujours pas résultat ni message d'erreur .
je demande svp s'il y à une autre piste pour faire se travail :
(je cherche à exporter des données d'une requette vers un fichier (.fic) externe
et les importer sur un autre poste
alors le but et d'exporter et d'importer depuis un fichier (.fic) )
je vous remercie tous

Bonjour,

Il y a le très fameux INSERT INTO SELECT que j'utilise très souvent et qui est très utile dans ce contexte.

Cordialement.

j modifier mon code

Code:

---

1 2 3 4 5 6

sRepSource est une chaîne = c1..Répertoire sRepDestination est une chaîne = fRepSélecteur("", "") HChangeRep(c1, sRepDestination) HCreation(c1) HVersFichier(REQ_tablc1,sRepDestination) HChangeRep(c1, sRepSource)

---

le fichier est toujours vide Je ne sais pas d'où vient le problème ,ma requette marche très bien (REQ_tablc1)

oui j viens de trouver ou est le problème c'est à cause du répertoire
les enregistrements s'exporte avec succès comme dans la requette
mais une autre anomalie apparus:
ce code supprime tous les enregistrements dans le fichier source

Code:

---

1 2 3 4 5 6 7 8 9

MonRépertoire est une chaîne = (fRepExe()+"/"+"BaseDirecteur"+"/"+FEN_carros.SAI_SansNom2..ValeurAffichée) sRepSource est une chaîne = c1..Répertoire sRepDestination est une chaîne = fRepSélecteur("", "") HChangeRep(ComplèteRep(sRepDestination)+"/"+"c1.fic", sRepDestination) HCreation(c1) SI HExécuteRequête(REQ_tablc1,hRequêteDéfaut,FEN_1.SAI_clas,FEN_1.COMBO_grp)=Vrai ALORS HVersFichier(REQ_tablc1, ComplèteRep(sRepDestination)+"/"+"c1.fic") FIN HChangeRep(ComplèteRep(sRepDestination)+"/"+"c1.fic",sRepSource)

---

le problème d'exportation des données d'une requette vers un fichier .fic est bien résolu avec le code suivant

Code:

---

1 2 3

sRepDestination est une chaîne = fRepSélecteur("", "") HVersFichier(REQ_tablc1, ComplèteRep(sRepDestination)+"c1.fic")

---

il me reste de faire l'importation des données déjà exporter avec modification c'est il y à une modification si non ajouter les données au fichier.