De l'aide sur vbs

**deidoboy78** · 05/08/2011, 14h44

Bjr à tou(te)s, je suis un "Novice" sur le dev.. Pour l'instant j'utilise vbscript car mon prédécesseur l'utilisait dejà pour l'automatisation..
Mon client voudrais avoir un reporting hebdo sur un outil sur les différentes actions qui se sont déroulées ds une semaine.. Bref, je lui envoit un tableau html édité depuis mon script suite aux différentes actions définies sur celui-ci, le script se base sur 2 fichiers excel pour l'exécution et le retour d'infos souhaitées.. Cela marche bien, seulement le client voudra voir d'autre actions sur le tableau. et ces actions se basent sur un outil web qui fournies en infos une BDD.. J'ai donc reajuster mon script (voir Pj), mais cela ne marche pas. Merci de votre aide et explication!! Bne journée!!
les erreurs:
-Ligne (12,2) : objet requis "
- Ligne (17,1) : aucun texte de commande n'a été défini pour l'objet de commande
-Ligne (19,2) : objet requis "
-Ligne (20,2) : objet requis "
-Ligne (21,2) : objet requis "
-Ligne (24,1) : objet requis "

**SfJ5Rpw8** · 05/08/2011, 14h50

montre nous le code des lignes concernées par ces messages d'erreur .. ( voir balises de [CODE] )

**deidoboy78** · 05/08/2011, 15h03

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
' OdbcDSN = "DSN=DNC;UID=sa;PWD="
Odbc = "Provider=SQLOLEDB;Data Source=nom_serveur" & _
"UID="";PWD="";DATABASE=nom_base"
' Remplace l'adresse IP par l'adresse IP de ton SQL SERVER ainsi que le nom de la base
 
Set connect = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
 
connect.Open Odbc
 
Dim p3, resultSet, PROBLEM1M1
sql="SELECT max (*) FROM XXX" & _ 
"WHERE XXX=" & III & " and RRR = " & max(p3.XXX) & " " & from & " " & ((aaa)) & " " & (p3) & " " & where & " " & bbb = p3.number & ") & "";"
 
 
Set resultSet = connect.Execute(sql)
' WScript.Echo resultSet()
WScript.Echo resultSet.Fields(0)
NUMBER=resultSet.Fields(0)
resultSet.Close
connect.Close
 
WScript.Echo "Fin du Traitement OPALE : Le N° de Dossier " & NUMBER & _
" portant " & III & _
" a été mis à jour :" & XXX & " !"
 
Set resultSet = Nothing
Set connect = Nothing
Set fso = Nothing
WScript.Quit(0)