VBScript
Résolu/Fermé
Ice Karl X
Messages postés
42
Date d'inscription
mercredi 30 juillet 2008
Statut
Membre
Dernière intervention
15 décembre 2008
-
9 oct. 2008 à 21:17
Ice Karl X Messages postés 42 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 15 décembre 2008 - 14 oct. 2008 à 15:40
Ice Karl X Messages postés 42 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 15 décembre 2008 - 14 oct. 2008 à 15:40
A voir également:
- VBScript
- Vbscript download - Télécharger - Édition & Programmation
- Erreur d'exécution microsoft vbscript erreur '800a01a8' ✓ - Forum Programmation
- Problème avec VBScript ✓ - Forum VB / VBA
- Vbscript shutdown - Forum VB / VBA
- Microsoft VBScript - Forum Windows 7
9 réponses
mika125
Messages postés
484
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
27 septembre 2013
35
9 oct. 2008 à 21:19
9 oct. 2008 à 21:19
il te manque quelque chose...
dans quelques instants je te dirais quoi.
dans quelques instants je te dirais quoi.
Ice Karl X
Messages postés
42
Date d'inscription
mercredi 30 juillet 2008
Statut
Membre
Dernière intervention
15 décembre 2008
1
9 oct. 2008 à 21:20
9 oct. 2008 à 21:20
Ben je te remercie par avance alors...
mika125
Messages postés
484
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
27 septembre 2013
35
10 oct. 2008 à 16:54
10 oct. 2008 à 16:54
dsl...c'est tout ce que je pe faire...
Ice Karl X
Messages postés
42
Date d'inscription
mercredi 30 juillet 2008
Statut
Membre
Dernière intervention
15 décembre 2008
1
9 oct. 2008 à 22:12
9 oct. 2008 à 22:12
Alors, une idée ou pas?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
mika125
Messages postés
484
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
27 septembre 2013
35
10 oct. 2008 à 15:11
10 oct. 2008 à 15:11
"Trusted_Connection=Yes;Initial Catalog=****;" & _
mets-le sans le _ apres &
mets-le sans le _ apres &
Ice Karl X
Messages postés
42
Date d'inscription
mercredi 30 juillet 2008
Statut
Membre
Dernière intervention
15 décembre 2008
1
10 oct. 2008 à 15:43
10 oct. 2008 à 15:43
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...
Ice Karl X
Messages postés
42
Date d'inscription
mercredi 30 juillet 2008
Statut
Membre
Dernière intervention
15 décembre 2008
1
10 oct. 2008 à 21:36
10 oct. 2008 à 21:36
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...
mika125
Messages postés
484
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
27 septembre 2013
35
11 oct. 2008 à 14:45
11 oct. 2008 à 14:45
oui, voilà tuas trouvé!
...et comment tu as fait? finalement tu as réussi!^^
je te félicite
...et comment tu as fait? finalement tu as réussi!^^
je te félicite
Ice Karl X
Messages postés
42
Date d'inscription
mercredi 30 juillet 2008
Statut
Membre
Dernière intervention
15 décembre 2008
1
14 oct. 2008 à 15:40
14 oct. 2008 à 15:40
Ben en faite la première requête SQL été répété en dessous donc je l'ai vire et c'est passé...
En tout cas j'aime vraiment pas reprendre le code des gens c'est super chiant mais bon...
En tout cas j'aime vraiment pas reprendre le code des gens c'est super chiant mais bon...