Discussion :

[yassou]

Bonjour à tous et à toutes,

J'utilise un tOracleDataset qui doit faire un update d'une table et qui utilise les valeurs d'un edit et de 2listbox:

Code :

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

1
2
3
4
5
6
7
8
 
with datamain.OdsUpdComp do
begin
sql.clear;
SQL.Add('Update Compositions set ' + Trim(TeKit.Text) + ' = ' + LbQuant.Items[i] + ' ');
SQL.Add(' where Composant ='+'''+lbComp.Items[i]+''');
open;
end;

mais ca ne fonctionne pas !

Quelqu'un pour m'aider??

Merci d'avance

[domlagagne]

Avant ton open, fais un showmessage(SQL.text)

[domlagagne]

Et

Code :

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

SQL.Add(' where Composant ='+quotedstr(lbComp.Items[i]));

C'est plus lisible ...

[yassou]

Et

Code :

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

SQL.Add(' where Composant ='+quotedstr(lbComp.Items[i]));

C'est plus lisible ...

Je comprends pas: ça fonctionne mais seulement pour le premier élément de la listbox

Pourtant je fais une boucle qui parcourt ts les éléments lbComp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for j := 0 to LbQuant.Items.Count - 1 do
begin
with datamain.OdsUpdComp do
begin
sql.clear;
SQL.Add('Update Compositions set ' + Trim(TeKit.Text) + ' = ' + LbQuant.Items[j] + ' ');
SQL.Add('where Composant = '+quotedstr(lbComp.Items[j]));
showmessage(SQL.text);
open;
end;
end;
datamain.OracleSession.commit;

[Rayek]

Régles N° 1: Toujours penser à mettre les balises de code pour montrer un bout de code ^^

Régles N°2: Avec les requetes, il faut savoir que la commande Open, ne focntionne qu'avec les requetes de type Select, pour les autres, il faut utiliser ExecSQL/execute/etc ... (Ca depend des composants).

[yassou]

Wouhou ça marche j'ai remplacé la commande 'open' par execsql


Merci bcp

J'essayerai de respecter la règle la prochaine fois pour le code

Bonne fin de journée