[SOLUCIONADO] Cómo conectarse a la base de datos MySQL

[facundojr07]

Buenas,

Sin algún conocimiento sobre VBS, estoy intentando general algo que consulte una BD MySQL.

ejecuto el siguiente script, pero me salta un error que el error dice: "Error: Se requiere un objeto:'Response'".

Alguien me podria ayudar en esto:

Código:

Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL

SQL = "SELECT * FROM bd_cpu"

ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=192.168.30.91; DATABASE=desempeno; " &_
"UID=xxxxxxxx;PASSWORD=zzzzzzzz!; OPTION=3"

Set Connection = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")

Connection.Open ConnString

Recordset.Open SQL,Connection

If Recordset.EOF Then 
Response.Write("No records returned.") 
Else 
Do While NOT Recordset.Eof   
Response.write Recordset("Mes")
Response.write Recordset("Tipo")
Response.write Recordset("Nombre")
Response.write "<br>"    
Recordset.MoveNext     
Loop
End If

Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing

[plasma_go]

Primero descargar el driver para hacer la conexion con mysql y asp.

Despues verifica que los datos sean los correctos en la cadena "ConnString", nombre de la base de datos, la contraseña, puerto a conectarse (por default es 3306), el identificador de usuario (por default root) y la ip del server (si tu bd esta en otra maquina pon su ip, pero si esta en tu pc pon localhost)

Ademas no se que version manejas de asp para realizar mis consultas utilizo este codigo:

Código ASP:

Dim conn_string
 
conn_string = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Port=3306;Database=agenda;Uid=root;Pwd=123456"
 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open (conn_string)
sqlString = "select nombre from datos"
Set RSC = conn.Execute(sqlString)
while (not rsc.EOF)
        response.Write(rsc("nombre"))   
    rsc.MoveNext()  
wend
 

Espero que te sirva, saludos

[snomar]

desabilita las lineas ... y habilitalas una a una

'Response.write Recordset("Mes")
'Response.write Recordset("Tipo")
'Response.write Recordset("Nombre")
'Response.write "<br>" '<<<<<<<<< todas con (" ") o sin?