VBScript
Résolu
Ice Karl X
Messages postés
43
Statut
Membre
-
Ice Karl X Messages postés 43 Statut Membre -
Ice Karl X Messages postés 43 Statut Membre -
Bonjour,
Ben petit soucis en Vb, mon script ne veux pas se lancer et je n'arrive pas a comprendre pourquoi.
Si vous aviez une idée ce serait sympa.
Function send()
Value = MsgBox ("Do you want to close My Normals Cases",4,"Close My Normals Cases")
Dim wSQL
If Value = 6 Then
Set wSQL = SQLQuery(cnnDB,"UPDATE problems SET status = 100 WHERE (priority = 3) AND (status = 1) AND (rep = 1)")
cnnDB.Execute MySQL
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
Merci d'avance...
JP
Ben petit soucis en Vb, mon script ne veux pas se lancer et je n'arrive pas a comprendre pourquoi.
Si vous aviez une idée ce serait sympa.
Function send()
Value = MsgBox ("Do you want to close My Normals Cases",4,"Close My Normals Cases")
Dim wSQL
If Value = 6 Then
Set wSQL = SQLQuery(cnnDB,"UPDATE problems SET status = 100 WHERE (priority = 3) AND (status = 1) AND (rep = 1)")
cnnDB.Execute MySQL
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
Merci d'avance...
JP
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...
