Discussion :

[niki78]

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

[niki78]

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

[ced600]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 ?

[niki78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[niki78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[niki78]

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...