Tova veche e drugo.
Znachi, ednoto reshenie e da se parse-ne XML-a i da se transformira prez XSL do tab-delimited ili space-delimited text i sled tova da se prekara prez edna prosta procedurka za otdeljane.



Drugijat variant e da se obhodi cjaloto DOM dyrvo s dom funkciite:

Dim xmlDoc As New Msxml2.DOMDocument
Dim objNodeList As IXMLDOMNodeList
Dim objNode As IXMLDOMNode
xmlDoc.async = False
'Това е много важно, без него може да имаш много проблеми. Без него MSXML 4.0 не ще да работи
xmlDoc.setProperty "ServerHTTPRequest", True
xmlDoc.Load ("http://server.com/file.xml")
Set objNodeList = xmlDoc.getElementsByTagName("tagname")
For i = 0 To (objNodeList.length - 1)
Set objNode = objNodeList.nextNode
rs.execute "insert #table " & objNode.Text
Next

Пробвай с това и успех !




от авторката на "Хари Потър" ...

Редактирано от _tisho_ на 19.03.02 17:13.