ASP 15
Test_mysql.asp Guest on 7th February 2021 06:02:51 PM
  1. <%
  2.       'declaracion de constantes
  3.         Dim adOpenForwardOnly , adLockReadOnly , adCmdTable
  4.        
  5.         adOpenForwardOnly = 0
  6.         adLockReadOnly =1
  7.         adCmdTable =2
  8.  
  9.         'declaracion de variables
  10.         Dim objConn , objRS
  11.  
  12.         'creacion de objetos
  13.         Set objConn = Server.CreateObject("ADODB.Connection")
  14.         Set objRS = Server.CreateObject("ADODB.Recordset")
  15.  
  16.         'conexion a MySql a la base de datos de ejemplo
  17.         objConn.Open "Driver={MySQL ODBC 3.51 Driver}; " & _
  18.                      "Server=localhost; " & _
  19.                      "Database=test; " & _
  20.                      "UID=demo; " & _
  21.                      "PWD=demo; " & _
  22.                      "Option=3"
  23.  
  24.         'abriendo la tabla de ejemplo
  25.         objRS.Open "demo" , objConn , adOpenForwardOnly , adLockReadOnly , adCmdTable
  26.  
  27.      
  28.       'recorriendo las filas de la tabla
  29.       While Not objRS.EOF
  30.             objRS.MoveNext
  31.       Wend
  32.  
  33.       'informamos la conexion exitosa
  34.       Response.Write "Conectado!"
  35.  
  36.       'cerrando el recordset
  37.       objRS.Close
  38.      
  39.       'destruyendo objetos
  40.       Set objRS = Nothing
  41.       Set onjConn = Nothing
  42.  
  43. %>

Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.