Discussion :

[Delphi-ne]

j'ai une application Delphi qui travaille avec une base MySQL.
La connexion s'effectue via ADODB.

En local tout fonctionne parfaitement.
Si je travaille su la base située sur le serveur Internet j'obtiens de façon aléatoire le message Server Has gone away

La contrainte que m'impose l'hébergeur est d'ouvrir ma connexion à chaque requete et de refermer ensuite.
Voici mon code avant de passer la requete

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   // par précaution si la laison est restée ouverte
         While DM_ADOConnection.Connected Do Begin
         DM_ADOConnection.Close;
         Application.ProcessMessages;
         Sleep(3);
   End;
   DM_ADOConnection.Open;
   While Not DM_ADOConnection.Connected Do Begin
         Application.ProcessMessages;
         Sleep(3);
   End;

une fois l'information récupérée je fais

Code :

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

         DM_ADOConnection.Close;

De ce que j'ai lu sur les forum ce message est lié soit à la taille des informations rapportées par la requete ou au fait que je fais une transactions SQL sur une connexion fermée.
Vu que je ramène à chaque fois une seule ligne d'information avec une dizaine de champs je ne pense pas que ce soit le premier cas.

Je voudrais savoir si quelqu'un a déjà rencontré ce problème

[Cl@udius]

Salut

Je ne répondrais directement à ta question, je connais très peu MySQL.

Mais ceci me chiffonne: le Open ne devrait-il pas être dans ta boucle?

Code :

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

1
2
3
4
5
6
 
   While Not DM_ADOConnection.Connected Do Begin
         DM_ADOConnection.Open;   // plutôt ici !!!?
         Application.ProcessMessages;
         Sleep(3);
   End;

@+ Claudius

[Harry]

Pourquoi avoir fait des 'while' et pas juste un simple if ? Surtout que ton sleep(3) c'est court (3 milisecondes).

Sinon ton message à lieu sur quelle ligne ?

et +1 pour la remarque de Cl@udius

[Delphi-ne]

J'ai fait un While pour pouvoir, le cas échéant, recommencer
Par contre avoir mis le Open hors de la boucle je suis un âne. J'ai corrigé.

Mon problème subsiste. Mes requêtes sont très courtes (elles portent sur une seule table, le where porte sur une clé d'index) et elles ne ramènent moins de trente lignes, voire une seule dans le cas des modifications.
L'explication données par l'hébergeur (tomber en timeout) me semble erronnée. Le message intervient très vite.