Connetti al database mysql 5.0 usando puro vbscript?

Question

ho provato lo scritto sotto, ma sto ottenendo un errore:

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" 

sua dando il seguente errore:

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

Quando ho concentrandoci per un connettore ODBC sono arrivato fino a this pagina in cui Potrei scaricare il connettore odbc 5.1. Ti chiedi se questo è sufficiente per connettersi a un database MySql Server 5.0 ...?

Answer 1

Installare e utilizzare un MySQL Connector/ODBCconnection string come la seguente

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

Answer 2

ho fatto piccole modifiche allo script di cui sopra e sta lavorando bene:

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"