conexión vbs mysql

Esto está copiado. Lo he hecho antes. De hecho, es necesario establecer una fuente de datos DSN. Necesitas descargar el controlador mysql.

\Uno es establecer un DSN en. la fuente de datos ODBC. El método específico es:

1. Abra la fuente de datos ODBD en el panel de control;

2. Seleccione el DSN del sistema y agregue un nuevo controlador DSN;

> 3. Seleccione MyODBD y aparecerá un cuadro de diálogo para ingresar MySQL:

(1) Nombre del DSN de Windows: el nombre del DSN que se creará;

(2) MySQL Host (nombre o ip): El nombre o dirección IP del servidor MySQL. Generalmente complete LocalHost;

(3) Nombre de la base de datos MySQL: se debe utilizar el nombre de la base de datos.

4. Crear una base de datos en el programa de gestión MySQL. Tomando la base de datos chunfeng como ejemplo, hay una tabla de datos de usuario. Los dos campos son: nombre de usuario y contraseña. Podemos intentar agregar algunos registros:

(1) usuario: el nombre de usuario para conectarse. a la base de datos. El superusuario raíz se puede completar;

(2) contraseña: la contraseña del usuario para conectarse a la base de datos. Se puede dejar en blanco;

(3) Puerto (si no es 3306): el puerto de MySQL en el servidor. El valor predeterminado es 3306;

(4) Comando SQL al conectarse: utilice el comando SQL para conectarse a la base de datos. Puedes dejarlo en blanco.

Después de completar todo, haga clic en Aceptar para guardar.

Bien, conectemos a la base de datos. El código ASP es el siguiente:

lt;

strConnection = "dsn=chunfeng; driver={myodbd driver. }; servidor =localhost;uid=root;pwd=; base de datos=chunfeng"

Establecer adoDataConn = Server.CreateObject("ADODB.Connection")

adoDataConn.Open strConnection

strQuery = "SELECCIONAR * DEL usuario"

Establecer rs = adoDataConn.Execute(strQuery)

Si no es rs.BOF entonces

gt

p>

lt;TABLEgt;

lt;TRgt;

lt;TDlt;bgt;nombredeusuario;/bgt;lt;/TDgt ;

lt;TDgt;lt;bgt;Contraseñalt;/bgt;lt;/TDgt;

lt;/TRgt

lt; >

Hacer mientras no rs.EOF

gt;

lt;TRgt

lt;TDgt;lt;=rs("nombre de usuario") gt;lt;/ TDgt;

lt;TDgt;lt;=rs("contraseña")gt;lt;/TDgt;

lt;/TRgt

lt;

rs.MoveNext

Bucle

gt;

lt;/TABLEgt; >lt;

lt;

lt; p>

Else

Response.Write("Lo sentimos, no se encontraron datos.")

Finalizar si

rs.Close

adoDataConn.Close

Establecer adoDataConn = Nada

Establecer rsEmailData = Nada

gt;

Otro método es poner lo anterior. La segunda línea del código ASP se cambia a:

strconnection="DefaultDir=; Driver={myodbc driver} ; base de datos=chunfeng"

No es necesario crear un DSN del sistema ni un nombre de usuario y contraseña. Sin embargo, este método no se recomienda.