Getting recordset from Webservice

[Flokkie]

I have an Acces2003 app. I call an webservice to fill a listbox. That works
fine. (See code below)
I know want to have the records in a (continuous) form.
How do I create a recordset form the webservice??


Private Sub txtCustno_AfterUpdate()
On Error GoTo HandleErrors
' Reset the list box.
lstProducts.RowSource = vbNullString
DoCmd.Hourglass True

' Retrieve the data.
Dim objProducts As clsws_Service1
Set objProducts = New clsws_Service1

Dim products As MSXML2.IXMLDOMNodeList
Set products = objProducts.wsm_GetContactsArray(Me.txtCustno.Value)

' To see the XML returned, browse to this site:
'
http://www.mcwtech.com/northwinddata/products.asmx/GetProductsByCategory?CategoryID=1

' Node 0 contains schema; Node 1 contains the data.
Dim items As MSXML2.IXMLDOMNodeList
Set items = products.item(1).selectNodes("//CUSTNO")

' Loop through all the items, retrieving the
' UnitsInStock field (in addition to the already retrieved
' ProductName field).
Dim item As MSXML2.IXMLDOMNode
For Each item In items
lstProducts.AddItem item.Text & ";" & _
item.parentNode.selectSingleNode("C_NAME").Text
Form_Formulier2.CUSTNO.Value = item.Text
Next item

ExitHere:
DoCmd.Hourglass False
Exit Sub

HandleErrors:
MsgBox Err.Description
Resume ExitHere

End Sub

 

[Alex Dybenko]

Hi,
you can create a new disconnected ADO recordset, and fill it with data you
get from webservice, like here:
http://techsupt.winbatch.com/TS/T000001033F14.html

Also you can make a local table, fill it with webservice data and bind form
to it

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com