Message de rapport:
 

l'importation...et les doublons

Sujet: l'importation...et les doublons
par Le_GnU sur 1/7/2007 15:34:12

bonjour, j'ai fait un petit script pour faire une importation :
dbl est un entier = 0
nDoublon est un entier



i est un entier
t est un entier
nXls est un entier

nbCol est un entier
nbLig est un entier

nXls = xlsOuvre("C:\imp.xls")

nbCol = xlsNbColonne(nXls)
nbLig = xlsNbLigne(nXls)

HStatNbDoublon(client,IDclient)

HCréationSiInexistant(client)
HGèreIntégrité("*", "*", hCardinalité + hEnModification + hEnSuppression, Faux)
HGèreDoublon(client,"*",Faux)

	POUR T=2 A nbLig
		POUR i=1 A nbCol
			SELON i
				CAS 2: client.Nom = xlsDonnée(nXls,t,i)
				CAS 3: client.prénom = xlsDonnée(nXls,t,i)
				CAS 4: client.Difficultes = xlsDonnée(nXls,t,i)
				CAS 5: client.Pai = xlsDonnée(nXls,t,i)
				CAS 6: client.Suivi = xlsDonnée(nXls,t,i)
				CAS 7: client.Suites = xlsDonnée(nXls,t,i)
				CAS 8: client.Date = xlsDonnée (nXls,t,i)
			HAjoute(client,hAffecteParcours)					

			FIN
		FIN
	FIN

SI HStatNbDoublon() >= 1 ALORS
 dbl = 1
FIN
SI dbl = 1 ALORS
	nDoublon = HLitRecherche(client,IDclient,dbl)
	HSupprime(client,nDoublon,hVérifieIntégrité)
FIN

xlsFerme(nXls)


SI HErreurIntégrité() = Vrai OU HErreurDoublon() = Vrai ALORS
	Erreur("Une erreur c'est produite, veuillez recommencer")
	SINON
	Info("L'importation s'est déroulée avec succès.")
FIN


donc, tout s'importe bien mais si mes clients existent déjà, lors de l'import, il y a des doublons !
j'ai essayé de les parer avec ce petit code qui hélas, ne sert à rien :
en rouge

merci de m'aider !
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2