Microsoft Knowledge Base Article
This article contents is Microsoft Copyrighted material.
©2005-©2007 Microsoft Corporation. All rights reserved.
Terms
of Use |
Trademarks
Article ID: 253713 - Last Review: July 1, 2004 - Revision: 2.4
How To Move Data from an XML Document into a FoxPro Table
This article was previously published under Q253713
This is a simple example of how the Microsoft XML parser (MSXML) object can be used to move XML data from an XML document into a Microsoft FoxPro table. A FoxPro table similar in structure to the Orders table is created and the data in the XML document is moved to the table.
This example uses the MSXML parser to move data from an XML document to a FoxPro table. The parser is available at:
This code takes the XML document below, creates a new table called SampOrd and populates the table with the XML data.
NOTE: Ensure that any XML document to be used as a datasource for the sample code below has a root tag or basename in the document; otherwise an error might occur.
- Install the MSXML parser.
- Create an XML document from the XML code below.
- Create a FoxPro program file with the following code and then run the program:
CREATE TABLE SampOrd ( ;
order_id c(10), ;
cust_id c(10), ;
emp_id c(10), ;
to_name c(25), ;
to_address c(50), ;
to_city c(25), ;
to_region c(10), ;
postalcode c(10), ;
to_country c(15), ;
ship_count c(15), ;
ship_via c(6), ;
order_date c(8), ;
order_amt c(10), ;
order_dsc c(10), ;
order_net c(10), ;
require_by c(8), ;
shipped_on c(8), ;
freight c(10))
*** Uncomment the following line if you want access to oXML
*** outside of this program.
*PUBLIC oXML
oXML=CREATEOBJECT('msxml.domdocument') && This creates the parser object
oXML.LOAD(GETFILE('xml')) && This gets and loads the XML document.
*** Select the XML document created from the XML code below.
*** The following gives the basename of the XML document
*?oXML.DocumentElement.Basename
*** The following gives the number of nodes (or records)
*?oXML.documentelement.childnodes.LENGTH
** The following snippet appends a blank record and parses
** through each node element and adds it to the table.
** REMEMBER that the object model is in base zero.
WITH oXML.DocumentElement.ChildNodes
FOR iCount = 0 TO .LENGTH - 1
APPEND BLANK
FOR iChild = 0 TO .ITEM(0).ChildNodes.LENGTH - 1
lcVar = .ITEM(iCount).ChildNodes(iChild)
REPLACE (lcVar.NodeName) WITH (lcVar.TEXT)
ENDFOR
ENDFOR
ENDWITH
BROWSE
XML Code
<orders_table>
<orders>
<order_id> 10040</order_id>
<cust_id>WHITC </cust_id>
<emp_id> 3</emp_id>
<to_name>White Clover Markets </to_name>
<to_address>1029 - 12th Ave. S. </to_address>
<to_city>Bellevue </to_city>
<to_region>WA </to_region>
<postalcode>98124 </postalcode>
<to_country>USA </to_country>
<ship_count>USA </ship_count>
<ship_via> 3</ship_via>
<order_date>09/09/93</order_date>
<order_amt>$1,991.00</order_amt>
<order_dsc>10</order_dsc>
<order_net>$1,842.88</order_net>
<require_by>10/07/93</require_by>
<shipped_on>09/18/93</shipped_on>
<freight>$51.88</freight>
</orders>
<orders>
<order_id> 10095</order_id>
<cust_id>LAZYK </cust_id>
<emp_id> 3</emp_id>
<to_name>Lazy K Kountry Store </to_name>
<to_address>12 Orchestra Terrace </to_address>
<to_city>Walla Walla </to_city>
<to_region>WA </to_region>
<postalcode>99362 </postalcode>
<to_country>USA </to_country>
<ship_count>USA </ship_count>
<ship_via> 3</ship_via>
<order_date>12/10/93</order_date>
<order_amt>$530.00</order_amt>
<order_dsc>10</order_dsc>
<order_net>$479.58</order_net>
<require_by>01/07/94</require_by>
<shipped_on>12/11/93</shipped_on>
<freight>$2.58</freight>
</orders>
</orders_table>
- If a root tag or basename is not in the XML document, usually an "OLE error 0x00000001: Incorrect function" error occurs.
For additional information on XML, click the article number below
to view the article in the Microsoft Knowledge Base:
191758Â
(http://kbalertz.com/Feedback.aspx?kbNumber=191758/EN-US/
)
How To Convert FoxPro Cursor into XML Data Format
For more information about XML, see the following Web sites:
APPLIES TO
- Microsoft Visual FoxPro 6.0 Professional Edition
- Microsoft XML Parser 2.5
- Microsoft XML Parser 2.6
- Microsoft XML Parser 3.0
| kbdatabase kbhowto KB253713 |
Community Feedback System
Very often, it takes hours to solve a problem. Very often, you've looked high
and low, and have tried a lot of solutions. When you finally found it, chances
are, it was because someone else helped you. Here's your chance to give back.
Use our community feedback tool to let others know what worked for you and what
didn't.
Please also understand that the community feedback system is not warranted to be
correct, it's simply a system that we've built to let people try and help each
other. If something in a feedback response doesn't make sense to you, or you're
not comfortable making changes that the feedback talks about (like registry
edits), please consult a professional.
Thank you for using kbAlertz.com Feedback System.
-- Scott Cate