-


-

94858457839859485739485

Приложение к извещению.doc

7.21 Мб

Приложение №

http://iz/file.html?uid=6FB2FB4BCEEB009AE0530A86121F1E6F


-

3ZfLQHnuEL9kyG1zL31VYDbuNz0ReMMrjWIu6dKgNkKdgRhapkMddr






-

AE0530A86121F3105

Документация.doc

7.81 Мб

Аукционная документация

http://z/file.html?uid=6FC294AB51E3006AE0530A86121F3105


-

BAMbz6a/f0Kz3IZoIi/D0bGRVbDTREw4hIEm800eEm9dqSdYuUTfcc







--------------------------------------------------------------------
Я только учус )))

А вот сам цикл на VBA:

Private Sub Кнопка0_Click()

Dim xmlOb As MSXML2.DOMDocument60
Dim xNode As MSXML2.IXMLDOMNode
Dim xElem As MSXML2.IXMLDOMElement
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("tabMXL")


Set xmlOb = New DOMDocument60: xmlOb.async = False: xmlOb.validateOnParse = True

'Назначаем схемы
xmlOb.SetProperty "SelectionNamespaces", "xmlns:q='http://zakupki.gov.ru/oos/export/1' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:oos='http://zakupki.gov.ru/oos/types/1'"
xmlOb.SetProperty "SelectionNamespaces", "xmlns:q='http://zakupki.gov.ru/oos/types/1' xmlns:ns2='http://zakupki.gov.ru/oos/export/1' xmlns:ns3='http://zakupki.gov.ru/oos/pprf615types/1' xmlns:ns4='http://zakupki.gov.ru/oos/base/1'"

If xmlOb.Load("c:\1Zakupki_test\1.xml") Then
For Each xElem In xmlOb.selectNodes(".//q:attachments")
rst.AddNew
rst!fName = xElem.selectSingleNode(".//q:fileName").Text
rst!fSize = xElem.selectSingleNode(".//q:fileSize").Text

Next xElem
rst.Update
End If
rst.Close

End Sub


Здесь я хотел найти узел Attachments и пройтись по всем подузлам (правильно сказал?) "attachment" и записать данные элементов "fileName", "fileSize" в таблицу tabXML. Записывает в таблицу элементы только первого аттачмента, второго не видит, не идет...

Что я как новичок сделал не так ???

http://www.sql.ru/forum/1297498/ne-mogu-ponyat-gde-u-menya-oshibka-ne-rabotaet-cikl-po-elementam-uzla-xml-kod-vnizu-vba