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) |
Partager