Discussion :

[Zatoobux]

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 :

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
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

[SergioMaster]

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

[Zatoobux]

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

merci

[teach]

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

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
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

[Zatoobux]

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

[teach]

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 :

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
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;

[Zatoobux]

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