De Access a XML

Cada vez con más frecuencia los desarrolladores de sitios en Flash necesitan mostrar contenidos dinámicamente, tomando datos de fuentes externas.
Presentación de la base de datos

El desarrollo del tutorial está realizado utilizando una base Access muy sencilla, pero el ejemplo puede adecuarse a bases más potentes, como SQL Server, con muy pequeñas modificaciones.
Supongamos que tenemos que tomar datos de una base que utiliza solo 3 tablas, con la estructura que se detalla en la siguiente figura:



El ejemplo se refiere a una compañía que dispone de Representantes en distintos países y se propone mostrar en su web realizada en Flash los datos de cada uno para que sus clientes contacten al representante más cercano.
Se trata de una estructura jerárquica de datos que nos proponemos respetar cuando consultemos la base (bd_tutorial.mdb).

Supongamos que la empresa carga los datos a través de un Panel de Cliente realizado en algún lenguaje de programación del lado del servidor (ASP o PHP). Los datos de muestra son los siguientes:


Trabajando en ASP y XML

Nuestro trabajo consistirá en lograr tres objetivos:

  1. Recoger los datos de la base mediante consultas SQL alojándolos transitoriamente en objetos de tipo Recordset
  2. Volver a grabar esos datos en formato XML, que respetará la estructura jerárquica y que es de muy fácil acceso desde el Flash
  3. Realizar una película en Flash que lea los datos XML y los muestre a los visitantes.

Los primeros dos objetivos los realizaremos utilizando una página ASP (entorno Windows) que denominaremos representantes.asp.
El tercero será desarrollado íntegramente en la parte 2 de este tutorial: de XML a Flash.

Comentaremos a continuación los aspectos claves del código de representantes.asp.
Antes que nada, nuestra página activa deberá conectarse a la base y realizar sobre ella las consultas SQL que recojan los datos de forma ordenada dentro de los objeto Recordset.

Conectarse a la base bd_tutorial.mdb

Dim Conn, ConnStr
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
ConnStr = ConnStr & Server.MapPath("data/bd_tutorial.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = adModeReadWrite
Conn.ConnectionString = ConnStr
Conn.Open


Realizar la primera consulta SQL

Una vez conectados a la base debemos realizar la primera consulta SQL, que recuperará la lista de los datos ubicados más alto en la jerarquía, en nuestro caso las Areas Geográficas. Debemos armar la consulta de tal modo de obtener únicamente aquellas áreas que tengan algún país asociado. Si algún área no tuviera todavía países asociados la consulta lo ignorará, como ocurre con "Asia" en la base de muestra.
Si algún área posee más de un país asociado, lo que es lógico que ocurra, aparecerá varias veces (tantas como países tenga) por lo que utilizamos el predicado DISTINCT para obtener cada área una sola vez.

El código sería el siguiente:

Dim strSQLAreas
strSQLAreas = "SELECT DISTINCT Areas.* FROM Areas INNER JOIN Paises ON Areas.IdArea =" & _ "Paises.AreaPais"
Set rsAreas = Server.CreateObject("ADODB.Recordset")
rsAreas.Open strSQLAreas, Conn, 1


En ste momento estamos en condiciones de empezar a armar nuestro archivo XML.
La idea es ir armándolo y grabándolo línea a línea en el servidor mediante el objeto ASP FileSystemObject.
Para poder grabar deberemos disponer en el servidor de una carpeta que posea permiso de escritura, caso contrario obtendremos un mensaje de error.
En nuestro ejemplo utilizamos una carpeta denominada XML y nuestro archivo representantes.xml tendrá las siguientes características:

  • Tendrá un nodo (primer hijo) llamado arbitrariamente lista.
  • Dentro de lista tendremos tantos nodos area (hijos de lista) como áreas tengamos.
  • Dentro de cada nodo area tendremos tantos nodos pais (hijos de cada area) como países tenga esa área.
  • Dentro de cada nodo pais tendremos tantos nodos representantes como representantes tenga ese país.

Los nombres de cada Area, cada País y los datos de cada Representante (nombre, apellido, etc.) los incluiremos como atributos de cada nodo bajo la forma de pares nombre = valor (por ejemplo: apellido="Gonzalez").
En resumen, la estructura será la siguiente:

<lista>
<area nombre="xx">
<pais nombre="yy">
<representante nombre="zz" apellido="zz" telefono="zz" email="zz">
</representante>
<representante nombre="zz" apellido="zz" telefono="zz" email="zz">
</representante>
</pais>
</area>
</lista>


Volviendo al código ASP, la lógica que seguiremos consiste en analizar para cada Area (bucle Do While #1) qué Países hay, para cada País (bucle Do While #2) qué Representantes hay y para cada Representante (bucle Do While #3) cuáles son sus datos.
Ya disponemos de las Areas (en el Recordset rsAreas que obtuvimos más arriba) por lo que podemos armar los bucles y la escritura del XML de la manera que sigue:

El resto del código

dim fso, archivo
Set fso = createobject("scripting.filesystemobject")
Set archivo = fso.CreateTextFile(Server.MapPath("xml/representantes.xml"), True)
archivo.WriteLine("<?xml version='1.0' encoding='ISO-8859-1'?>")
archivo.WriteLine("<lista>")
If rsAreas.RecordCount = 0 Then
'***no hay Areas con países asociados => xml vacío /***
archivo.WriteLine("</lista>")
Else
rsAreas.MoveFirst
'Bucle Do While #1 - para cada Area
Do While Not rsAreas.EOF
'escribimos el nodo XML
archivo.WriteLine("<area nombre='" & rsAreas("NombreArea") & "'>")
'buscamos los Países del Area que tengan Representantes, sin duplicados: DISTINCT
strSQLPaises = "SELECT DISTINCT Paises.IdPais, Paises.NombrePais FROM Paises " & _
"INNER JOIN Representantes ON Paises.IdPais = Representantes.PaisRepres " & _
" WHERE Paises.AreaPais =" & rsAreas("IdArea")
Set rsPaises = Server.CreateObject("ADODB.Recordset")
rsPaises.Open strSQLPaises, Conn, 1
If rsPaises.RecordCount <> 0 Then
'Bucle Do While #2 - para cada País
Do While Not rsPaises.EOF
'escribimos el nodo XML
archivo.WriteLine("<pais nombre='" & rsPaises("NombrePais") & "'>")
'buscamos los Representantes del País
strSQLRepre = "SELECT * FROM Representantes WHERE " & _
"PaisRepres=" & rsPaises("IdPais")
Set rsRepre = Server.CreateObject("ADODB.Recordset")
rsRepre.Open strSQLRepre, Conn, 1
If rsRepre.RecordCount <> 0 Then
'Bucle Do While #3 - datos de cada Representante
Do While Not rsRepre.EOF
'escribimos el nodo XML
archivo.WriteLine("<representante ciudad='" & rsRepre("CiudadRepres") & "' nombre='" & rsRepre("NombreRepres") &
' apellido='" & rsRepre("ApellidoRepres") & "' telefono='" & rsRepre("TelefonoRepres") & "' email='" & rsRepre("EmailRepres") & "'>")
'cerramos el nodo de cada Representante
archivo.WriteLine("</representante>")
rsRepre.MoveNext
Loop
'cerramos y destruimos el recordset de Representantes
rsRepre.Close
Set rsRepre = Nothing
End If
'cerramos el nodo de cada País
archivo.WriteLine("</pais>")
rsPaises.MoveNext
Loop
'cerramos y destruimos el recordset de Países
rsPaises.Close
Set rsPaises = Nothing
End If
'cerramos el nodo de cada Area
archivo.WriteLine("</area>")
rsAreas.MoveNext
Loop
'cerramos y destruimos el recordset de Areas
rsAreas.Close
Set rsAreas = Nothing
'cerramos el nodo principal
archivo.WriteLine("</lista>")
archivo.Close
End If


En este punto tenemos una página ASP (representantes.asp) que cada vez que se ejecuta toma los datos que existan en la base y los graba en un archivo con formato XML (representantes.xml).
El archivo XML así generado puede verse en cualquier editor de textos aunque es mejor utilizar algún editor XML como XML Editor o Notepad ++ (decarga gratuita).

Resultaría conveniente (por no decir indispensable) hacer que representantes.asp se ejecute cada vez que se realiza algún cambio en la base a través del panel que utiliza la empresa para actualizar sus datos. De ese modo garantizaremos que siempre se leerán los datos más recientes disponibles.

De aquí en más ...

En la parte 2 de este artículo: "de XML a Flash", desarrollaremos una película Flash con la programación necesaria en ActionScript para leer y mostrar dinámicamente el contenido de nuestro archivo XML, respetando exactamente la estructura de los datos guardados en la base.

Autor

Fernando Campaña

Programación - Multimedia

Compartir

Comentarios

Irula

08/6/2009
Error de permisos
Buenos días,
Muchas gracias por el código, pero no me funciona, me da error de permisos al crear el fichero, y tengo la carpeta con permisos para todo, si alguien pudiera ayudarme se lo agradecería.
Un saludo

Forero

07/8/2010
Gracias
Mil gracias por el codigo, sin embargo estoy bloqueado diseñe el mismo escenario para identificar el error y se presenta en la misma linea:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'rsAreas'
/asp/representantes.asp, línea 18


la linea 18 es: If rsAreas.RecordCount = 0 Then.


gracias por su ayuda.

Gilberto Morales

22/10/2010
El codigo no funciona
Revise este codigo y no efectua conexion alguna a la basa de datos, yo tengo un windows server 2003 en ingles

Esteban

26/1/2012
sobre la base de datos
Una preguntita: Este ejemplo aparece en Cristalab. Aclárenme por favor ¿quién se copió de quien? Gracias