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