Discussion :

[djatto]

Bonjour à tous!
J'ai lu cette discussion.
J'ai le même problème de temps lorsque je veux transférer des données vers une base. Je n'arrive pas à utiliser begintrans et commitrans.
En fait, je les ai utilisés dans le code. Ça s'exécute normalement mais je ne vois pas d'amélioration en ce qui concerne le temps.
voici mon code:

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
27
28
29
30
31
32
33
34
    Fice = fichier
    Open Fice For Input As #1
    ' Ouverture de la table
    Set rc = dbase.OpenRecordset("client1") ', dbaseopentable) 
    td = 0
 
    Do While Not EOF(1)
        Line Input #1, LignE
        TableW() = Split(LignE, "|")
        rc.AddNew
 
        On Error Resume Next
 
        dbase.Execute " BeginTrans " 
        For i = 0 To UBound(TableW)
            rc.Fields(i).Value = TableW(i) ' Création d'une ligne
            td = i + 1
            If td Mod 200 = 0 Then
                dbase.Execute " CommiTrans"
            End If 
        Next i
 
        rc.Update
 
    Loop
 
    MsgBox (" remplissage de la table terminée!"), vbExclamation, "Fin de l'importation"
 
    Close #1
    rc.Close
    Set rc = Nothing
    dbase.Close
 
End Sub

[Delbeke]

Inutile de t'énerver

Pourquoi tu fais un comittrans en plein milieu , et pas à la fin ?

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
dbase.Execute " BeginTrans " 
 
Do While Not EOF(1)
  Line Input #1, LignE
  TableW() = Split(LignE, "|")
  rc.AddNew
 
  On Error Resume Next
  For i = 0 To UBound(TableW)
     rc.Fields(i).Value = TableW(i) ' Création d'une ligne
  Next i
 
  rc.Update
 
Loop
dbase.Execute " CommiTrans"

[artscoop]

Effectivement, les performances et la sécurité des transactions a un intérêt que si on effectue :
- un BeginTrans au début d'une suite d'opérations
- un CommiTrans à la fin du groupe d'opérations qui doit réussir ou foirer.

C'est le concept même de la transaction (et limiter les problèmes quand une suite de requêtes foire en plein milieu et qu'on aurait dû s'y attendre...)

[djatto]

MERCI, pour la contribution.
je vais tester et si ca marche mieux je viendrai mettre le code ici pour aider ceux qui auront le même pb que moi.
merci et bne jnée!

[zazaraignée]

Pour avoir ajouté les indentations dans ton code (ce qui le rends plus lisible), j'ai remarqué quelques anomalies et/ou imprudences...

1. Ne jamais prendre pour acquis que le numéro de fichier #1 est disponible. Donc à la place de ceci:

Code :

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

Open Fice For Input As #1

il vaut mieux utiliser la fonction FreeFile comme cela:

Code :

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

1
2
3
4
5
6
7
Dim numFichier As Integer
[...]
numFichier = FreeFile
OpenFice For Input As #numFichier
[...]
Do While Not EOF(numFichier)
  Line Input #numfichier, LignE

2. Je crois bien que la seconde parenthèse de ton MsgBox est au mauvais endroit... Et de toutes façons, si tu n'as pas l'intention de vérifier la valeur du bouton cliqué, il n'est pas nécessaire de mettre les parenthèses. Il se peut que VB s'en plaigne lors de l'exécution... Donc, à la place de ceci:

Code :

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

MsgBox (" remplissage de la table terminée!"), vbExclamation, "Fin de l'importation"

procéder comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim reponse As Integer
[...]
reponse = MsgBox("Remplissage de la table terminé!" & vbCrLf & _
                 "Voulez-vous compléter la transaction?"), _
                 vbExclamation + vbYesNo, "Fin de l'importation")
If reponse = vbYes Then
    ' commit
  Else
    ' cancel
End If

ou tout simplement comme ça:

Code :

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

MsgBox "Remplissage de la table terminé!"