Discussion :

[Invité]

Bonjour

Dans un fichier excel, j'ai une feuille avec une requête crée à partir de microsoft query qui va se connecter à une vue dans une base oracle.

J'utilise la fonction suivante

Code :

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

1
2
3
4
5
 
Dim wks As Excel.Worksheet
    Set wks = BaseDorsal.Worksheets("Extract_Octale")
    wks.Select
    wks.QueryTables(1).Refresh BackgroundQuery:=False

qui marche dans Excel

Je veuw maintenant piloter ceci par Access à l'aide d'automation.

J'ai le message suivant : erreur 7 mémoire insuffisante

Quelqu'un a-t-il une idée

Starec

[choucks]

Bonjour,

Pour bien comprendre le problème, c'est bien à l'exécution de la requête et non au démarrage d'ACCESS que cette erreur apparaît ?

[choucks]

Parce que si c'est à l'exécution c'est que le système n'alloue pas assez de mémoire à la transaction. C'est le paramètre MaxLocksPerFile du Registre de Windows qui est trop bas.

Pour résoudre le problème il faut augmenter le paramètre MaxLocksPerFile du Registre de Windows.

[Invité]

Bonjour

C'est bien au lancement de la requête

Malheureusement je ne peux changer MaxLocksPerFile, c'est sur un serveur Citrix, avec Excel 2003 version serveur.

D'autres idées ?

Starec

[choucks]

Malheureusement je ne peux changer MaxLocksPerFile, c'est sur un serveur Citrix, avec Excel 2003 version serveur.

Et de façon temporaire ?

http://support.microsoft.com/?scid=k...86153&x=8&y=11

Method 2: Using SetOption to change MaxLocksPerFile Temporarily
NOTE: The sample code in this article uses Microsoft Data Access Objects. For this code to run properly, you must reference the Microsoft DAO 3.6 Object Library. To do so, click References on the Tools menu in the Visual Basic Editor, and make sure that the Microsoft DAO 3.6 Object Library check box is selected.

Note Changes made to the MaxLocksPerFile setting by using the SetOption method will only be available through the current session of Data Access Objects (DAO). Queries that are run through the Microsoft Access user interface will still use the settings in the registry.

The following code sample sets MaxLocksPerFile to 200,000 before executing an update operation inside a transaction:

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
23
24
25
26
Sub LargeUpdate()
   On Error GoTo LargeUpdate_Error
   Dim db As DAO.Database, ws As DAO.Workspace
 
   ' Set MaxLocksPerFile.
   DBEngine.SetOption dbMaxLocksPerFile, 200000
 
   Set db = CurrentDb
   Set ws = Workspaces(0)
 
   ' Perform the update.
   ws.BeginTrans
   db.Execute "UPDATE BigTable SET Field1 = 'Updated Field'", _
         dbFailOnError
 
   ws.CommitTrans
 
   db.Close
   MsgBox "Done!"
   Exit Sub
 
LargeUpdate_Error:
   MsgBox Err & " " & Error
   ws.Rollback
   MsgBox "Operation Failed - Update Canceled"
   End Sub

Je pense qu'il doit y avoir un version française de cette page

[random]

essaye outil options avancé et décoche ouvrir avec enregistrement verrouillé

[Invité]

Re

Désolé Random, t'as solution ne fonctionne pas.

Désolé chouks, ta solution fonctionne sur une table Access, hors c'est une feuille Excel que je mets à jour par l'intermédiaire d'Access par automation.

Starec