ASP: faire un lien vers un .vbs avec message de chargement pendant l'éxécution d

Question

Bonjour a tous,

Voila, j'ai d&#233;velopp&#233; un script vbs qui lit les fichiers .sql d'un r&#233;pertoire donn&#233; et qui &#233;x&#233;cute les requ&#234;tes lues pour en ressortir un fichier r&#233;sultat .csv.
Ce script fonctionne tr&#232;s bien et est &#233;x&#233;cut&#233; quotidiennement (env 2 min pour 19 requ&#234;tes soit environ 70mo de donn&#233;es).
Afin de satisfaire mes utilisateurs, j'aurai voulu rendre accessible l'ex&#233;cution de ce script via une page asp en intranet.
D&#233;butant en asp, j'aurai besoin d'aide et de conseils...

J'ai commenc&#233; par faire une page avec un bouton qui appel directement le script vbs, cela fonctionne, mais 

1. comment faire pour afficher un message "chargement en cours..." pour faire patienter l'utilisateur et pour qu'il sache ou &#231;a en est ?
2. j'aimerai en fait que sur la page asp, il y est un "aper&#231;u" du chargement, comme par exemple :
         Traitement en cours...
         Requ&#234;te n&#176; x sur y en cours d'extraction (z % effectu&#233;)
         w % du chargement total effectu&#233; 
   avec x la requ&#234;te en cours d'&#233;x&#233;cution, y le nombre total de requ&#234;te, z le pourcentage sur le recordcount de la requete.
   toutes ces variables sont bien entendu facilement obtenues dans le script.

Mon r&#233;el probl&#232;me est donc de faire int&#233;ragir le script avec la page asp, pour avoir un aper&#231;u du chargement en temps r&#233;el.
D'avance merci &#224; tous,
Steff

boreuxc · Answer

Base MS-ACCESS ?
--Ced--

larfanou · Answer

non, SQL SERVER...

boreuxc · Answer

le probl&#232;me de la progression (via recordcount) c'est que il n'y a pas de COMMIT avant la fin de ton traitement, donc pas facile &#224; savoir ou on en est... L'di&#233;al serait, je pense, de cr&#233;er un fichier texte, et de le garnir en avan&#231;ant.

Un pop up en avant plan irait lire ce fichier pour afficher la progression...

C'&#233;tait juste mon avis...
--Ced--

larfanou · Answer

Qu'entends tu par COMMIT ?
Je connais le nbre total d'enregistrements, donc facile d'en avoir l'avancement, non ?
Le r&#233;sultat de la requ&#234;te est ins&#233;r&#233; dans un fichier csv, il est donc garni en avan&#231;ant...
Je ne voudrais pas trop avoir de popup, je pr&#233;f&#232;rerais que le tout soit affich&#233; dans la page asp et raffraichit pour avoir un suivi du chargement en temps r&#233;el...

boreuxc · Answer

Donne moi tes requetes que je regarde un peu
--Ced--

larfanou · Answer

Voici le code du script vbs:

'-----------------------------------------------------------------------------
'Extraction des donn&#233;es dans Om&#233;ga
'-----------------------------------------------------------------------------
'Ouverture de la base de donn&#233;es Omega
Set ConnBdOmega = Server.CreateObject("ADODB.Connection")
ConnBdOmega.Open BdOmega


'Lecture des requ&#234;tes SQL du r&#233;pertoire RepReq
Set fSrc = fs.GetFolder(RepReq")
Set fFichiers = fSrc.Files


i = 0 'Compteur de fichiers SQL


For Each fTemp in fFichiers
 'Compteur de fichiers requ&#234;tes
 i = i+1


 'Ouverture du fichier requ&#234;te
 Set inF = fs.OpenTextFile(fTemp, 1, false)


 'Lecture du fichier
 ReqSQL = inF.readAll


 'Fermeture du fichier requ&#234;te
   inF.close


 'Nom du fichier requ&#234;te
 NomFichierReq = left(fTemp.Name, len(fTemp.Name) - 4) & ".csv"


   'Ex&#233;cution de la requ&#234;te (ReqSQL)
   'Set ReqOmega = ConnBdOmega.Execute(ReqSQL)
   Set ReqOmega = CreateObject("ADODB.Recordset")
 ReqOmega.open ReqSQL, BdOmega


   buffer = ""


   'R&#233;cup&#233;ration des ent&#234;tes de la requ&#234;te
   for j=0 to ReqOmega.fields.Count -1
  buffer = buffer & ReqOmega(j).name & ";"
 next


 'R&#233;sultat de la requ&#234;te dans un fichier csv a mettre dans RepExtract
 '---------------------------------------------------------------------
 'Cr&#233;ation du fichier csv contenant le r&#233;sultat de la requ&#234;te
 Set fExtract = fs.CreateTextFile (RepExtract & NomFichierReq)


   'Ecriture des ent&#234;tes dans le fichier
   fExtract.WriteLine buffer


 'Deux m&#233;thodes pour r&#233;cup&#233;rer les donn&#233;es de la requ&#234;te:
 '1ere m&#233;thode = balayage du recordset enregistrement par enregistrement
 '(demande plus de ressources puisque travaille sur la base de donn&#233;es)


 'While not ReqOmega.EOF
 ' buffer=""
 ' for j=0 to ReqOmega.fields.Count -1
 '  buffer = buffer & ReqOmega(j).value & ";"
 ' next
 ' fExtract.WriteLine buffer
 ' ReqOmega.MoveNext
 'Wend


 '2e m&#233;thode = R&#233;cup&#233;ration de la requ&#234;te dans un tableau &#224; 2 dimensions
 tempArray = ReqOmega.GetRows()


 'Fermeture de la requ&#234;te
   ReqOmega.Close
 Set ReqOmega = Nothing


 'Extraction des donn&#233;es du tableau (=contenu de la requ&#234;te)
 For iRowLoop = 0 to UBound(tempArray, 2)
  buffer=""
  For iColLoop = 0 to UBound(tempArray, 1)
   buffer = buffer & tempArray(iColLoop, iRowLoop) & ";"
  Next 'iColLoop
  fExtract.WriteLine buffer
 Next 'iRowLoop


 'Fermeture du fichier
 fExtract.Close


 Set fExtract = Nothing
Next 'fTemp


'Fermeture de la base de donn&#233;es Om&#233;ga
ConnBdOmega.Close
'-----------------------------------------------------------------------------



'-----------------------------------------------------------------------------
'Cloture des objets
'-----------------------------------------------------------------------------
Set ConnBdOmega = Nothing
Set fFichiers = Nothing
Set fSrc = Nothing
Set fs= Nothing

J'ai juste enlev&#233; la d&#233;claration et la d&#233;finition des variables...

boreuxc · Answer

Il faut &#224; mon avis jouer avec les BUFFERS

Essaye 
Response.buffer = false en d&#233;but de page et essaye d'afficher dans ta boucle la valeur de iRowLoop par exemple

Si ca marche pas, essaye l'inverse
Response.buffer = true et en d&#233;but de page et essaye d'afficher dans ta boucle la valeur de iRowLoop par exemple
apr&#232;s l'affiche, mets la commande Response.flush()
pour forcer &#224; afficher le contenu du buffer... Jamais test&#233;, &#224; essayer donc !
--Ced--

cs_Nurgle · Answer

Salut,

Tu cherches &#224; ex&#233;cuter le script vbs dans ta page ASP 
Le plus simple serait de faire un copier-coller entre deux balises <% et %>, comme &#231;a tu te d&#233;barasses du vbs, et &#231;a devient une simple page asp.

Ensuite, pour l'affichage tu as deux choix :
- Faire comme boreuxc le disais, c'est &#224; dire : Utiliser le Response.Flush() avec une petite dose de javascript et &#231;a te fait une superbe progressbar qui avance  ! Il y a plusieurs sources sur ce site qui parlent de &#231;a, dont une particuli&#232;rement adapt&#233;e &#224; ton probl&#232;me...
http://www.aspfr.com/code.aspx?ID=30460 (tu as juste besoin de l'adapter un peu et &#231;a marche comme sur des roulettes )

ou alors

- Utiliser l'AJAX pour actualiser le contenu de la page. Malheureusement, je crains fort que dans ton cas, ce ne soit vraiment trop complexe d'utiliser &#231;a...
Dans ce cas l&#224;, je te conseillerais plut&#244;t l'autre m&#233;thode (mais tu fais comme tu veux...)

Nurgle 
Il est plus ais&#233; d'&#234;tre sage pour les autres que pour soi-m&#234;me ! (La Rochefoucauld)

ASP: faire un lien vers un .vbs avec message de chargement pendant l'éxécution d

8 réponses

Votre réponse

Discussions similaires