Test connection BD inexistante

**Oncle_Pete** · 11/12/2006, 18h09

Bonsoir,

Je reviens sur le forum avec un autre sujet.
Je dois effectuer des traitements identiques sur plusieurs BD dont les alias sont listes dans un fichier INI.
Je communique avec celles-ci vi un pilote ODBC (AS400).
J'essaie de prevoir une erreur de saisie sur un alias provoquant une tentative de connection sur une BD inexisante.
J'ai le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
            Connection.ConnectionString:=ChaineConnection;
            Connection.LoginPrompt:=false;
            Connection.KeepConnection:=false;
            Connection.Provider:=cProvider;
 
            Try
                Connection.Connected:=true;
            Except
                on E:Exception do begin
                    TraceMsg('Pb sur la Connection de la base '+NomDB+'. ==> '+ E.Message,'');
                end;
            End;

La ligne Connection.Connected:=true m'envoie un message d'insulte, mais lorsque je m'acquitte de ce message, je ne passe pas dans mon Except (je remonte a ma procedure appelante).
Le code convient-il ?
N'aurais-je pas une option de mon IDE qui ne serait pas convenablement geree ?

Merci a vous
Cordialement

Oncle_pete