https://foro.gambas-es.org/viewtopic.php?f=4&t=2660&p=15129#p15129
-----------------------------------
angelnu
Sabado, 20 Octobre 2012, 11:32

Re: Alguien Sabe Como Utilizar Los Componentes XML
-----------------------------------
Gracias a jsbsan y a jguardon por sus respuestas..
[quote] 
La consulta en xml, esta en un archivo,¿ verdad? [/quote]

No la consulta la obtengo de la base de datos mediante una funcion interna de postgresql (Select query_to_xml) que me devuelve una fila con la consulta formateada en XML.
Lo que yo hago es crear un archivo XML con el siguiente codigo , que funciona .
[code linenumbers=false syntax=gambas]
    Dim sT As String, ss As String
    Dim Re As Result, Ffiche As File

    ss = "Select query_to_xml( 'select id,num_documento,id_cliente, total, fecha from w_totalalbaran where fecha >''01-10-2012'' LIMIT 5',true,false,'consulta')"
   ' ss = "Select query_to_xml( 'select id,nombre, cif, correo_electronico, direccion,poblacion, pagina_web from clientes' ,true,false,'consulta')"
    re = con.Exec(ss)
    st = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
    st &= "<?xml-stylesheet href='" & Application.Path &/ "pp.css' title='Estilo'?>\n\n"
    sT &= re[0]
    Ffiche = Open "/tmp/pp.xml" For Input Create
    Print #Ffiche, st
    Ffiche.Close
[/code]
Lo que yo quiero es poder añadir el CSS a la cabecera del fichero XML y estoy intentando utiliar el componente XML por aprender pero no veo ninguna manera para poder editarlo he intentado utilizar XLMElement pero no funciona [code linenumbers=false syntax=gambas]
    Dim re As Result
    Dim sT As String, ss As String, Xs As XmlDocument
    Dim pp As XmlElement, xn As XmlElement

    ss = "Select query_to_xml( 'select id,num_documento,id_cliente, total, fecha from w_totalalbaran where fecha >''01-10-2012'' LIMIT 5',true,false,'consulta')"
    re = con.Exec(ss)
    sT = re[0]

    xs = New XmlDocument
    xn = New XmlElement("?xml-stylesheet href='" & Application.Path &/ "pp.css' title='Estilo'?")
    xs.Root.AppendChild(xn)
    xs.Root.AppendFromText(st)
    xs.Save("/tmp/pp.xml", True)
[/code]
Me crea un nuevo elemento vacio pero despues de la etiquea xml  asi:
<xml>
 <?xml-stylesheet href='/home/angel/gambas3/probar/pp.css' title='Estilo'?>
 </?xml-stylesheet href='/home/angel/gambas3/probar/pp.css' title='Estilo'?>


