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

VBScript Discussion :

Attendre la fin d'exécution d'une procédure?


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2005
    Messages
    251
    Détails du profil
    Informations personnelles :
    Âge : 52
    Localisation : France

    Informations forums :
    Inscription : Mars 2005
    Messages : 251
    Par défaut Attendre la fin d'exécution d'une procédure?
    Bonjour,

    Je reprends un vieux code...

    Y a-t-il un moyen de faire attendre la fin d'exécution d'une procédure ?

    Dans l'idée, afficher une image gif pour faire patienter l'utilisateur.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MyConn.execute " EXEC dbo.trMyProcedure "&TRUC_N_ID
    puis deux minutes après afficher un message.

    Michel

  2. #2
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut

    Moi aussi j'ai repris mon ancien code de SplashScreen et je l'ai modifié pour vous
    Donc, en résumé ce code exécute un traceroute vers le site developpez.net en arrière plan tout en lançant un SplashScreen d'attente, quand la procédure se termine, il se ferme en affichant un popup en mentionnant la durée d’exécution de la procédure. Donc, inspirez-vous de ce 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
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    Option Explicit
    Dim oExec,MaTraceRoute,Titre,StartTime,DurationTime,MonSite
    Titre = "Exemple de SplashScreen © Hackoo © 2014"
    MonSite = "www.developpez.net"
    Dim shell : Set shell = CreateObject("WScript.Shell")
    Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
    Dim TempFolder : Set tempFolder = fso.GetSpecialFolder(2)
    Dim SplashName : SplashName = "Splash.hta"
    Dim TempFile : Set TempFile = TempFolder.CreateTextFile(SplashName)
    MaTraceRoute = TempFolder & "\MaTraceroute.txt"
    If fso.FileExists(MaTraceRoute) Then
        fso.DeleteFile MaTraceRoute
    End if
    '**************************************************************************************************
    Call CreateSplashScreen()
    Call LancerSplashScreen()
    StartTime = Timer'Début du Compteur Timer
    Call ProgramPrincipal()
    DurationTime = FormatNumber(Timer - StartTime, 0) & " seconds."'La durée de l'exécution du script ou de la procédure
    Call FermerSplashScreen()
    shell.popup "La TraceRoute vers "& DblQuote(MonSite) &" est terminée en "& vbcr & DurationTime,"5",Titre,64
    shell.run MaTraceRoute
    '**************************************************************************************************
    Sub CreateSplashScreen()
        tempFile.Writeline "<html>"
        tempFile.Writeline "<head>"
        tempFile.Writeline "<bgsound src=""http://hackoo.alwaysdata.net/pirates.mp3"" loop=""infinite"">"
        tempFile.Writeline "<title>Splash Screen</title>"
        tempFile.Writeline "<HTA:APPLICATION ID=""Splash Screen"""
        tempFile.Writeline "APPLICATIONNAME=""Splash Screen"""
        tempFile.Writeline "BORDER=""none"""
        tempFile.Writeline "CAPTION=""no"""
        tempFile.Writeline "SHOWINTASKBAR=""no"""
        tempFile.Writeline "SINGLEINSTANCE=""yes"""
        tempFile.Writeline "SYSMENU=""no"""
        tempFile.Writeline "SCROLL=""no"""
        tempFile.Writeline "WINDOWSTATE=""normal"">"
        tempFile.Writeline "<link rel=""stylesheet"" media=""screen"" type=""text/css"" title=""design_encoder"" href=""http://hackoo.alwaysdata.net/design_encoder.css""/>"
        tempFile.Writeline "</head>"
        tempFile.Writeline"<SCRIPT LANGUAGE=""VBScript"">"
        tempFile.Writeline "Sub CenterWindow(x,y)"         
        tempFile.Writeline         "window.resizeTo x, y"      
        tempFile.Writeline         "iLeft = window.screen.availWidth/2 - x/2"       
        tempFile.Writeline         "itop = window.screen.availHeight/2 - y/2"     
        tempFile.Writeline       "window.moveTo ileft, itop"       
        tempFile.Writeline "End Sub"    
        tempFile.Writeline "Sub Window_OnLoad"
        tempFile.Writeline      "CenterWindow 400,300"
        tempFile.Writeline "End Sub"
        tempFile.Writeline "Sub ShowSplash"
        tempFile.Writeline     "Splash.Style.Display = ""None"""
        tempFile.Writeline     "Window.Close()"
        tempFile.Writeline     "End Sub"
        tempFile.Writeline "</SCRIPT>"
        tempFile.Writeline "<body bgcolor=""black"">"
        tempFile.Writeline "<DIV id=""Splash"">"
        tempFile.Writeline "<CENTER>"
        tempFile.Writeline "<p>"
        tempFile.Writeline "<img src=""http://nsm05.casimages.com/img/2011/07/23//1107230741401311048506419.gif""/>"
        tempFile.Writeline "<center onselectstart=""return false"" ondragstart=""return false"" oncontextmenu=""return false"">"
        tempFile.Writeline "<marquee DIRECTION=""UP"" HEIGHT=""200"" WIDTH=""350"" SCROLLAMOUNT=""3"" onselectstart=""return false"">"
        tempFile.Writeline "<center><font face=""Comic sans MS"" color=RED size=10><b><i> Exemple de SplashScreen </i></b></font></center><br><br>"
        tempFile.Writeline "<center><font face=""Comic sans MS"" color=RED>Exemple de code pour attendre un peu jusqu'à la fin de la procèdure</b></font></center>"
        tempFile.Writeline "<br><center><font face=""Comic sans MS"" color=RED>Exemple de code by © Hackoo 2014<br><br></font></center><center><img src=""http://nsm05.casimages.com/img/2011/07/23//1107230741401311048506419.gif""></center></marquee>"
        tempFile.Writeline "</center>" 
        tempFile.Writeline "</p>"
        tempFile.Writeline "</CENTER>"
        tempFile.Writeline "</DIV>"
        tempFile.Writeline "</body>"
        tempFile.Writeline "</html>" 
        tempFile.Writeline "tempFile.Close"
    End Sub
    '**************************************************************************************************
    Function Executer(StrCmd,Console)
        Dim ws,MyCmd,Resultat
        Set ws = CreateObject("wscript.Shell")
    'La valeur 0 pour cacher la console MS-DOS
        If Console = 0 Then
            MyCmd = "CMD /C " & StrCmd & " "
            Resultat = ws.run(MyCmd,Console,True)
            If Resultat = 0 Then
    'MsgBox "Success"
            Else
                MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
            End If
        End If
    'La valeur 1 pour montrer la console MS-DOS
        If Console = 1 Then
            MyCmd = "CMD /K " & StrCmd & " "
            Resultat = ws.run(MyCmd,Console,False)
            If Resultat = 0 Then
    'MsgBox "Success"
            Else
                MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
            End If
        End If
        Executer = Resultat
    End Function
    '*********************************************************************************************************
    Sub ProgramPrincipal()
        Call Executer("Tracert " & MonSite & " >> MyTemp.txt & cmd /U /C Type MyTemp.txt >" & MaTraceRoute & " & Del MyTemp.txt",0)
    End Sub
    '********************************************************************************************************
    Sub LancerSplashScreen()
        Set oExec = shell.Exec("mshta.exe " & TempFolder & "\" & SplashName)
    End Sub
    '*********************************************************************************************************
    Sub FermerSplashScreen()
        oExec.Terminate
    End Sub
    '*********************************************************************************************************
    Function DblQuote(Str)
        DblQuote = Chr(34) & Str & Chr(34)
    End Function
    '**********************************************************************************************************

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2005
    Messages
    251
    Détails du profil
    Informations personnelles :
    Âge : 52
    Localisation : France

    Informations forums :
    Inscription : Mars 2005
    Messages : 251
    Par défaut
    Merci beaucoup Hackoofr,

    Me suis rendu compte que j'ai pausé une bien bête question.
    En échangeant deux lignes et adaptant j'obtiens le résultat que je voulais, ci-dessous une partie de mon code, l'idée est d'afficher quelques infos et un gif animé puis une fois la procédure terminer mettre à jour le div contenant le gif animé :

    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
     
    <fieldset>
    	<legend class="titre">Transfert des fichiers au routeur</legend>
    	<div style="margin-left:40px; width:400px;">
    	<h4>Ordre du transfert communiqu&eacute;</h4>
    	Les fichiers :<br />
    	&nbsp;-&nbsp;<%=fichierFr%><br />
    	&nbsp;-&nbsp;<%=fichierEtr%><br />
    		<div id="endiv">seront d&eacute;pos&eacute;s sous le r&eacute;pertoire "<%=Left(fichierFr,8)%>" d'ici quelques secondes...<br />
    			<div style="text-align:center;">
    				<img src="/images/outils/spinner.gif" title="Patience" /><br />
    			</div>
    		</div>
    	</div>
    </fieldset>
    <%
    response.flush
     
    MyConn.execute " EXEC dbo.trMyProcedure "&TRUC_N_ID
     
    response.write ("<script>$('#endiv').html('sont d&eacute;pos&eacute;s sous le r&eacute;pertoire """&Left(fichierFr,8)&""".<br /><br />')</script>")

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Appel d'une méthode Java après fin d'exécution d'une procédure stockée
    Par ishika83 dans le forum Persistance des données
    Réponses: 2
    Dernier message: 18/08/2014, 15h40
  2. Réponses: 4
    Dernier message: 02/11/2009, 16h22
  3. Réponses: 8
    Dernier message: 15/09/2009, 18h03
  4. Réponses: 15
    Dernier message: 08/07/2004, 08h20
  5. Fin de programme dans une procédure
    Par Sinclair dans le forum Langage
    Réponses: 13
    Dernier message: 29/11/2002, 22h30

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