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.
Si quelqu'un à une idée je suis preneur, merci d'avance de vos réponses
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
Partager