Probleme de performance extraction données de BD Oracle vers Excel

Version imprimable

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:

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

28/05/2008, 10h35
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
28/05/2008, 10h37
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:

1 2 3 application.calculation = xlmanual ' ton code ici application.calculation = xlautonatic
28/05/2008, 10h52
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é !!
28/05/2008, 10h54
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
28/05/2008, 10h58
Bevan

Re,

Citation:

Envoyé par Balbo

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...

Citation:

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...

Donc ca donnerais ca ?

Code:

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 :yaisse2:

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:

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

28/05/2008, 13h53
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