Doc. Ref. 28255 Título: Uso de recordsets en scripts Autor: Hexa Última actualización: 29/04/2024 #script #vb #parametrización #avanzada #tabla #base #de #datos

---

Uso de recordsets en scripts

A menudo es necesario cargar un conjunto de registros de una tabla para recorrerlos y hacer un proceso. Este documento es un ejemplo de cómo hacerlo en Hexa-V9.

Function Main (Criterio, Orden, Opciones)
   BD.Rs.Consulta = "SELECT Codigo, Nombre FROM Cliente WHERE Nombre LIKE 'A%' ORDER BY Codigo"
   BD.Rs.Abrir (False)
   R = "Cantidad de registros: " & CStr (BD.Rs.Cantidad)
   Do While Not BD.Rs.FIn
      R = R & BD.Rs.Campo ("Codigo") & "-" & BD.Rs.Campo ("Nombre") & VbCrLf
      BD.Rs.Siguiente
   Loop
   Main = R
End Function

En el ejemplo:

• BD.Rs es un objeto ya instanciado de la clase "Rs" de hexa que tiene las prestaciones de un conjunto de registros (Recordset)
• La propiedad "Consulta" indica la sentencia SQL que se ejecutara para cargar los datos
• El método "Abrir" carga los datos y lo desconecta de la base de datos, es decir, si los datos cambian, el conjunto cargado no varía.
• El parámtero al abrir incdica si la base de datos es auxiliar (False=Base de datos principal; True=Base de datos auxiliar)
• En el bucle se puede apreciar claramente las propiedades y métodos que permiten recorrerlo de forma convencional.
• Se dispone de dos objetos para cargar y recorrer registros: "BD.Rs" y "BD.Rs2"

Volver a la búsqueda anterior