¿Conectarse a la base de datos MySQL 5.0 utilizando vbscript puro?

Question

he probado el script de abajo, pero estoy consiguiendo un error:

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" 

Su dando el siguiente error:

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

Cuando busqué en Google para un conector ODBC llegué hasta donde this página Podría descargar el conector odbc 5.1. ¿Se pregunta si esto es suficiente para conectarse a una base de datos de MySQL Server 5.0 ...?

Answer 1

Instalar y utilizar un MySQL Connector/ODBCconnection string como la siguiente

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

Answer 2

hice pequeños cambios en la secuencia de comandos y está trabajando muy 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"