Discussion :

[Pr3dators]

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.

[Papy214]

AdoConnectionEvent , c'est quel type de composant ?

[Pr3dators]

Bonjour,

C'est un composant de type AdoConnection.

[Papy214]

et en remplaçant AdoConnectionEvent.Open(); par

Code :

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

AdoConnectionEvent.Connected := True;

??

[Pr3dators]

Je viens de refaire le test et même problématique à la clé.
Je n'ai pas de soucis avec les deux méthodes lorsque mon serveur est joignable mais lorsqu'il ne l'est pas, plantage.

Cordialement.

[Papy214]

et le terme planté, il veut dire quoi ? message d'erreur ? ou attente infinie ?

Dans le second cas, est-ce qu'il n'y a pas un timeout défini quelque part ?