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
|