"¡Consigue el mejor registro ADO para potenciar tus engranajes!"

¿Estás interesado en conocer más acerca del objeto de conjunto de registros ADO? ¡Estás en el lugar adecuado! En este artículo hablaremos sobre todo lo que necesitas saber acerca de este objeto, desde su definición hasta su aplicación en el mundo del desarrollo de software. Además, te contaremos sobre TIEngranaje, una herramienta indispensable para maximizar la eficiencia en el manejo de registros ADO. ¡No te pierdas esta información esencial para mejorar tus habilidades en programación y desarrollo!

Después de abrir una conexión con su fuente de datosnormalmente una base de datos, su próximo paso es leer de la fuente de datos y cargar los datos en un recordset. Para realizar esta operación, simplemente necesitamos crear un objeto ADO Recordset.

Después de crear el objeto Recordset, podrá abrelo y pasar informacion a la fuente de datos. Normalmente, esta información consistiría en la consulta SQL y el objeto de conexión.

Contenido

Sintaxis

<%
set oRs=Server.CreateObject("ADODB.recordset")
oRs.Open "Data Requested", Connection Info
%>

Ejemplo

En este ejemplo, vamos a conectar a una mesa en una base de datos MySQL llamada “Empleados”. Usaremos una conexión sin DNS.

ejecutaremos un Consulta de selección SQL y capturar los resultados en un recordset. Finalmenteextraer la información de la recordset y mostrar los resultados en una tabla.

Objeto de conexión y conjunto de registros

<% 
Dim oConn, oRS, datasource, sql
Set oConn=Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.recordset")
datasource = "Driver={MySQL ODBC 3.51 Driver};SERVER=db-hostname;DATABASE=db-name;UID=userID;PWD=password"
sql = "SELECT empName, empTitle FROM employees"
oConn.Open datasource
oRS.Open sql, oConn
%>

Extraiga los datos

Después de recordset está abierto, podemos extraer datosde recordset.

<table style="width:500px;">
    <tr>
    <%for each x in oRS.Fields
        Response.Write("<th>" & x.name & "</th>")
    next%>
    </tr>
    <%do until oRS.EOF%>
    <tr>
    <%for each x in oRS.Fields%>
      <td><%Response.Write(x.value)%></td>
    <%next
    oRS.MoveNext%>
    </tr>
    <%loop;%>
</table>

Cerrar las conexiones y limpiar

<% 
oRS.close
oConn.close
Set oRS=nothing
Set oConn=nothing
%>

Código terminado

<!DOCTYPE html>
<html>
<head>
    <title>My Page</title>
</head>
<body>

    <% 
    Dim oConn, oRS, datasource, sql
    Set oConn=Server.CreateObject("ADODB.Connection")
    Set oRS = Server.CreateObject("ADODB.recordset")
    datasource = "Driver={MySQL ODBC 3.51 Driver};SERVER=db-hostname;DATABASE=db-name;UID=userID;PWD=password"
    sql = "SELECT empName, empTitle FROM employees"
    oConn.Open datasource
    oRS.Open sql, oConn
    %> 
    <table style="width:500px;">
    <tr>
        <%for each x in oRS.Fields
            Response.Write("<th>" & x.name & "</th>")
        next%>
    </tr>
    <%do until oRS.EOF%>
    <tr>
        <%for each x in oRS.Fields%>
            <td><%Response.Write(x.value)%></td>
        <%next
        oRS.MoveNext%>
    </tr>
    <% loop %>
    </table>
    <%
    oRS.close
    oConn.close
    Set oRS=nothing
    Set oConn=nothing
    %>
</body>
</html>

Error 403 The request cannot be completed because you have exceeded your quota. : quotaExceeded

Objeto de conjunto de registros ADO | TIEngranaje