Discussion :

[Berrehal]

j'ai mis un code pour importer d'un fichier excel
le code marche bien mais le problème quand j'importe il m’écrase la BDD

normalement si il trouve une notre id clé primer numclient il ne l'ecrase pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
IdFichierXLS est un entier
FichierExcel est une chaîne
i,NbLigne est un entier
FichierExcel="c:\Ordre de facturation\client.xls"
 
SI fFichierExiste(FichierExcel) ALORS
	HCréation(CLIENT)
	IdFichierXLS = xlsOuvre("c:\Ordre de facturation\client.xls")
	NbLigne=xlsNbLigne(IdFichierXLS)
	HOuvre(CLIENT)
 
	SI IdFichierXLS <> -1 ALORS
		SI OuiNon("Voulez vous importer les données ?") ALORS
			Sablier(Vrai)
			POUR i=2 A NbLigne
				CLIENT.NumClient= xlsDonnée (IdFichierXLS,i,1,Vrai)
				CLIENT.NOMCLIENT= xlsDonnée (IdFichierXLS,i,2,Vrai)
				CLIENT.ADresseCLIENT= xlsDonnée (IdFichierXLS,i,3,Vrai)
				CLIENT.Ville= xlsDonnée (IdFichierXLS,i,4,Vrai)
				CLIENT.Fax= xlsDonnée (IdFichierXLS,i,5,Vrai)
				CLIENT.CodePostal= xlsDonnée (IdFichierXLS,i,6,Vrai)
				CLIENT.Telephone= xlsDonnée (IdFichierXLS,i,7,Vrai)
				CLIENT.Email= xlsDonnée (IdFichierXLS,i,8,Vrai)
				CLIENT.TauxTVA= xlsDonnée (IdFichierXLS,i,9,Vrai)
				HAjoute(CLIENT)
			FIN
			Info("Importation terminée")
			// Rafraichissement de la table
			TableAffiche(TABLE_CLIENT)
		FIN
 
	FIN
SINON
	Erreur("Le fichier Excel Clients.xls n'existe pas")
FIN
Sablier(Faux)
xlsFerme(IdFichierXLS)
 
MaFenêtre..ValeurRenvoyée = Vrai

[tatayo]

Bonjour,
Je te suggères de faire un tour dans l'aide en ligne, et de jeter un œil sur hCreation().

Tatayo.

[philouZ]

Je pense que tu fais trop de copier-coller, ce n'est pas ça le développement...

Je te suggère également d'apprendre à utiliser un debugger, ça te sera d'une grande aide.

[Invité]

le code marche bien mais le problème quand j'importe il m’écrase la BDD

Vous vous êtes demandé pourquoi votre programme agissait de la sorte?

[midou23175]

Bonjour,

Un topic est ouvert suite à une question que tu n'a pas solutionné.

Tu crée un autre topic pour exposer un autre problème.

Le plus important pour toi, c'est d'apprendre la programmation et non de chercher par tout les moyens à faire un logiciel.
Pour cela, je te conseille de repartir à partir des bases (algorithme) et gravir les échelons doucement mais sûrement.

Tu es en train d'adapter pour ton propre besoin, un code que tu n'as pas pondu.
A la rigueur, en lisant un code, tout ce que tu ne comprends pas, il faut le chercher
dans l'aide pour le comprendre. Il se pourrait que certaines fonctions font le contraire de ce que tu veux.

[Berrehal]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
EcranVersFichier()
 
IdFichierXLS est un entier
FichierExcel est une chaîne
i,NbLigne est un entier
FichierExcel=fSélecteur("", "", "Sélectionnez un fichier.....", "xls" + TAB + "*.xls", "*.xls")
 
SI fFichierExiste(FichierExcel) ALORS
	HAjoute(CLIENT)
	IdFichierXLS = xlsOuvre(FichierExcel)
	NbLigne=xlsNbLigne(IdFichierXLS)
	HOuvre(CLIENT)
 
	SI IdFichierXLS <> -1 ALORS
		SI OuiNon("Voulez vous importer les données ?") ALORS
			Sablier(Vrai)
			POUR i=2 A NbLigne
				CLIENT.NOMCLIENT= xlsDonnée (IdFichierXLS,i,1,Vrai)
				CLIENT.ADresseCLIENT= xlsDonnée (IdFichierXLS,i,2,Vrai)
				CLIENT.Ville= xlsDonnée (IdFichierXLS,i,3,Vrai)
				CLIENT.Mobile= xlsDonnée (IdFichierXLS,i,4,Vrai)
				CLIENT.Fax= xlsDonnée (IdFichierXLS,i,5,Vrai)
				CLIENT.CodePostal= xlsDonnée (IdFichierXLS,i,6,Vrai)
				CLIENT.Telephone= xlsDonnée (IdFichierXLS,i,7,Vrai)
				CLIENT.Email= xlsDonnée (IdFichierXLS,i,8,Vrai)
				CLIENT.TauxTVA= xlsDonnée (IdFichierXLS,i,9,Vrai)
				HAjoute(CLIENT)
			FIN
			Info("Importation terminée")
			// Rafraichissement de la table
			TableAffiche(TABLE2)
		FIN
 
	FIN
SINON
	Erreur("Le fichier Excel Clients.xls n'existe pas")
FIN
Sablier(Faux)
xlsFerme(IdFichierXLS)
 
MaFenêtre..ValeurRenvoyée = Vrai

mais se qie je veux si ils trouve le client déjà existe il passe pour qu'il me donne pas le problème de doublon

[tatayo]

Bonjour,
Je pense que tu devrais mettre en pause tes développements, et que tu devrais suivre le guide d'auto-formation.
En lisant ton code, on a l'impression que tu poses des fonctions "au petit bonheur la chance", et que tu copies le code qu'on te donne ici sans trop comprendre ce qu'il fait.

L'aide en ligne de WinDev est également très bien faite, avec le plus souvent des exemples d'utilisation.
Tu as aussi les exemples fournis avec WinDev, que tu peux étudier.
Enfin WinDev propose un débuggeur qui permet de suivre pas à pas le déroulement du code, et qui je pense te sera d'une aide très précieuse.

Tatayo.

[serendib]

En lisant tous vos postes (une cinquantaine en 5 semaines), je vous conseille de tenter de vous lancer sur le cours d'autoformation en
y consacrant 3 bonnes semaines.

Ca vous évitera d'attendre avec impatience les réponses à vos questions
Ca vous évitera de perdre du temps à les lire en diagonale.
Ca vos évitera des copier/coller stupides.

Et vous saurez vite si vous êtes fait pour ce métier ou pas.

Cordialement.

[tbc92]

Je pense que pour être totalement efficace, tu devrais commencer par une initiation à la programmation. J'ai trouvé ceci : https://algo.developpez.com/tutoriels/initiation/. Je ne sais pas si c'est adapté, il y a surement d'autres tutoriels sur l'initiation à la programmation. Puis dans un second temps, bien sûr, l'auto-formation Windev.

En tout cas, donner des solutions toutes faites et des lignes de code est le pire service qu'on pourrait te donner en l'état actuel.

[midou23175]

Bonjour,

@Berrehal

En complément, à ce qui a été dit, jettes un coup d'oeil à cet endroit,
ça parle de programmation, algorithme, ...

lien http://villemin.gerard.free.fr/Wwwgv...e/IAalgorD.htm