473,326 Members | 2,061 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,326 software developers and data experts.

Webservice Complex Types

Hey guys,

I googled for nearly 3 hours - but no result...

We run a web-service and want to reach that service from Access. In the
following part you see the wsdl content and the automatically generated
class. I need advice to get the input/output running for this service.

Thanks for your help

Thomas


Option Compare Database

'************************************************* ****************
'Diese Klasse wurde vom Microsoft Office 2003 Web Services Toolkit,
erstellt.
'
'Erstellt: 9/13/2006 09:14:08 AM
'
'Beschreibung:
'Diese Klasse ist eine VBA-Klassenrepräsentation des Webdienstes

'
'Verwendung:
'Dimensionieren Sie eine Variable als neues "clsws_uamconnect"-Objekt,
und schreiben Sie dann Code für
'unter Verwendung der Methoden, die von der Klasse bereitgestellt
werden.
'Beispiel:
' Dim ExampleVar as New clsws_uamconnect
' debug.print ExampleVar.wsm_getUamOperation("Beispieleingabe")
'
'Weitere Informationen erhalten Sie unter "Komplexe Typen" in der Hilfe
zum Microsoft Office 2003
'Web Services Toolkit .
'
'Änderungen am Code dieser Klasse führen möglicherweise zu falschem
Verhalten der Klassenobjekte.
'
'************************************************* ****************

'Dimensionieren von privaten Klassenvariablen.
Private sc_uamconnect As SoapClient30
Private Const c_WSDL_URL As String = "http://[cesnored
;)]wd.soa.uamconnector/UamConnector?wsdl"
Private Const c_SERVICE As String = "uamconnect"
Private Const c_PORT As String = "UamConnectorPort"
Private Const c_SERVICE_NAMESPACE As String =
"http://www.example.org/uamconnect/"

Private Sub Class_Initialize()
'************************************************* ****************
'Diese Unterroutine wird immer dann aufgerufen, wenn ein Objekt
dieser Klasse instanziiert wird.
'Erstellt "sc_ComplexTypes" als neues "SoapClient30"-Objekt.
Anschließend initialisiert
'das "sc_ComplexTypes.mssoapinit2"-Objekt mithilfe der WSDL-Datei
unter
'http://[censored ;)].wd.soa.uamconnector/UamConnector?wsdl.
'************************************************* ****************

Dim str_WSML As String
str_WSML = ""

Set sc_uamconnect = New SoapClient30

sc_uamconnect.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT,
c_SERVICE_NAMESPACE
'Verwenden Sie den Proxyserver, der in den LAN-Einstellungen von
Internet Explorer festgelegt ist,
'indem Sie für "ProxyServer" den Wert <CURRENT_USERfestlegen.
sc_uamconnect.ConnectorProperty("ProxyServer") = "<CURRENT_USER>"
'Proxyeinstellungen werden automatisch erkannt, wenn für Internet
Explorer die automatische Erkennung für
' aktiviert ist, indem für "EnableAutoProxy" der Wert "True"
festgelegt wird.
sc_uamconnect.ConnectorProperty("EnableAutoProxy") = True
End Sub

Private Sub Class_Terminate()
'************************************************* ****************
'Diese Unterroutine wird immer dann aufgerufen, wenn für ein
Objekt dieser Klasse der Destruktor aufgerufen wird.
'Setzt das "sc_ComplexTypes"-Objekt auf "Nothing".
'************************************************* ****************

'Fehlerbehebung
On Error GoTo Class_TerminateTrap

Set sc_uamconnect = Nothing

Exit Sub

Class_TerminateTrap:
uamconnectErrorHandler ("Class_Terminate")
End Sub

Private Sub uamconnectErrorHandler(str_Function As String)
'************************************************* ****************
'Diese Unterroutine ist der Fehlerhandler für die Klasse. Sie kann
von jeder Unterroutine oder Funktion der Klasse
'aus aufgerufen werden, wenn in der betreffenden Unterroutine oder
Funktion ein Fehler auftritt. In diesem Fall wird das Fehlerobjekt auf
den Fehler und den
'Namen der aufrufenden Unterroutine bzw. Funktion gesetzt.
'************************************************* ****************

'SOAP-Fehler
If sc_uamconnect.FaultCode <"" Then
Err.Raise vbObjectError, str_Function,
sc_uamconnect.FaultString
'Nicht SOAP-bezogener Fehler
Else
Err.Raise Err.Number, str_Function, Err.Description
End If

End Sub

Public Function wsm_getUamOperation(ByVal any_UamSearchRequest As
MSXML2.IXMLDOMNodeList) As MSXML2.IXMLDOMNodeList
'************************************************* ****************
'
'"wsm_getUamOperation, any_UamSearchRequest" ist als XML definiert.
Siehe "Komplexe Typen: XML-Variablen" in
'der Hilfe zum Microsoft Office 2003 Web Services Toolkit, um
weitergehende Informationen zur Implementierung von XML-Variablen zu
erhalten.
'************************************************* ****************

'Fehlerbehebung
On Error GoTo wsm_getUamOperationTrap

Set wsm_getUamOperation =
sc_uamconnect.getUamOperation(any_UamSearchRequest )

Exit Function
wsm_getUamOperationTrap:
uamconnectErrorHandler "wsm_getUamOperation"
End Function


<wsdl:definitions name="uamconnect"
targetNamespace="http://www.example.org/uamconnect/">
-
<wsdl:types>
-
<xsd:schema targetNamespace="http://[censored ;)]/types">
-
<xsd:complexType name="UamUserType">
-
<xsd:sequence maxOccurs="1" minOccurs="1">
<xsd:element maxOccurs="1" minOccurs="1" name="userCode"
type="xsd:string"/>
<xsd:element maxOccurs="1" minOccurs="1" name="firstName"
type="xsd:string"/>
<xsd:element maxOccurs="1" minOccurs="1" name="lastName"
type="xsd:string"/>
<xsd:element maxOccurs="1" minOccurs="1" name="phoneNo"
type="xsd:string"/>
</xsd:sequence>
</xsd:complexType>
-
<xsd:element name="UamSearchRequest">
-
<xsd:complexType>
-
<xsd:sequence maxOccurs="1" minOccurs="1">
<xsd:element maxOccurs="1" minOccurs="1" name="UserPK" type="xsd:int"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
-
<xsd:element name="UamSearchResult">
-
<xsd:complexType>
-
<xsd:sequence maxOccurs="1" minOccurs="1">
<xsd:element maxOccurs="1" minOccurs="0" name="UamUaser"
type="tns:UamUserType"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
-
<xsd:element name="UamSearchFault">
-
<xsd:complexType>
-
<xsd:sequence maxOccurs="1" minOccurs="1">
<xsd:element maxOccurs="1" minOccurs="0" name="Reason"
type="xsd:string"/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:schema>
</wsdl:types>
-
<wsdl:message name="UamFaultMessage">
<wsdl:part element="types:UamSearchFault" name="fault"/>
</wsdl:message>
-
<wsdl:message name="getUamResponseMessage">
<wsdl:part element="types:UamSearchResult"
name="getUamResponseMessagePart"/>
</wsdl:message>
-
<wsdl:message name="getUamRequestMessage">
<wsdl:part element="types:UamSearchRequest"
name="getUamRequestMessagePart"/>
</wsdl:message>
-
<wsdl:portType name="uamconnect">
-
<wsdl:operation name="getUamOperation">
<wsdl:input message="tns:getUamRequestMessage"/>
<wsdl:output message="tns:getUamResponseMessage"/>
<wsdl:fault message="tns:UamFaultMessage" name="UamFault"/>
</wsdl:operation>
</wsdl:portType>
-
<wsdl:binding name="uamconnectSOAP" type="tns:uamconnect">
<soap:binding style="document"
transport="http://schemas.xmlsoap.org/soap/http"/>
-
<wsdl:operation name="getUamOperation">
<soap:operation
soapAction="http://www.example.org/uamconnect/getCSOrder"/>
-
<wsdl:input>
<soap:body use="literal"/>
</wsdl:input>
-
<wsdl:output>
<soap:body use="literal"/>
</wsdl:output>
-
<wsdl:fault name="UamFault">
<soap:fault name="UamFault" use="literal"/>
</wsdl:fault>
</wsdl:operation>
</wsdl:binding>
-
<wsdl:service name="uamconnect">
-
<wsdl:port binding="tns:uamconnectSOAP" name="UamConnectorPort">
<soap:address location="[censored
;)]wd.soa.uamconnector/UamConnector"/>
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

Sep 13 '06 #1
0 3418

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

0
by: olafmol | last post by:
Hello, i have a problem using a .NET WSDL Webservice from PHP. Using both the NuSOAP lib for PHP4, and the build-in SOAP lib for PHP5 it seems that the SOAP client cannot pass a variable amount...
4
by: Flare | last post by:
OK. I'll try explain my problem so simple as possible. I have to send a complex data type to a WebService from a Asp.net webapplication. My Data type look like this. (A class with a porperty)...
5
by: mtv | last post by:
Hi all, I have the following code: ================================ Webservice side: public class MyWS: WebService { private myLib.DataObject curDataObject;
4
by: Martin Ehrlich | last post by:
Hello NG. I've got a little problem with sharing types between webservices and clients. I've created a business class with public fields within a shared assembly like: public class Item {
7
by: Nalaka | last post by:
Hi, I created a sinple web service that returns a dataSet. Then I created a client program that uses this web service (that returns the Dataset). My question is, how did the client figure...
5
by: AliR | last post by:
Hi Everyone, I have a Visual C++ MFC program, and I am trying to use a webservice written in C#. When I add the webservice to my project using Add Web Reference the sproxy compiler complains...
6
by: Sascha Schmidt | last post by:
Hi again! Well, the first part of my "mission" (calling remoting objects from a webservice) is solved. But there's another part: Calling this C#-Webservice from a java client. Is this a...
5
by: Niall | last post by:
I'm experience problems very similar to those reported in this thread on dotnet.framework on May 16 at...
2
by: Stan SR | last post by:
Hi, It's propably a stupid question, but I would like to know how to return the result of a BLL method using a webservice. I have method called getArticleById() that I use to update a...
7
by: =?iso-8859-1?Q?S=F8ren_M._Olesen?= | last post by:
Hi How do I pass a complex type to a webservice?? What I have is a Class 'MyComplexClass' which lives in it's own dll/namespace. I'd like to pass this class to my webmethod: <WebMethod()_...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.