Connectez-vous à la base de données mysql 5.0 en utilisant vbscript pure?

Question

J'ai essayé le script ci-dessous mais je reçois une erreur:

dim cn, rs 

set cn = CreateObject("ADODB.Connection") 
set rs = CreateObject("ADODB.Recordset") 
cn.connectionstring = "Provider=MysqlProv; Data Source=Adonis; User Id=mysqluser; Password = mysqlpass;" 
cn.open 
rs.open "select * from Countries", cn, 3 
rs.MoveFirst 
while not rs.eof 
    wscript.echo rs(0) 
    rs.next 
wend 
cn.close 
wscript.echo "End of program" 

Son donnant l'erreur suivante:

C:\mysql.vbs(6, 1) ADODB.Connection: Provider cannot be found. It may not be pro 
perly installed. 

Quand je googlé pour un connecteur odbc je suis venu à la page où this Je pourrais télécharger le connecteur odbc 5.1. Vous vous demandez si cela suffit pour vous connecter à une base de données mysql server 5.0 ...?

Answer 1

Installer MySQL Connector/ODBC et utiliser un connection string comme ce qui suit

connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=yourServerAddress;" & _ 
        "Database=yourDataBase;User=yourUsername;" & _ 
        "Password=yourPassword;" 

Answer 2

J'ai fait de petites modifications au script ci-dessus fonctionne bien:

dim cn, rs 

i = 0 

set cn = CreateObject("ADODB.Connection") 
set rs = CreateObject("ADODB.Recordset") 

connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;" & _ 
        "Data Source=dsn_hb; Database=TP; User=root; Password=***;" 

cn.Open connectionString 
rs.open "select * from test.Login", cn, 3 
rs.MoveFirst 

'msgbox rs(0)' 

while not rs.eof 
    msgbox rs.Fields(0) 
    rs.MoveNext 
wend 

cn.close 

MsgBox "End of program"