Access 2003 Web Service VBA Code to Consume Web Services

[DoctorV3774]

We developed a small test database that we are using to attempt to connect to a wsdl to consume web services. The database form contains 3 fields and a submit button on the form. At the bottom I've included the code behind the button on the form and the class module code that was generated by the Web Service Tool.

I've added a little bit of information that pertains to the Access Database and our process and expected results:

VBA for connection to wsdl has been generated using the Web Service Tool and is displayed in the Class Module called clsws_Service0
From the form the user will input Submission ID, Timestamp and Sequence.
Clicking Submit should run vba code to Call the Class Module, passing the field data values input into the form which will in turn call the wsdl document
The form field values should be cleared
The user should receive either an error message or success message
In the class module it states that we are to Dimension the class as a new Class which we have done. We have also added the fields in the form to the code. What we do not know how to do is to write the appropriate code to accomplish what we have outlined above.


We do not understand exactly what we should be putting in our Access 2003 application to make this work. Can anyone help us out with the code in VBA to do this!

From the form I click on a submit button. This is the code behind the button:

Private Sub Submit_Click()
 
Dim objNodeList As IXMLDOMNodeList
 
Dim SubLogTest As New clsws_Service0
Dim strSubmissionID As String
Dim strTimestamp As String
Dim strSequence As String
Dim strSeparator As String
strSeparator = "<br />" + Chr$(10)
 
strSubmissionID = strSubmissionID
strTimestamp = strTimestamp
strSequence = strSequence
 
MsgBox ("Got this far")
 
Set SubLogTest = New clsws_Service0
 
Set objNodeList = SubLogTest.wsm_CorrectedAddressXml(txtSubmissionID, txtTimestamp, txtSequence)
 
End Sub

This is the code generated by using the Web Service Tool and connecting to the url given to us by our xml team

[DoctorV3774]

In the past, I used IXMLDOMNodeList against complex data types returned from web services calls.The document is expecting XML as input and returns XML as output. I looked for documentation for sending XML as a complex data type to a web service but was unable to find any info.

For now this is the input XML format. There is an XSD for it.

<?xml version="1.0" encoding="UTF-8"?>
 
<SHSQuoteDataReadReq
 
xmlns="http://www.gaic.com/SHSQuoteData"    
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xsi:schemaLocation="http://www.gaic.com/SHSQuoteData SHSQuoteData.xsd
http://www.w3.org/XML/1998/namespace xml-ns.xsd">
 
  <MsgStatusCd/>
 
  <MsgStatusDesc/>
 
  <SubmissionID>3632</SubmissionID>
 
  <QuoteKey>
 
    <QuoteTxnTimestamp>2006-07-06-10.22.38.957176</QuoteTxnTimestamp>
 
    <QuoteTxnSeq>02</QuoteTxnSeq>
 
  </QuoteKey>
 
  </SHSQuoteDataReadReq>