transfert base access --> mysql et script vbscript

Version imprimable

je voudrais automatiser le transfert de ma base de données acces vers une base mysql. Pour cela, j'ai créé le script suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
set Conn_access = createobject("ADODB.Connection")
connstring = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(".") & "\data\db.mdb" 
conn_access.Open connstring, adOpenDynamic, adLockOptimistic
 
set conn_mysql = Server.createobject("ADODB.Connection")
conn_mysql.open "Intranet"
 
Set rst_access = Server.CreateObject("ADODB.Recordset")
Set rst_mysql = Server.CreateObject("ADODB.Recordset")
 
sql_access = "SELECT * FROM table_users"
rst_access.open sql_access,conn_access
do while not rst_access.eof
	login = rst_access("UserLogin")
	mdp = rst_access("UserMDP")
	nom = rst_access("UserNom")
	prenom = rst_access("UserPrenom")
	mode = rst_access("UserMode")
	mail = rst_access("UserMail")
	valide = rst_access("UserValide")
	sql_mysql = "INSERT INTO table_users (UserLogin,UserMDP,UserNom,UserPrenom,UserMode,UserMail,UserValide) Values (login,mdp,nom,prenom,mode,mail,valide);"
	rst_mysql.open sql_mysql,conn_mysql
	rst_access.movenext
loop
rst_access.close
rst_mysql.close

Mais j'ai une erreur quand je veux le lancer et je n'arrive pas a savoir pourquoi.

Code:

ligne 2, objet requis:server

Est-ce que quelqu'un peut m'aider?:?

21/06/2006, 16h45
ryan
Yop!

Bin voui:
Code:

1 2 set Conn_access = server.createobject("ADODB.Connection")
Ryan
Deux gin fizz, pleeze...
21/06/2006, 16h49
boss_gama

j'y ai pensé mais ca ne donne rien. Ca plante a la premiere ligne au lieu de la 2e, c'est tout
21/06/2006, 16h52
Gwenn

si tu corriges la seconde ligne, celle qui te renvoyait une erreur, c'est pas tres logique que ca plante sur la premeire ligne :?
21/06/2006, 16h57
boss_gama

L'erreur au début tourne autour de Server.MapPath (ligne 2). il me dit objet requis. Si je rajoute le server. a la premiere ligne comme ryan le dit, ca donne la meme erreur mais pour la premiere ligne.
:roll:
21/06/2006, 17h02
boss_gama

Si au lieu de faire un fichier vbs, je fais un fichier asp, ca passe jusqu'à ma 2e requete (sql_mysql), ou l'insert plante(logique d'ailleurs). C'est peut-être une particularité d'un fichier vbscript, non?
21/06/2006, 23h07
Immobilis

Je crois que si tu veux executer un .VBS il faut utiliser une ligne de commande avec un objet WSH (Windows Script Host). :google:
22/06/2006, 09h30
boss_gama

d'apres ce que j'ai vu, le wsh est utilisé pour utilisé des outils systèmes, mais il ne me semble pas que cela s'applique dans mon cas.
22/06/2006, 13h35
Immobilis

Citation:

Envoyé par boss_gama

Si au lieu de faire un fichier vbs

...
22/06/2006, 14h22
boss_gama

bon c'est pas grave je vais travailler avec un fichier asp. Ca marche donc ya pas de souci.
Merci pour vos réponses.