Voici différentes pistes pour que tu trouves toi même la solution ...
Ca ne va rien corriger à ton programme, ça va juste afficher des informations qui vont t'aider à comprendre pourquoi ton programme ne marche 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 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)
Partager