如何编写程序将XML的数据导入到表中？ ( 积分: 15 )

a.xml数据如下:
<?xml version=&quot;1.0&quot;
standalone=&quot;yes&quot;?>
<KSS>
<tstbl>
<P_NUMBER>34545</P_NUMBER>
<M_CASEDEPT>3543543</M_CASEDEPT>
<WORKMAN>24324</WORKMAN>
<ZJLX>1</ZJLX>
<ZJH>243242</ZJH>
<STARTTIME>2006-10-23 14:14:54</STARTTIME>
<ENDDTIME>2006-10-23 14:59:54</ENDDTIME>
<JSR>13213</JSR>
<SEND>0</SEND>
</tstbl>
<swjy>
<P_NUMBER>1321321</P_NUMBER>
<XM>132132</XM>
<ZDRQ>2007-02-10T00:00:00.0000000+08:00</ZDRQ>
<YJRY>132132</YJRY>
<JZYY>13213</JZYY>
<ZDJG>qewqe</ZDJG>
<YSYJ>qewqe</YSYJ>
<CYZD>qewqewq</CYZD>
<CYRQ>2007-03-22T00:00:00.0000000+08:00</CYRQ>
<YSQM>qeqew</YSQM>
<FLAG>0</FLAG>
<SEND>0</SEND>
</swjy>
<swjy>
<P_NUMBER>qewqewq</P_NUMBER>
<XM>qewqew</XM>
<ZDRQ>2006-09-19T00:00:00.0000000+08:00</ZDRQ>
<YJRY>qewqew</YJRY>
<JZYY>ewqqewq</JZYY>
<ZDJG>qweqewqe</ZDJG>
<YSYJ>qewqewq</YSYJ>
<CYZD>jhfhjf </CYZD>
<CYRQ>2006-10-16T00:00:00.0000000+08:00</CYRQ>
<YSQM>sgfsgfs</YSQM>
<FLAG>0</FLAG>
<SEND>0</SEND>
</swjy>
</KSS>
其中tstbl,swjy为两个表,P_NUMBER,M_CASEDEPT等为字段名称,我在SQL分别建两个表P_NUMBER,M_CASEDEPT,字段个XML一一对应,请问如何实现上述的XML导入到MSSQL数据库里.

用个 XML 控件来解析一下XML 再手动插入数据库 就OK了
推荐几个不错的控件
TSimpleXML ,OmniXML 这两个都是原生Delphi 代码的。 我用过，都不错