Bonjour,
J'ai une requête exécutée par un programme Delphi qui doit insérer les enregistrements résultant d'une sélection dans une table d'une base de données Firebird.
Cela fonctionnait parfaitement depuis des années.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 INSERT INTO "SelectTable" (NATURE, ADRESSEBIEN, DIV, SECT, RADICAL, EXPOSLET, EXPOSDIGIT, INDICE, CONTENANCE, IMPOSABIL, REVENU, FINCONSTRUCT, ARTICLE, NOM, ADRESSEPROPRIO, CODEPOSTAL, LOCALITE, DROITPROPRIO, REFCADCLE) SELECT DISTINCT "TableBien".Nature, AdresseBien, Div, Sect, Radical, ExposLet, ExposDigit, Indice, Contenance, Imposabil, Revenu, FinConstruct, "TableBien".Article, "TableProprio".NOM, "TableProprio".ADRESSEPROPRIO, "TableProprio".CODEPOSTAL, "TableProprio".LOCALITE, "TableProprio".DROITPROPRIO, "TableBien".REFCADCLE FROM "TableBien" INNER JOIN "TableProprio" ON "TableBien".Article = "TableProprio".Article INNER JOIN CategNatureFR ON "TableBien".Nature = CategNatureFR.Nature WHERE Div BETWEEN 1 AND 1 AND Sect BETWEEN 'A' AND 'A' AND radical BETWEEN 16 AND 16 AND ExposLet BETWEEN 'A' AND 'A' AND ExposDigit BETWEEN '2' AND '2' AND Indice BETWEEN '' AND '';
J'ai vidé la base de données puis rempli toutes les tables sans problème.
Mais depuis, "Insert Into" ne s'exécute plus.
J'ai exécuté l'instruction dans l'éditeur Sql de IbExpert et elle fonctionne si j'exécute avec "Fetch".
Et pourtant, quand j'exécute le "Select" seul, j'ai bien la sélection escomptée.
J'ai fait un Backup/Restore de la base de données sans plus de succès.
J'ai mis ce sujet sur le forum Firebird mais je viens de constater que le problème vient de Delphi.
En effet, le problème ne se produit que dans l'EDI. Si j'exécute mon exe en dehors de Delphi, pas de problème.
Tant mieux, mais dommage pour le développement : je dois compiler, sortir de Delphi et exécuter mon exe.
Si quelqu'un pouvait me trouver une solution à ce désagrément.
Merci d'avance
Partager