Bonjour à tous
Je dois manquer d'information. Voici ce que j'ai écrit
et j'ai un gentil message me disant que, à la ligne 4, caractère 1, UPDATE est inconnu (Token unknowned). Je sens d'ailleurs qu'il m'aurait dit la même chose pour le ligne 6 s'il y été arrivé !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 SQ1.Close; SQ1.SQL.Clear; SQ1.SQL.Add('UPDATE RDB$TRIGGERS T SET "RDB$TRIGGER_INACTIVE" = 1 '); SQ1.SQL.Add('WHERE T.RDB$RELATION_NAME IN (''CAISSE'') '); SQ1.SQL.Add(' AND T.RDB$SYSTEM_FLAG = 0; '); SQ1.SQL.Add('UPDATE PAIEMEN SET MONTANT = :A,'); SQ1.SQL.Add('REMISE = :B where ID = :C; '); SQ1.SQL.Add('UPDATE RDB$TRIGGERS T SET "RDB$TRIGGER_INACTIVE" = 1 '); SQ1.SQL.Add('WHERE T.RDB$RELATION_NAME IN (''CAISSE'') '); SQ1.SQL.Add(' AND T.RDB$SYSTEM_FLAG = 0'); SQ1.Params[0].AsFloat := Zone1l; SQ1.Params[1].AsFloat := Zone2l; SQ1.Params[2].AsInteger := xInteger; SQ1.ExecSQL(False);
Est il interdit de lancer deux ordres dans un même SQL, ou alors ai-je oublié une phrase ?
Une précision : je ne peux pas faire 3 SQL distincts : le résultat n'est pas bon
Merci d'avance
Partager