PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → Créer une table avec des enregistrements sans homonyme
Créer une table avec des enregistrements sans homonyme
Débuté par jplucien, 28 nov. 2005 23:35 - 2 réponses
#1
Posté le 28 novembre 2005 - 23:35
J'ai une table qui contient des articles / lot qui ont des homonymes. J'ai besoin de sélectionner les enregitrements uniques dans cette table afin de les ajouter dans une autre

J'ai testé ce code, malheureusement di la sélection est bonne, il ne m'a pas été possible d'ajouter les enregistrements à cette nouvelle table car je n'ai pas su exploiter la requête avec la clause DISTINCT.

Voici mon code... si quelqu'un pouvait me donner un coup de main, je lui serais très reconnaissant:

*************************************************************************

strSQL est une chaîne
mareq est une Source de Données

strSQL = "SELECT DISTINCT LISTES.Article, LISTES.Lot FROM LISTES"
HExécuteRequêteSQL(mareq,hRequêteDéfaut,strSQL)
//info (hnbenr(mareq))

HLitPremier(mareq,hBlocageNon)


HOuvre(ArtLot)
HCréationSiInexistant(ArtLot,"","C:\Mes Projets Mobile\Inventaire\Exe")
ArtLot.Article = mareq.article
ArtLot.Lot = mareq.lot
HAjoute(ArtLot,hVérifieIntégrité)

TANTQUE PAS HEnDehors(mareq)
HLitSuivant(mareq)
ArtLot.Article = mareq.article
ArtLot.Lot = mareq.lot
HAjoute(mareq,hVérifieIntégrité)


FIN

*************************************************************************
Merci de votre aide,

Bien cordialement
#2
Posté le 29 novembre 2005 - 08:40
salut

le problème est que tu crée un enregistrement alors que tu es en dehors de la requête

il faudrait plutot faire

HLitPremier(mareq,hBlocageNon)
TANTQUE PAS HEnDehors(mareq)

ArtLot.Article = mareq.article
ArtLot.Lot = mareq.lot
HAjoute(ArtLot,hVérifieIntégrité)

HLitSuivant(mareq)
FIN
#3
Posté le 29 novembre 2005 - 11:16
@ YORK


Merci beaucoup, sans toi je ne me serais pas aperçu du problème !!!!
Cordialement
→ Revenir à WINDEV 2024