Discussion :

[Invité]

Allo, J'avais fais un petit vbs qui me permettait de collecter certaine information d'un poste et l'inscrivait dans une table...Or du jour au lendemain ça accroche à l'instruction "Set rs = db.Execute(MaCommandSQL)"

Incorrect syntax near 's' 80040E14

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
 
Set db = CreateObject("ADODB.Connection")
		DBstring = "Provider=SQLOLEDB.1;Data Source=IP\SQLExpress;Initial Catalog=MDT;Integrated Security=SSPI"
		db.open DBstring
 
		Dim rs 
		Set rs = CreateObject("ADODB.recordset")
 
		Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
		Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
 
		For Each objSoftware in colSoftware
 
			MaCommandSQL = "Select * from dbo.Logiciels Where SerialNumber = '" & NumeroSerie & "' and NomLogiciel = '" & objSoftware.Name & "'"
			Set rs = db.Execute(MaCommandSQL)

Je n'ai rien changé dans le scrip ou sur SQl...le seul fait est que j'exécute le script maintenant sous W10 au contraire de W7 avant...

Une idée pour solutionner le problème

Merci

[omen999]

bonjour,
je testerai bien l'objet dbo.Logiciels
c'est un recordset ?