Conectarse a la base de datos MySQL 5.0 con VBScript pura?
-
21-09-2019 - |
Pregunta
He intentado el siguiente script 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 que se me ocurrió a este la página donde podía descargar el conector ODBC 5.1. Se pregunta si esto es suficiente para conectarse a un servidor de base de datos MySQL 5.0 ...?
Solución
Instalar MySQL Connector / ODBC y utilizar un de cadena de conexión como las siguientes
connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=yourServerAddress;" & _
"Database=yourDataBase;User=yourUsername;" & _
"Password=yourPassword;"
Otros consejos
he hecho 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"
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow