Discussion :

[Balbo]

Bonjour,

j'ai un problème de performance sur une extraction de données d'une base Oracle vers un classeur Excel. Le problème reside sur le nombre de colonne que contient le résultat de la requete (25 colonnes). ci joint le code qui parcours les enregistrement et qui les inserent dans chaque céllule.

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
 
'**************** Déclaration base de donnée
Private OraSession As Object
Private OraDatabase As Object
Private theDynaset As Object
... connexion a la base de données ....
'*******
 
If theDynaset.RecordCount > 0 Then
 
    'On se place sur le premier enregistrement
    theDynaset.MoveFirst
    Dim i As Integer
    i = 1
 
    'on boucle pour retourner tous les enregistrements ( à remplacer par EOF car parcours table avec count)
     While Not Me.eof
    'On insère les résultats dans des tableaux excel
        For j = 1 To theDynaset.Fields.Count
        With Worksheets(resultatFeuille)
            .Cells(i + 8, j) = theDynaset.Fields(j - 1).Value
        End With
        Next j
        theDynaset.MoveNext
        i = i + 1
    Wend
 
End If

Si quelqu'un à une idée je suis preneur, merci d'avance de vos réponses

[Invité]

Bonjour

J'imagine que theDynaset est une requête, si c'est le cas test avec la méthode CopyFromRecordset de l'objet Range en te positionnant sur la première cellule que tu veux remplir.

Starec

[Bevan]

Salut,
Trois pistes :
1. Pourquoi ne pas utiliser une liaison de type Données, Données externes ?
2. Regarde CopyFromRecordset
3. S'il y a des formules dans ton classeur, encadre ton code par

Code :

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

1
2
3
application.calculation = xlmanual
' ton code ici
application.calculation = xlautonatic

[Balbo]

J'avais penser a la copy par cellule mais donc je recupere ligne par ligne et je les colle grace a la methode de copy dois je préciser un delimiteur ? Est ce fait automatiquement ? si vous auriez un petit bout de code ca serait hyper sympas !!

Sinon les coups du manual et automatique j'ai pas trop compris l'intérêt, il faut que je mette juste mes traitements (insertion des enregistrements) à lintérieurs ?

merci pour vos réponses aussi rapide je suis carément bluffé !!

[Invité]

Re

La méthode CopyFromRecordset (voir l'aide), te permets de redistribuer tes enregistrement de ton recordset dans un feuille Excel, à partir de la cellule de départ que tu lui donnes.

Essayes et tu verras le résultat.

Starec

[Bevan]

Re,

Sinon les coups du manual et automatique j'ai pas trop compris l'intérêt,

Dès que tu affectes une cellule le recalcul démarre. Dans un classeur un peu lourd, c'est en général ça qui pénalise le plus les grosses boucles. En passant en manuel, tu n'auras qu'un recalcul en fin...

il faut que je mette juste mes traitements (insertion des enregistrements) à lintérieurs ?

Toute la boucle ! Sinon tu auras un recalcul à chaque fois pareil !
Pense à traiter les erreurs pour être sûr de repasser en auto à la fin en cas de plantage...

[Balbo]

Donc ca donnerais ca ?

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
35
36
37
38
39
40
41
42
43
application.calculation = xlmanual
Set theDynaset = OraDatabase.CreateDynaset(sReq, 0&)
GoTo Fin
Error:
    
    If Err.Number = 91 Then
        DB_Connect
        GoTo req
    Else
        MsgBox Err.Description & " " & Err.Number
    End If
    execSQL = Err.Number * -1
    GoTo Finfin
    'en fonction de l'erreur, ouvrir la base de donnée

Fin:
 If theDynaset.RecordCount > 0 Then

    'On se place sur le premier enregistrement
    theDynaset.MoveFirst
    Dim i As Integer
    i = 1
 
application.calculation = xlmanual  
    'on boucle pour retourner tous les enregistrements

     While Not Me.eof
    'On insère les résultats dans des tableaux excel
        For j = 1 To theDynaset.Fields.Count
        With Worksheets(resultatFeuille)
            .Cells(i + 8, j) = theDynaset.Fields(j - 1).Value
        End With
        Next j
        theDynaset.MoveNext
        i = i + 1
    Wend
application.calculation = xlautonatic

nd If
Finfin:

End Function

Merci

[Balbo]

Pour le CopyFromRecordSet je pense ne pas utiliser le bon driver pour la connexion a la base de données (ci joint le code ci dessous) puis je utiliser le recordSet avec cette methode de connexion à la base de données ?
Et j ai compris en faite pour le calcul manuel et auto (merci pour l astuce au faite) mais il n'y as pas de formule sur les cellules en questions

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
 
 
'****************** Connexion a la base de donnees
Sub DB_Connect()
Dim sConnect As String
 
On Error GoTo Error
sConnect = sUser & "/" & sPsw
sBase = strConnect
 
' Connexion à la base
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase(sBase, sConnect, 0&)
connectBD = True
' Définition de la requête
GoTo Fin
Error:
    MsgBox Err.Description
    connectBD = False
    'en fonction d  e l'erreur, (ouverture déjà effectué) faire un resume next
Fin:
 
'Donne des informations sur la base de donnee sur laquelle on travail
 
End Sub

[Balbo]

Problème résolu j'ai utiliser la méthode CopyFromRecordSet en utiliser le driver de connexion de BD ADO et now plus de problème de performance.
Merci a tous