Discussion :

[Ludwik]

Bonjour à tous,

j'ai un probléme avec le Maxlockspertolock en effet j'ai pu lire les différents cas renontrés sur le forum il semblerai que cela soit nouveau:

A partir d'un fichier de 13000 lignes seulement et 20 colonnes, en mettant simultanement à jour un champ de case à cocher de chaque ligne en guise d'initialisation le maxlockstofile se manifeste. j'ai bien entendu augmenter sa valeur à 200000 mais sans succes, supprimer quelque colonnes idem, isoler le traitement afin que plusieurs taches ne s'execute pas simultanement idem


est ce quelqu'un aurait une idée


en vous remerciant par avance

[=JBO=]

Bonjour,

J'avais déjà vu ton précédent message concernant "MaxlocksPerfile", mais pas de temps pour répondre...

A partir d'un fichier de 13000 lignes seulement et 20 colonnes, en mettant simultanement à jour un champ de case à cocher de chaque ligne en guise d'initialisation le maxlockstofile se manifeste. j'ai bien entendu augmenter sa valeur à 200000 mais sans succes, supprimer quelque colonnes idem, isoler le traitement afin que plusieurs taches ne s'execute pas simultanement idem

Reprenons les différents points:

A partir d'un fichier de 13000 lignes seulement et 20 colonnes, en mettant simultanement à jour un champ de case à cocher de chaque ligne en guise d'initialisation le maxlockstofile se manifeste.

Si je comprends bien, il s'agit d'une requête SQL UPDATE. Tu confirmes ?

A partir d'un fichier de 13000 lignes seulement [...] j'ai bien entendu augmenter sa valeur à 200000 mais sans succes,

Donc, ça devrait passer.

Il faut que tu nous en montres plus: ton code VBA, ta requête SQL...

As-tu lu cette discussion dao mette à jour de grandes quantités de données et en particulier le message n° 6 de LedZepII ?
_

[Ludwik]

Bonjour JBO,


Merçi de m'aider, c'est la fonction suivante qui me permet de m'initialiser mes cases à cocher de ma base:


Dim MaBase As Database

Dim rst2 As Recordset
Set MaBase = CodeDb
Set rst2 = MaBase.OpenRecordset("Bd_LcbMef", dbOpenDynaset)

rst2.MoveFirst

Do Until rst2.EOF = True
rst2.Edit
rst2!Selection = -1
rst2.Update
rst2.MoveNext
Loop

[=JBO=]

Vu que tu mets à jour tout le jeu de données (Recordset), je trouverai normal que tu le verrouilles complètement avec l'option dbDenyWrite.

Code Ludwik :

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
 
Dim MaBase As Dao.Database
Dim rst2 As DAO.Recordset
 
Application.DBEngine.SetOption DAO.dbMaxLocksPerFile, 50000
 
Set MaBase = CurrentDb
Set rst2 = MaBase.OpenRecordset("Bd_LcbMef", dbOpenDynaset, dbDenyWrite)
 
rst2.MoveFirst
 
Do Until rst2.EOF = True 
    rst2.Edit
    rst2!Selection = -1
    rst2.Update
    rst2.MoveNext
Loop

Si "Bd_LcbMef" est une table, alors encore mieux, tu ouvres un Recordset de type "table" et tu la verrouilles complètement avec l'option dbDenyWrite. En théorie, ça ne pose qu'un seul verrou pour toute la table, donc pas de Pb de type MaxLocksPerFile.

Code Ludwik :

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

1
2
3
4
5
6
7
8
 
Dim MaBase As Dao.Database
Dim rst2 As DAO.Recordset
 
Set MaBase = CurrentDb
Set rst2 = MaBase.OpenRecordset("Bd_LcbMef", dbOpenTable, dbDenyWrite)
 
 ' etc.

Mais, une requête me semble aussi bien appropriée.

Code Ludwik :

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

1
2
3
4
5
6
7
 
Dim MaBase As Dao.Database
 
Application.DBEngine.SetOption DAO.dbMaxLocksPerFile, 50000
 
Set MaBase = CurrentDb
MaBase.Execute "UPDATE Bd_LcbMef SET Selection = -1", dbDenyWrite

[Ludwik]

Merci JBO en faisant le point voici les résultats:

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
La solution qui fonctionne:
 
Function AnnulFiltreSurEquipementLcb()
 
Dim rst2 As Recordset
 
Set MaBase = CodeDb
 
Set rst2 = MaBase.OpenRecordset("Bd_LcbMef", dbOpenDynaset)
DBEngine.SetOption dbMaxLocksPerFile, 200000
 
rst2.MoveFirst
Do Until rst2.EOF = True
rst2.Edit
rst2!Selection = -1
rst2.Update
rst2.MoveNext
Loop
 
End Function