VB и XML

[Sergey_K]

Народ помогите!!!
есть таблица в XML мне ее надо открыть с помощью VB6, и потом запихнуьб в базу.И вообще как открыть XMLфайл в табличном виде


Заранее Спасибо

[Konst_One]

никак, если только он не RowsetSchema (xml сохранненный рекордсет ADO)

или писать ручками парсер через MSXML2

[Sergey_K]

а как это проверить, просто мне дали только XMLфайл?

[RayShade]

Ну, надо структуру базы знать.

Но в общем виде это будет примерно так:

Скажем, мы импортим в базу XML вот такой структуры:

Код: Выделить всё

<?xml version="1.0"?>
<root>
<item name="Item1" qty="22">
<item name="Item2" qty="17"/>
<item name="Item3" qty="20"/>
<item name="Item4" qty="19"/>
</item>
<item name="Item5" qty="25"/>
</root>


Импорт будет такой:

Код: Выделить всё

dim xml as new msxml2.domdocument
dim rst as dao.recordset

public sub importSingleNode(node as msxml2.ixmldomnode)
with rst
.addnew
.fields("name")=n.attributes.getNamedItem("name")
.fields("qty")=n.attributes.getNamedItem("qty")
.update
end with
end sub

public sub importXML(node as msxml2.ixmldomnode)
dim x msxml2.ixmldomnode
if not (node is xml.documenElement) then importSingleNode(node)
for each x in node.childNodes
importSingleNode(x)
if x.childNodes.length>0 then importXML(x)
next x
end sub

public sub main()
xml.async=false
xml.load "myxml.xml"
dim db as dao.database
set db=opendatabase("mybase.mdb")
set rst=db.tabledefs("table1").openrecordset
importXML(xml.documentElement)
rst.close
db.close
end sub



[Konst_One]

Вот такой заголовок должен быть

Код: Выделить всё

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
   xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
   xmlns:rs='urn:schemas-microsoft-com:rowset'
   xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
...


[Viper]

[OFFTOP]а каким чудом у Sergey K одно сообщение, тогда как минимум в этом топике их 2? Что-то с форумом не так...[/OFFTOP]

[Antonariy]

никак, если только он не RowsetSchema (xml сохранненный рекордсет ADO)

Наверное с помошью xslt можно любую табличную структуру привести к адошной.

[Konst_One]

точно, можно:

[Konst_One]

Выложил в кирпичи свой конвертор для ADODB.Recordset XML

http://bbs.vbstreets.ru/viewtopic.php?p=6622064#6622064