Discussion :

[tomy29]

Bonjour,

J'ai une application Delphi6/Access2000. Et je rencontre cette fameuse erreur connue des utilisateurs d'Access :

Le nombre de verrous disponible pour le partage de fichiers est dépassé. Augmenter l'entrée du registre MaxLocksPerFile

Je n'ai pas trouve de véritable solution dans la programmation Delphi6 pour remédier a ce probleme.
Je ne voudrais pas avoir à demander à mes utilisateurs de modifier ce paramètre dans la base de registre, car ils ne sont pas administrateurs de leur poste.

Le probleme arrive quand l'application fait une succession de requêtes d'Update qui doivent être assez volumineuses. Elles sont du style :

Code :

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

1
2
3
4
update TCAP_CLIENT as C set C.B_VALIDE_EXPORT = False 
          where exists ( 
            select * from REJET_CLIENT as R 
            where R.ID_TIERS_LOCAL = C.ID_TIERS_LOCAL)

J'en ai toute une liste comme ca.

Savez-vous comment je devrais m'y prendre?

Merci

[Rayek]

Quel composant utilises tu ? Ado/BDE/ autres ?
Utilises tu un Tdatabase/TadoConnection/TxxxConnection ?

[tomy29]

Quel composant utilises tu ? Ado/BDE/ autres ?
Utilises tu un Tdatabase/TadoConnection/TxxxConnection ?

J'utilise ADOConnection
C'est codé comme suit :

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
with DMParametres.ADOConnection do
begin
BeginTrans;
Execute('update TCAP_CLIENT as C set C.B_VALIDE_EXPORT = False 
          where exists ( 
            select * from REJET_CLIENT as R 
            where R.ID_TIERS_LOCAL = C.ID_TIERS_LOCAL')
 
Execute('...');
Execute('...');
Execute('...');
...
...
...
CommitTrans;
end;

[Rayek]

Est ce que tes updates doivent être obligatoirement fait tous ensemble ?

Fait un test aussi sans le begintrans...commit.

[tomy29]

Est ce que tes updates doivent être obligatoirement fait tous ensemble ?

Fait un test aussi sans le begintrans...commit.

oui, il doivent etre faits de maniere sequentielle.
A quoi servent "begintrans" et "commit"? Sont-ils essentiels? (je viens de faire le test, ca passe sans probleme)

[Rayek]

Ca sert à gérer les transactions.
Par exemple si l'action que tu veux faire est lancée 2 fois en même temps, une des deux transactions (la première qui aura reçu l'ordre de la base de données) passera et tant qu'elle n'est pas terminé la 2em ne démarrera pas.

Donc à toi de voir s'il est bien utile d'en cadrer tes updates dans une transaction, car il se peut que vu le nombre d'update que tu fais, le pauvre ACCESS ait du mal à le gérer ^^

[tomy29]

Ca sert à gérer les transactions.
Par exemple si l'action que tu veux faire est lancée 2 fois en même temps, une des deux transactions (la première qui aura reçu l'ordre de la base de données) passera et tant qu'elle n'est pas terminé la 2em ne démarrera pas.

Donc à toi de voir s'il est bien utile d'en cadrer tes updates dans une transaction, car il se peut que vu le nombre d'update que tu fais, le pauvre ACCESS ait du mal à le gérer ^^

Ok, merci.
Dans la mesure où tous les update sont réalisés séquentiellement (donc pas d'update lancé 2 fois en même temps), il n'est peut-etre pas nécessaire de mettre begintrans et commit. Qu'en penses-tu?

[Rayek]

Si ton logiciel est le seul à avoir accès à la base de données et est le seul a faire cette action, alors, oui c'est inutile de gèrer une transaction.

[tomy29]

Si ton logiciel est le seul à avoir accès à la base de données et est le seul a faire cette action, alors, oui c'est inutile de gèrer une transaction.

C'est le cas.
Merci pour ta réponse.