IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA-E] Temps d'execution de requetes SQL tres long


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Juin 2003
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 93
    Points : 47
    Points
    47
    Par défaut [VBA-E] Temps d'execution de requetes SQL tres long
    Bonjour,

    Voila j'ai realise un rapport excel executant un certain nombre de requete SQL (via ADO) sur une base SQL Server 2000. Cela fonctionne correctement mais le temps d'execution de la premiere requete est tres tres long.

    Voici une partie de mon code, je vous epargne le detail des requete:

    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
     
     
    Set Cn = New ADODB.Connection
        Cn.Open ConnStr
     
        'Execute 1st query
     
        rs.Open SQLStr1, Cn, adOpenStatic
        ThisWorkbook.Sheets("DCOW").Rows.ClearContents
        With ThisWorkbook.Sheets("DCOW")
            With .Cells(1, 1)
            .CopyFromRecordset rs
            End With
        End With
        rs.Close
     
        'Execute 2nd query
     
        rs.Open SQLStr2, Cn, adOpenStatic
        ThisWorkbook.Sheets("DCOW_TOT").Rows.ClearContents
        With ThisWorkbook.Sheets("DCOW_TOT")
            With .Cells(1, 1)
            .CopyFromRecordset rs
            End With
        End With
        rs.Close
     
          'Execute 3nd query
     
        rs.Open SQLStr3, Cn, adOpenStatic
        ThisWorkbook.Sheets("DCOW_OTBP").Rows.ClearContents
        With ThisWorkbook.Sheets("DCOW_OTBP")
            With .Cells(1, 1)
            .CopyFromRecordset rs
            End With
        End With
     
       ' Tidy up
        rs.Close
        Set rs = Nothing
        Cn.Close
        Set Cn = Nothing
    Excel met jusqu'a 5 minutes voir des fois s'arrete (Timeout) pour executer la permiere requete puis ensuite l'enchainement des autres requetes se fait rapidement. Mes 3 requetes sont exactement les memes a une condition pres. Les 3 s'executent a la meme vitesse sous SQL server query analyser. Moins de 20 secondes.

    Aussi les requetes sont basees sur la selection d'un champs dans une liste deroulante. Si je lance 2 fois de suite ma macro pour le meme champ de la liste deroulante, les requetes s'execute tres rapidement.

    En fait c'est a chaque fois que je selection un nouveau champ et que j'execute le process pour la premiere fois, c'est tres tres long.


    Est-ce que ca peut etre lie a ADO? Ou ma facon de l'utiliser?

  2. #2
    Expert éminent
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    Septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2002
    Messages : 3 673
    Points : 8 524
    Points
    8 524
    Par défaut
    De quel coté est le curseur (client ou serveur ) ?
    Vous vous posez une question, la réponse est peut-être ici :
    Toutes les FAQs VB
    Les Cours et Tutoriels VB6/VBScript
    Les Sources VB6


    Je ne réponds pas aux questions techniques par MP. Utilisez les forums. Merci de votre compréhension

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Juin 2003
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 93
    Points : 47
    Points
    47
    Par défaut
    Qu'est ce que vous entendez par curseur?

    Pour l'instant je test encore sur ma machine de dev qui contient l'application + SQL Server.

    En production la base de donnees sera sur un serveur different, j'ai peur pour les temps de reponse

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    Mars 2004
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2004
    Messages : 66
    Points : 56
    Points
    56
    Par défaut
    slt
    la solution pour ton probleme est de créer un procedure stocké sur SQL Server.
    et franchement tu verra la difference.
    bon courage

Discussions similaires

  1. [VB6]exécution des requétes sql
    Par nabil dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 02/06/2006, 07h24
  2. Comment executer une requete sql delete dans une jsp ?
    Par DarkWark dans le forum Servlets/JSP
    Réponses: 3
    Dernier message: 24/05/2006, 16h59
  3. Réponses: 3
    Dernier message: 15/05/2006, 17h29
  4. [VBA-E]temps d execution trop lent
    Par chmod777 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 08/03/2006, 15h10
  5. Pb d'execution de requete sql
    Par Crazynoss dans le forum ASP
    Réponses: 2
    Dernier message: 11/05/2005, 10h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo