Script d'execution automatique de requête pour serveur

Bonjour je suis débutant en prog de script; dans le cadre de mon stage en DUT on m'a demandé de mettre en place un script d'execution de requêtes automatisée coté serveur; Le fonctionnement serait le suivant :

1) on clique sur le script.vbs coté serveur
2) celui-ci execute les requetes tout les jours automatiquement ( il met à jour des champs dans une base MYSQL présente sur le serveur)

Si vous pouviez m'aider concernant :
- l'automatisation du script (tout les jours)
- la connexion à la base
- l'execution des requêtes (l'appel à la fonction d'execution de la requête)

Je vous joins le résultat de mes recherche, toutefois il doit y avoir un certain nombre d'erreurs...

Cdt

j'ai décidé de partir à la base en testant avec easyphp et ainsi d'exploiter une base SQL en local avec le script.
je vous joins mon fichier de base

Code:

---

1 2 3

Dim conn conn = "DRIVER=SQL Server;SERVER=127.0.0.1;UID=mysql;PASSWORD=;DATABASE=test1;" Set conn = CreateObject("ADODB.Connection")

---

?

tu utilises une même variable pour lui affecter successivement deux valeur différente. Quel est l'intéret ?
Dans un premier temps conn aura pour valeur "DRIVER=SQL Server;SERVER=127.0.0.1;UID=mysql;PASSWORD=;DATABASE=test1;" puis juste après ce sera la réf de l'objet ADODB.Connection
La première valeur sera écrasé.

Je te met un exemple que j'ai trouvé sur le net :

Citation:

---

Adding a New Record to a Database

Demonstration script that retrieves sound card information for a computer, and then saves that information to an ADO database with the DSN "Inventory."

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DSN=Inventory;" objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM Hardware" , objConnection, _ adOpenStatic, adLockOptimistic Set colSoundCards = GetObject("winmgmts:").ExecQuery _ ("Select * from Win32_SoundDevice") For Each objSoundCard in colSoundCards objRecordset.AddNew objRecordset("ComputerName") = objSoundCard.SystemName objRecordset("Manufacturer") = objSoundCard.Manufacturer objRecordset("ProductName") = objSoundCard.ProductName objRecordset.Update Next objRecordset.Close objConnection.Close

---

---

J'ai aussi trouvé cela :

Code:

---

1 2 3 4 5 6 7

Set Conn = Nothing Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionTimeout = 300 Conn.Open "dsn=dsnname", "username", "password" Set rs=Server.CreateObject("ADODB.Recordset")

---

Bref inspire toi de cela pour faire ce que tu souhaites.

Pour ce qui est de

Citation:

---

celui-ci execute les requetes tout les jours automatiquement

---

Rien de tel qu'une tache planifié qui a pour but d'exécuter le script non ?

je me suis appuyé sur tes propositions, et pour la connexion cela ne marche toujours pas, mais ça avance;; lorsque j'execute le scirpt dans la fenêtre DOS, il mouline jusqu'à m'afficher "Ce serveur SQL n'existe pas ou son accès a été refusé" ...

Je pense que cela viens du fait que j'ai notifié 'SQL serveur' alors qu'il s'agit d'un serveur 'MySQL' et la syntaxe doit être différente (j'ai pas mal cherché mais en vain)

J'ai pourtant essayé avec mysql mais rien y fait.

Par contre pour la planification du script tu as tout à fait raison c'est ce qu'il y a de plus simple !!!

voila mon compte actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'=========définition des variables===========   Dim conn,sql   '==============connexion BD==================   Set conn = CreateObject("ADODB.Connection") connexion = "DRIVER=SQL Server;SERVER=localhost;UID=mysql;PASSWORD=;DATABASE=test;" conn.Open connexion msgbox "connexion OK" 'Call Erreur("erreur connexion Bdd")

---

J'ai réussi la connexion à la BD locale, je vous communique mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'=========définition des variables===========   Dim conn   '==============connexion BD==================   Set conn = CreateObject("ADODB.Connection") Connexion = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;UID=root;PASSWORD=;" conn.CommandTimeout = 30 conn.Open connexion msgbox "connexion au serveur OK"

---

Maintenant je m'entraine à l'execution des requêtes et à leurs affichage.

Par contre est ce que quelq'un orait un exemple de requête de type "select" et d'affichage dans une box ou autre car je ne connait pas les outils dispo...

Citation:

---

un exemple de requête de type "select"

---

tu cherches un exemple de de requête SQl ou autre chose ?

Pour l'affichage d'une chaine de caractère dans une box :

Code:

---

msgbox "Toto"

---

Et c'est suffisant en soit, place cette ligne unique dans un fichier d'extension vbs, et tu n'as plus qu'à lancer le vbs.