Problème composant AdoConnection
Bonjour,
J'ai un petit soucis dans mon code, et je ne trouve pas de solution.
Code:
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:
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.