VBScript
Résolu
Ice Karl X
Messages postés
42
Date d'inscription
Statut
Membre
Dernière intervention
-
Ice Karl X Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
Ice Karl X Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
9 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Salut,
Je viens de tenter ton truc et en faite maintenant ça ne me met plus la même erreur, ça me met une erreur "send", alors qu'avant c'été une erreur SQL.
Aussi quand IE me dit mon erreur ca me met une ligne ou il n'y a pas de code bien sur...
Si t'a encore une idée, sinon merci de ton aide...
Je viens de tenter ton truc et en faite maintenant ça ne me met plus la même erreur, ça me met une erreur "send", alors qu'avant c'été une erreur SQL.
Aussi quand IE me dit mon erreur ca me met une ligne ou il n'y a pas de code bien sur...
Si t'a encore une idée, sinon merci de ton aide...
Bon juste pour te tenir au courant, j'ai finit par trouver, le code ça donne ça :
Function send()
Value = MsgBox ("Do you want to close My Normals Cases",4,"Close My Normals Cases")
Dim wSQL
If Value = 6 Then
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open _
"Provider=SQLOLEDB;Data Source=***;" & _
"Trusted_Connection=Yes;Initial Catalog=****;" & _
"User ID=***;Password=****;"
objRecordSet.Open "UPDATE problems SET status = 100 WHERE (priority = 3) AND (status = 1) AND (rep = 1)", _
objConnection, adOpenStatic, adLockOptimistic
End If
End function
Voila, merci de ton aide...
Function send()
Value = MsgBox ("Do you want to close My Normals Cases",4,"Close My Normals Cases")
Dim wSQL
If Value = 6 Then
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.Open _
"Provider=SQLOLEDB;Data Source=***;" & _
"Trusted_Connection=Yes;Initial Catalog=****;" & _
"User ID=***;Password=****;"
objRecordSet.Open "UPDATE problems SET status = 100 WHERE (priority = 3) AND (status = 1) AND (rep = 1)", _
objConnection, adOpenStatic, adLockOptimistic
End If
End function
Voila, merci de ton aide...
