Using Access VBA I am trying to use your SOAP service and having some issues. I can successfully get back information from wms_GetCountryList.
However when I use any other function i'm getting an error. I am a premium members and I know the authentication works since if I change my username or password in my code to a wrong entry it comes back with the appropirate error.
However with the username/password correct, the error comes back as: SoapMapper:Converting data for SoapMapper failed inside the typemapper
Not much luck in googling for an answer. Here is my code, perhaps someone can help?
Also in the struct modules there are two instances where you are using a syntax which is a reserved word. One is 'type' the other is 'in'. Microsoft doesn't allow that. Can that be fixed?
BTW i'm using the MSSOAP30 reference.
However when I use any other function i'm getting an error. I am a premium members and I know the authentication works since if I change my username or password in my code to a wrong entry it comes back with the appropirate error.
However with the username/password correct, the error comes back as: SoapMapper:Converting data for SoapMapper failed inside the typemapper
Not much luck in googling for an answer. Here is my code, perhaps someone can help?
Also in the struct modules there are two instances where you are using a syntax which is a reserved word. One is 'type' the other is 'in'. Microsoft doesn't allow that. Can that be fixed?
BTW i'm using the MSSOAP30 reference.
Code:
Dim clnt As New SoapClient30
Dim objClient As New clsws_RRWsdl
Dim TestInput As struct_authInfo
Dim TestOutput As struct_State
Set TestInput = New struct_authInfo
'appKey, username, password changed for obvious reasons
TestInput.appKey = 12345678
TestInput.username = "aaaa"
TestInput.password = "bbbb"
txtResults = ""
clnt.ClientProperty("ServerHTTPRequest") = True
clnt.MSSoapInit "http://api.radioreference.com/soap2/?wsdl"
Set TestOutput = objClient.wsm_getStateInfo(30, TestInput) <-- Getting error on this statement
txtResults = Trim(TestOutput.stateName)
MsgBox ("Done")