get XML from php into vb6, possible?

[tag666]

http://www.f1project.org/xml/laboratorio.php
shows us a XML file but it dosent end in .xml and i dont know why,
but is it possible to get vb6 to read the xml? and if so how?
thanks

[baja_yu]

I get an error when I open that. Maybe you can open the link in a WebBrowser control and get the XML from page source.

[tag666]

oh you have to be logged into the website.

[techgnome]

it doesn't end in xml because what you are accessing is a PHP file... it just so happens that the php file then returns an XML document. Having to be logged into the website adds a bit of complexity... and I'm not sure quite how to deal with that.

-tg

[tag666]

well logging in from the program is something i might try at a later date, at the moment i'm just happy with loggin in in my browser, and then reading the xml doc.

apparently its because the file is dynamically generated

still stuck

[tag666]

think i am getting it to read the url now,
just trying to get a textbox to display the value of a node
but it bugs when trying to find the node
any ideas where i might be going wrong?

Private Sub Command46_Click()
 
Dim objXML As MSXML2.DOMDocument
Dim objElem As MSXML2.IXMLDOMElement
Set objXML = New MSXML2.DOMDocument
 
If objXML.Load("http://www.f1project.org/xml/laboratorio.php") = False Then
MsgBox ("XML LOAD ERROR")
Else
Set objElem = objXML.selectSingleNode("//LaboratoryAeroPrice")      <------ it bugs here
Text4.Text = objElem.getAttribute("value")
 
End If
 
End Sub

[tag666]

a bit of the xml i'm trying to use:

<Laboratory>
<LaboratoryAeroInv>0</LaboratoryAeroInv>
<LaboratoryElectInv>5000</LaboratoryElectInv>
<LaboratoryMotorInv>15000</LaboratoryMotorInv>
<LaboratoryTyresInv>15000</LaboratoryTyresInv>
<LaboratoryGearInv>0</LaboratoryGearInv>
<LaboratorySuspenInv>25000</LaboratorySuspenInv>
<LaboratoryBrakeInv>15000</LaboratoryBrakeInv>
<LaboratoryAeroLev>1</LaboratoryAeroLev>
<LaboratoryElectLev>8</LaboratoryElectLev>
<LaboratoryMotorLev>11</LaboratoryMotorLev>
<LaboratoryTyresLev>11</LaboratoryTyresLev>
<LaboratoryGearLev>1</LaboratoryGearLev>
<LaboratorySuspenLev>12</LaboratorySuspenLev>
<LaboratoryBrakeLev>10</LaboratoryBrakeLev>
<LaboratoryPieceBuilded>5</LaboratoryPieceBuilded>
<LaboratoryAeroBuilded>0</LaboratoryAeroBuilded>
<LaboratoryElectBuilded>1</LaboratoryElectBuilded>
<LaboratoryMotorBuilded>1</LaboratoryMotorBuilded>
<LaboratoryTyresBuilded>1</LaboratoryTyresBuilded>
<LaboratoryGearBuilded>0</LaboratoryGearBuilded>
<LaboratorySuspenBuilded>1</LaboratorySuspenBuilded>
<LaboratoryBrakeBuilded>1</LaboratoryBrakeBuilded>
<LaboratoryAeroPrice>2525</LaboratoryAeroPrice>
<LaboratoryElectPrice>8742</LaboratoryElectPrice>
<LaboratoryMotorPrice>38651</LaboratoryMotorPrice>
<LaboratoryTyresPrice>12704</LaboratoryTyresPrice>
<LaboratoryGearPrice>2525</LaboratoryGearPrice>
<LaboratorySuspenPrice>25264</LaboratorySuspenPrice>
<LaboratoryBrakePrice>29946</LaboratoryBrakePrice>
</Laboratory>

[Siddharth Rout]

I think you are getting the error because of this line

If objXML.Load("http://www.f1project.org/xml/laboratorio.php")

If I am not wrong, then the syntax is

If Not objXML.loadXML(strXML) Then

Where strXML is a string variable which stores XML and not a website address...

Example

strXML = "<JustAnExample><Node Name=""tag666""/><group name=""VBF""><another value=""VBForums""/></group></JustAnExample>"

Regarding the code in post 6, I don't see any syntax errors...

[tag666]

i used to think it was that line, but wouldn't it come up with that msgbox if it couldn't load it?

but i'm using a url and how would i update the xml data from the url into a string automatically?,
seems a bit pointless, there must be a way to just use the url?

[Siddharth Rout]

Can you try this for me and tell me what happens?

Private Sub Command46_Click()
    Dim objXML As MSXML2.DOMDocument
    Dim objElem As MSXML2.IXMLDOMElement
    Dim strXML As String
    
    Set objXML = New MSXML2.DOMDocument

    strXML = "<Laboratory><LaboratoryAeroInv>0</LaboratoryAeroInv><LaboratoryAeroPrice>2525</LaboratoryAeroPrice></Laboratory>"

    If objXML.LoadXML(strXML) = False Then
        MsgBox ("XML LOAD ERROR")
    Else
        Set objElem = objXML.selectSingleNode("//LaboratoryAeroPrice")
        Text4.Text = objElem.getAttribute("value")
    End If
End Sub

[techgnome]

koolsid - there's two methods to load - Load which takes a filepath OR a URL to an XML doc... so that part is OK. LoadXML is a DIFFERENT function, that, like you mentioned, takes an XML string...

In this case the Load (with the url) is the appropriate syntax.
The reason objXML.selectSingleNode("//LaboratoryAeroPrice") fails is because the xPath query is wrong.
LaboratoryAeroPrice isn't a root node... Laboratory is the root node... so to get to the AeroPrice, the selection should be:
objxml.documentElement.selectSingleNode("/Laboratory/LaboratoryAeroPrice")
I find that selecting right off the document doesn't seem to work, but going through the documentElelment object does.... go figure.


-tg

[tag666]

with koolsid's get the msgbox.

with techgnome i get an error saying "Object variable or With block variable not set"

[Siddharth Rout]

I had made a typo in the last post. Try it now

[tag666]

ok that gets to the getAttribute bit but it errors and says "invalid use of Null"
but i want it from a url

[Siddharth Rout]

See if this helps you...

http://www.xml.com/pub/a/2000/07/12/...b_and_xml.html

[techgnome]

That's because it isn't an attribute.... once you have the node, you should be able to get the value through .Value or .InnerHTML ...

-tg

[tag666]

with techgnome i get an error saying "Object variable or With block variable not set"

Text4.Text = objElem.Value
Text4.Text = objElem.InnerHTML

both dont work

[tag666]

i still cant get the value into the textbox?
any ideas?