Bonjour,

J'ai un petit soucis dans mon code, et je ne trouve pas de solution.

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
  Nom_Serveur := Fichier_Ini.ReadString('Variables_globales','Nom_Serveur','');
  Password := Fichier_Ini.ReadString('Variables_globales','Password','');
  User_ID := Fichier_Ini.ReadString('Variables_globales','User_ID','');
  Nom_TableEvent := Fichier_Ini.ReadString('Variables_globales','Nom','');
  CatalogEvent := Fichier_Ini.ReadString('Variables_globales','Catalog','');
  CommandeSQL := 'Provider=SQLOLEDB.1;Password=' + Password + ';Persist Security Info=True;User ID=' + User_ID + ';Initial Catalog=' + CatalogEvent + ';Data Source=' + Nom_Serveur + ';';
  Consoletrace('test1',debugglevel1);
  with AdoConnectionEvent do Begin
    Close;
    loginPrompt:=False;
    ConnectionString:=CommandeSQL;
  End;
  Consoletrace('test2',debugglevel1);
  AdoConnectionEvent.Open();
  Consoletrace('test3',debugglevel1);
  AdoQueryEvent.Connection:=AdoConnectionEvent;
  Consoletrace('test4',debugglevel1);

Lorsque mon serveur SQL est joignable, aucun problème. Lorsqu'il n'est pas joignable pour x raison, je reste planté au niveau de mon AdoConnectionEvent.Open();.
J'ai également essayé avec des try/except sans résultat et également ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
try
    ADOConn.Connected := True;
  except
    on e: EADOError do
    begin
      MessageDlg('Error while connecting', mtError,
                  [mbOK], 0);
 
      Exit;
    end;
  end;
sans résultat également. Même plantage, toujours avec le open et si utilisation d'un try, dans le try.

Je vous remercie par avance pour l'aide apportée.
Cordialement.