[TQuery][ParamByName]Aucune exception n'est déclenchée

J'utilise un TQuery avec paramètre pour insérer des enregistrements dans une BDD (MS SQL 2000, via BDE + ODBC).
L'insertion fonctionne parfaitement.

Dans certain cas des exceptions peuvent êtres déclenchées (type de données, violation d'index...). En cas d'exception l'applic. ne passe pas dans le gestionnaire d'exception ! L'insertion n'a bien sur pas été faite.
Si je supprime le paramètre et exécute l'insertion qui doit échouer alors je passe bien dans le gestionnaire d'exception !

Une idée ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

With TQuery.Create(application) do try DatabaseName := ... SQL.Add(...) MemStream := TMemoryStream.create; try MemStream.write(...); ParamByName('BlbValue').LoadFromStream(MemStream,ftBlob); finally MemStream.free; end;   try ExecSQL; except on e: exception do begin // Je n'arrive jamais ici !!! end; end; finally free; end;

---

Merci

TQuery.ParamCheck est égal à ?
Cela pourrait peut-être faire la différence ?

J'avais laissé paramCheck à sa valeur par défaut (true). Est affecté false mais ca ne change rien.

merci

Juste un test si tu fais (suppression d'un try):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

With TQuery.Create(application) do try DatabaseName := ... SQL.Add(...) MemStream := TMemoryStream.create; try MemStream.write(...); ParamByName('BlbValue').LoadFromStream(MemStream,ftBlob); finally MemStream.free; end;   ExecSQL; except on e: exception do begin instructions end; finally free; end; Merci

---

teach : tu veux dire complement supprimer le try ... except ... end ? Sinon la syntaxe que tu donnes ne me semble pas correct.

Donc j'ai supprimé toute la gestion try/except. Aucune exception n'est déclenchée quand l'instruction SQL doit échouer (et elle échoue bien car aucun enregistrement n'est ajouté à la base de données) !

merci

Ce n'est pas ce je voulais mais j'ai eu en tête la syntaxe des exceptions d'un autre langage, elle n'est pas la même pour Delphi donc autant pour moi.
Ce que je veux et que tu rattaches le ExecSql au premier try et dans ce cas delphi impose de supprimer ton dernier finally
(mais ce qui me pose souci est que: est ce Exception capte ce genre d'erreur ou ceci nécessite un type exception spécial ? bon courage )
ceci donnera

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

With TQuery.Create(application) do try DatabaseName := ... SQL.Add(...) MemStream := TMemoryStream.create; try MemStream.write(...); ParamByName('BlbValue').LoadFromStream(MemStream,ftBlob); finally MemStream.free; end; ExecSQL;   except on e: exception do begin instructions end; end;

---

Je ne trouve aucune explication à ce problème.
J'ai ressorti le code d'insertion dans un projet qui ne fait que ça pour vérifier que le problème n'est pas lié à mon application.
J'ai supprimé tous les try/finally et try/except... toujours aucune exception n'est déclenchée.

Je vais me passer de l'exception en testant la propriété TQuery.RowsAffected après l'exécution de la requête.
Et si RowAffected <= 0 j'afficherai un message "L'insertion a échoué mais ne demandes pas pourquoi !" :?


merci