Sure. You've to set IsAttribute=.T. for the fields you want to convert to attributes
oXA = CREATEOBJECT("XmlAdapter")
oXA.AddTableSchema(lcAlias)
oFields = oXA.Tables(1).Fields
FOR i=1 TO oFields.Count
oFields(i).IsAttribute = .T.
ENDFOR
oXA.ToXML("lcXml")
>
>I can't seem to find a way for a xmladpater to format the output into attributes. Similar to option "2" which is the third parameter using cursortoxml(). Is that possible?
>
--sb--