Comment récupérer les messages d'erreurs ADO ?
J'utilise les composants ADO de Delphi et notamment les TADOQuery.
Actuellement pour lancer une requète SQL sReq je fais un classique :
Code:
1
2
3
4
5
6
7
8
9
|
with ADOQuery1 do
begin
result := -1;
SQL.Clear;
SQL.Add(sReq);
Active := True;
Result := RecordCount;
end; |
Pour gérer les erreurs (par exemple une requète sur une table inexistante) j'utilise un simple try except que j'utilise uniquement pour indiquer si ça a marché ou pas.
Je ne retrouve plus comment récupérer les messages que renvoie ADO (style table inexistante...) il me semble que c'est géré dans le except mais je n'ai plus les éléments.
Si quelqu'un a ça sous la main...
