Hej! Sitter och försöker att lära mig hur man skapar xml filer från VB6. Sitter med VS.
Jag har fått tag på en liten kodsnutt som ska, enligt teori, kunna skapa en xml fil.

Private Sub CreateXML(arrData As Variant)
Dim lRow As Long
Dim xmlDoc As DOMDocument
Dim xmlNode As IXMLDOMNode
Dim xmlAttribute As IXMLDOMAttribute
Dim xmlLoad As IXMLDOMNode
Dim xmlRecord_list As IXMLDOMNode
Dim xmlRecord As IXMLDOMNode
Dim xmlParameterList As IXMLDOMNode
Dim xmlChildNode As IXMLDOMNode
Dim xmlPI As IXMLDOMProcessingInstruction
Dim xmlText As IXMLDOMText

Set xmlDoc = New DOMDocument

m_rstList.MoveFirst
Set xmlPI = xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
Set xmlNode = xmlDoc.appendChild(xmlPI)

Set xmlLoad = xmlDoc.createElement("SkoID")
Set xmlNode = xmlDoc.appendChild(xmlLoad)
Set xmlAttribute = xmlDoc.createAttribute("Skonummer")
Set xmlText = xmlAttribute.appendChild(xmlDoc.createTextNode(arrData(1)))
Set xmlNode = xmlLoad.Attributes.setNamedItem(xmlAttribute)

Set xmlRecord_list = xmlDoc.createElement("Model")
Set xmlAttribute = xmlDoc.createAttribute("Modelid")
Set xmlText = xmlAttribute.appendChild(xmlDoc.createTextNode(arrData(2)))
Set xmlNode = xmlRecord_list.Attributes.setNamedItem(xmlAttribute)

Set xmlRecord_list = xmlLoad.appendChild(xmlRecord_list)
xmlDoc.Save "c:\testxml.xml"
End Sub

Men när jag kör igång programmet så får jag ett fel redan på rad tre, VS känner inte igen:

Dim xmlDoc As DOMDocument

Måste jag lägga till någon speciell komponent i VS för att detta ska funka? Isf vilken?

/Tony

I "referenser", lägg till "Microsoft XML, vx.x"..

/F

Det var "referenser"...Tackar, Det var det jag tänkte på men jag gick in på Add Components hela tiden... så går det till när man hoppar över frukosten hehe.