Discussion :

[frantzgac]

j'ai réalisé une petite appli (Delphi 5) qui execute des insert et des delete dans une base de données (requetes placees dans des IBDataSet) sql afin de mesurer le comportement à long terme avec plusieurs milliers de transactions.

Je fais tourner sur une machine avec XPPro et FireBird 1.5.2 et à plusieurs reprises le programme s'arrête tout seul au bout d'environ 6000 insert/delete sans message d'erreur ni plantage. Comme les transactions sont placées dans l'evenement OnInterval d'un timer, il n'y a aucune raison que le prog s'arrête tout seul.

Je fais tourner sur Win2K avec Interbase 6.0.2, le programme ne s'arrete pas.

Il y a donc 2 causes possibles : le moteur de BD ou l'OS. Votre avis ?

[TMuet]

Votre avis ?

Et on gagne quoi ?

Sérieusement, si c'est le serveur de la base de données, le log devrait t'en informer.

[frantzgac]

Justement le log reste coi. J'ai ajouté un fichier ini qui reçoit des infos au fur et à mesure, je vous tiens au courant puisque ça vous intéresse

[frantzgac]

En fait le programme s'arrete aussi sous Win 2K avec IB 6.0.2 au bout de presque 3 heures et presque 100000 transactions. Aucune trace dans le log.
A suivre...

[jean-jacques varvenne]

ta boucle en delphi??? comment fais-tu? c'est possible de voir le code compris entres le "while" et le "end"

je pense que tu recrée une nouvelle instance de connexion ou du composant query à chaque tour et à défaut de mémoire, il arrive un moment ou il n'est plus possible de créer une nouvelle instance de quoi que ce soit.

[frantzgac]

Code delphi :

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
23
24
25
26
27
28
29
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if not IBTable1.active then exit;
i:=random(range);
with ibdataset1 do begin
     Selectsql.clear;
     selectsql.Add(format('select * from %s where ENTIER1=%d',[IBTable1.TableName,i]));
     Open;
     last;
     if recordcount>0 then begin
        close;
        selectsql.clear;
        selectsql.Add(format('delete from %s where ENTIER1=%d',[IBTable1.TableName,i]));
        open;
        close;
        inc(DeleteCount);
        end
     else begin
         close;
         selectsql.clear;
         selectsql.Add(format('insert into %s (ENTIER1, ENTIER2) values (%d,%d)',[IBTable1.TableName,i,random(range)]));
         open;
         close;
         inc(insertcount);
         end;
     end;
Synchronize;
end;

En fait ce n'est pas un while mais l'évenement OnTimer qui est exploité.
dans la procédure Synchronize je fais un select * from table suivi de last avec le même ibdataset pour récupérer le recordcount. Je sais j'aurais pu faire select count(*) mais comme c'est un prog de test le temps qu'il passe n'a pas d'importance. (le range du random est 1000, la table tourne à 500 enregistrements environ).

Précision sur les derniers tests

Test1 43552 insertions et 43550 suppressions durée 2.25
Test2 39414 insertions et 39438 suppressions durée 2:12
Test3 43645 insertions et 43668 suppressions durée 2:26

Je remarque qu'on frole toujours les 100000 requetes... Serait-ce une limite paramètrable ?

[frantzgac]

J'ajoute que je surveille la mémoire dispo avec le gestionnaire de tâches et qu'elle ne bouge pas. Donc pas d'allocation de ressources non restituées.

[qi130]

Euh, en marge du pb (?):

Pour des requètes de modification de la base, c'est pas ExecSQL qu'il faut appeler ?

Tu ne commites jamais ?

[hgourvest]

Ne pas fermer les transactions provoque le versionning des enregistrements, ce qui t'arrive me semble normal, puisque les enregistrements sont probablement dupliqués par interbase à l'infini.

[frantzgac]

Il y a du nouveau. J'ai ajouté un open/close périodique sur un composant IBTable associé à la même table et là le problème disparait.

Il est probable en effet qu'il y a de la journalisation excessive, mais anormal que cela se traduise par un arrêt du programme sans commentaire non ?

Le fait d'utiliser un TIBQuery et ExecSQL plutot qu'un IBDataset changerait il quelque chose ? Je verrais si j'ai le temps de tester ...

[hgourvest]

Il y a du nouveau. J'ai ajouté un open/close périodique sur un composant IBTable associé à la même table et là le problème disparait.

Mon intuition me dit que tu as deux transactions, une pour le TIBTable et l'autre pour le Dataset. On peut voir le dfm en + ?

Il est probable en effet qu'il y a de la journalisation excessive, mais anormal que cela se traduise par un arrêt du programme sans commentaire non ?

Ca n'est pas normal en effet, je pense qu'un mail sur une liste de diffusion Firebird serait utile.

Le fait d'utiliser un TIBQuery et ExecSQL plutot qu'un IBDataset changerait il quelque chose ? Je verrais si j'ai le temps de tester ...

Non, ca ne changera rien dans ton cas.

[frantzgac]

fin du feuilleton :

j'ai remplacé le IBDataset par un TIBQuery avec ExecSQL, j'ai retiré le open close avec IBTable, et le problème disparait.

Cela semble indiquer que le traitement des requetes par TIBDataset et TIbQuery n'est pas le même. Je dirais que TIBQuery clos la transaction tandis que TIBDataser la laisse durer ?

Pour ceux que ça interesse je place tout le paquet ici

http://frantzgacogne.free.fr/ftp/testfirebird.zip

pour faire réapparaitre le pb, remplacer TIBQuery par TIBDataset et SQL par SelectSQL