Discussion :

[tbc92]

Voici différentes pistes pour que tu trouves toi même la solution ...

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
 
 
QL = ""
iPos=TableSelect(TableCli)
iPos = TableSelect(TableCli, Inb) //Il me dit que aucune syntaxe de TableSelect ne correspond
Inb=TableSelectOccurrence(TableCli)
Pour i=Inb a 1 Pas -1
     // ici je liste les ID qu'il va falloir effacer
     trace ( " L'utilisateur a sélectionné la ligne n°" + i   + " le nom du client pour cette ligne est " + tableCli[i].nomClient )
     SQL+= TableCli[i]
     SQL+= [", "]+SQL
HLitSuivant(Req)
FIN
SQL = "Delete FROM TableClient where IDUSER in (" + SQL + ")"
 
si ouinon ( SQL +RC+RC + " Ok, on continue ?" )  = non alors renvoyer faux
 
HExécuteRequêteSQL(Req, hRequêteDéfaut, SQL)

Ca ne va rien corriger à ton programme, ça va juste afficher des informations qui vont t'aider à comprendre pourquoi ton programme ne marche pas.

[Narwe]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SQL = ""
iPos=TableSelect(TableCli)
iPos = TableSelect(TableCli, Inb) //Il me dit que aucune syntaxe de TableSelect ne correspond
Inb=TableSelectOccurrence(TableCli)
Pour i=Inb a 1 Pas -1
     // ici je liste les ID qu'il va falloir effacer
     SQL+= TableCli[i]
     SQL+= [", "]+SQL
HLitSuivant(Req)
FIN
SQL = "Delete FROM TableClient where IDUSER in (" + SQL + ")"
HExécuteRequêteSQL(Req, hRequêteDéfaut, SQL)

Voici différentes pistes pour que tu trouves toi même la solution ...

Hummm... Si ça plante dès la ligne 3, les indications proposées ne pourront pas servir.
Le plantage est dûau fait que Inb=0 (au mieux car on ne voit pas la déclaration).
Il faut déplacer cette ligne dans la boucle POUR qui liste les lignes sélectionné.
Elle permettra de modifier l'indice i qui est un compteur sur les lignes sélectionnée uniquement en indice de table
Grosso modo, on obtient cela :

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
 
// iPos=TableSelect(TableCli) // Inutile
// iPos = TableSelect(TableCli, Inb) // Ma lplacé
Inb=TableSelectOccurrence(TableCli)
 
// Parcourt des lignes sélectionnée dans la table.
// Si la table fait 4 lignes et qu'on sélectionne les lignes 2 et 4, Inb vaut 2 et i va donc être 2 puis 1
Pour i=Inb a 1 Pas -1
     // ici je liste les ID qu'il va falloir effacer
//     SQL+= TableCli[i]
//     SQL+= [", "]+SQL
    iPos = TableSelect(TableCli, i) // Toujours avec l'exemple de la table de 4 lignes iPos va prendre la valeur 4 (avec i=2à puis 2 avec i=1)
    SQL+= [", "]+TableCli[iPos].<Nom de la colonne de la table contenant l'Id User>
    // HLitSuivant(Req) // Inutile et cette ligne devait faire planté le programme car situé avant le HExecute (en plus il s'agit d'une requête de suppression pas de résultat à lire
FIN
SQL = "Delete FROM TableClient where IDUSER in (" + SQL + ")"
HExécuteRequêteSQL(Req, hRequêteDéfaut, SQL)

[tatayo]

J'ajouterai ceci:

Code WinDev :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
SQL = ""
iPos=TableSelect(TableCli) // A quoi ça sert, tu n'utilises pas cette variable
iPos = TableSelect(TableCli, Inb) //Il me dit que aucune syntaxe de TableSelect ne correspond
Inb=TableSelectOccurrence(TableCli)
Pour i=Inb a 1 Pas -1 
     // ici je liste les ID qu'il va falloir effacer
     trace ( " L'utilisateur a sélectionné la ligne n°" + i   + " le nom du client pour cette ligne est " + tableCli[i].nomClient )
     SQL+= TableCli[i] // que vaut SQL
     SQL+= [", "]+SQL // Et maintenant, que vaut SQL ?
HLitSuivant(Req) //Il me dit que la requête n'est pas initialisée. Où l'est-elle ?
FIN

Je pense que tu devrais prendre un peu de recul sur ton code, car visiblement ça part dans tous les sens.
Si tu sélectionnes les lignes 4 et 5, que vaut inb ? Quelles sont les valeurs prises par i à chaque itération ?

Je rappelle à toutes fins utiles que WinDev possède un débuggeur intégré.
Pose un point d'arrêt sur la première ligne, puis trace ton code pas à pas en surveillant tes variables. (surtout SQL et i).
Relis bien les codes proposés dans cette discussion, et compare avec ton code.

Tatayo.

[philouZ]

Bonjour,

En faisant comme ça tout simplement non ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQL est une chaîne = "DELETE FROM TableClient WHERE TableClient.IDUSER IN (%1)"
sListe est une chaîne
 
POUR TOUTE LIGNE SELECTIONNEE DE TableCli
	sListe += [","] + TableClie.IDUSER
FIN
SI PAS HExécuteRequêteSQL("REQ",hRequêteDéfaut,ChaîneConstruit(SQL,sListe)) ALORS
	Erreur(HErreurInfo())
SINON
	Info("supprimés")
FIN

[laura_duj]

Bonjour et merci à tous pour votre aide.

PhilouZ j'ai essayé ton code mais il me dit que l'initialisation de la requête est impossible, le user sélectionné est inattendu.

Narwe J'ai également essayé ton code, i et iPos sont correct, IDUSER sélectionné l'est aussi et la requête me sort "DELETE FROM TableClient where IDUSER in (a123456)" ce qui est vrai.
Cependant la ligne ne s'efface pas dans ma fenêtre et ne s'efface pas non plus dans ma bdd.
Je pense qu'on est plus très loin, je vous remercie vraiment !

Quand on débute ce n'est pas forcément simple mais je vous remercie tous pour votre aide.

[tatayo]

Le code client étant alphanumérique, il doit être entouré de quote dans le code SQL.

Tatayo.

[tbc92]

Il faut bien lire les messages d'erreurs. Il ne te dit pas 'le user sélectionné est inattendu', il te dit 'a123456 est inattendu'.

Imagine une requete :

Code sql :

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

DELETE FROM TableClient WHERE TableClient.IDUSER = NOMCLIENT

Pour SQL, IDUSER et NOMCLIENT sont des noms de colonnes de la table, il sait gérer, il détruit les enregistrements qui ont la même chose dans la colonne IdUser et dans la colonne NOMCLIENT

Maintenant, imagine cette requete :

Code sql :

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

DELETE FROM TableClient WHERE TableClient.IDUSER = 123

123 est un nombre, ce n'est donc pas un nom de colonne, Il va supprimer les enregistrements avec le nombre 123 dans la colonne idUser. Plus ou moins ce qu'on cherche faire, mais nous, on doit traiter des chaines de caractères, et pas des nombres.

Et maintenant, cette requete :

Code sql :

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

DELETE FROM TableClient WHERE TableClient.IDUSER = a123456

Pour SQL, cette requète est exactement comme la 1ère, a123456 n'est pas un nombre , c'est donc un nom de colonne, au même titre que idUser . Et, pas de pot, il n'y a pas de colonne qui s'appelle idUser. Donc il envoie un message d'erreur pas forcément très clair, qui dit " la colonne a123456 n'existe pas "

La bonne requete est :

Code sql :

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

DELETE FROM TableClient WHERE TableClient.IDUSER = 'a123456'

Dans ce cas, SQL interprète a123456 comme dans le 2ème exemple, il considère bien que c'est une valeur, et pas un nom de colonne.

Et quand on met in ( ) à la place de =, c'est pareil.

[laura_duj]

Merci effectivement ça fonctionne beaucoup mieux.
Merci pour le raisonnement !

[Delphi-ne]

Ce qui me choque c'est qu'un champ ID puisse être alphanumérique.

C'est purement conventionnel mais un champ ID est un Identifiant (ou Identity) et il est généré automatiquement pas le gestionnaire de base de données dans la suite logique des nombres au moment de l'insertion.

Cela n'agit pas sur le fonctionnement mais cela fait partie des usages.