** transformar cursores em xml hierárquico
Create Cursor cursor1 (campo1 c(200),campo2 c(200)) && cria um cursor na memória
Create Cursor cursor2 (campo1 c(200),campo2 c(200)) && cria um segundo cursor
Create Cursor cursor3 (campo1 c(200),campo2 c(200)) && cria um terceiro cursor
Append Blank in cursor1 && insere um registro vazio no primeiro cursor
Append Blank in cursor2 && insere um registro vazio no segundo cursor
Append Blank in cursor3 &&  && insere um registro vazio no terceiro cursor
Local loXA As XMLAdapter && inicializa a variável loXA, habilitando o intellisense
loXA = Createobject( "XMLAdapter" ) && cria o objeto XML Adapter
loXA.AddTableSchema( "cursor1" ) && adiciona o primeiro cursor ao XML Adapter
loXA.AddTableSchema( "cursor2" ) && adiciona o segundo cursor ao XML Adapter
loXA.AddTableSchema( "cursor3" ) && adiciona o terceiro cursor ao XML Adapter
loXA.ToXML( "C:\xmlhierarquico.XML", , .T. ) && grava (em disco) o arquivo XML com o conteúdo de 3 cursores
loXA = null && descarta a variável
 

** transformar xml hierárquico em cursores
lcXML = Filetostr( "C:\xmlhierarquico.XML" ) && carrega o conteúdo de um arquivo
Local loXA As XMLAdapter && inicializa a variável loXA, habilitando o intellisense
loXA = Createobject( "XMLAdapter" ) && cria o objeto XML Adapter
loXA.LoadXML( lcXML ) && recupera o arquivo XML, carregando no XML Adapter
For lnIndTab = 1 To loXA.Tables.Count && varre a coleção de cursores
  lcCursor = "Cursor" + Alltrim( Str( lnIndTab ) ) && define uma variável com o nome do cursor que será criado
  loXA.Tables[ lnIndTab ].ToCursor( .F., lcCursor ) && transforma uma tabela do XML Adapter em um cursor VFP
EndFor
loXA = null  && descarta a variável

Últimas Notícias

• CPI da Pedofilia notifica diretores de MSN e Skype
• MySpace assume liderança em publicidade online
• Itaú está preparado para o iPhone

Parceiros

Últimos Artigos

• Qual é o nome do seu cliente?
• Você é um Web Designer?
• Web Marketing: O quê é? Para que serve?