Discussion :

[Psykotik]

bonjour a tous,

j'ai un petit probleme d'exceptions sur builder 5.0.
j'ai creer un DataModule en y placant un TIBDatabase et TIBQuery TDatasource ...etc
j'ai configuré TIBDatabase pour pouvoir se connecter a un SGBD interbase server
donc j'ai remplis les champs du TIBDatabase comme indiqué dans l'aide du PDF (aide installation/configuration Interbase sur developpez.com).
je voudrai intercepter l'erreur au moment ou je demarre l'application , c'est a dire l'erreur de connexion au server ... mais je ne trouve pas le nom de l'exception...
car dasn le cas ou le server n'est pas allumer il met un message d'erreur à l'ouverture de l'application . un message d'erreur du type

impossible d'etablir une connexion avec le server a l'adresse ip 192.168.1.2 , car le server l'expressement refusé."

dois-je creer le datamodule et tous ses composant dynamiquement et faire un try catch sur la creation dynamique de ces objets ou une autre solution est envisageable ?

quelqu'un sait m'aider ?
merci d'avance?

[rohstev]

Hello,

je suis pas expert en la matière, mais voici comment j'intercepte une erreur de connexion chez moi (c'est une base MySQL mais ça devrait être pareil avec InterBase)

Code :

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

1
2
3
4
5
6
7
8
9
 
try {
      DM->ADOConn->Open() ; //j'ouvre la connexion à la bdd
      }
catch (Exception &E)
        {
        AnsiString error = E.Message ;
        Application->MessageBox(error.c_str(), "Erreur d'accès aux données", MB_ICONWARNING | MB_OK);
        }

J'espère que ça pourras t'aider...

Steve

[Psykotik]

voila en fait je crée dynamiquelent TIBDatabase

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
18
19
20
21
22
 
    TIBDatabase * IBDB = new TIBDatabase(Owner);
    IBDB->Connected=false;
    IBDB->DatabaseName="192.168.1.2:C:\GRESIBD.GDB";
    IBDB->Params->Add("user_name=SYSDBA");
    IBDB->Params->Add("password=masterkey");
    IBDB->Params->Add("lc_ctype=ISO8859_1");
    IBDB->LoginPrompt=false;
    IBDB->SQLDialect=3;
    IBDB->DefaultTransaction=CD->IBTransaction1;
    IBDB->Name="IBDB";
    IBDB->CreateDatabase();
    IBDB->Close();
    try
      {
       IBDB->Open();
      }
    catch(EIBInterBaseError &E)
      {
       AnsiString error = E.IBErrorCode ;
       Application->MessageBox(error.c_str(), "Erreur d'accès aux données", MB_ICONWARNING | MB_OK);
      }

mais j'obtient toujours cette erreur

Le projet test.exe a prooqué une classe d'exception EIBInterBaseError avec le message 'Unable to complete network request to host "192.168.1.2".
Failed to establish a connection.
Aucune connexion n'a pu etre etablie car l'ordinateur cible l'a expressement refusée. Processus stoppé

[Psykotik]

Haa non c bon, ca marche , ...
Merci bcp Steve