K
Kerry
Hi all,
I am very new to SOAP, so hope someone can help me. I am trying to do
an internet search in Access.
Here is what I have been trying for code:
Dim objSoapClient As SoapClient30
Dim strSearch As String
Const YahooAPI As String = "http://api.search.yahoo.com/
WebSearchService/V1/webSearch?query="
Const YahooKey As String = "&appid=MyID"
If IsNull(txtSearch.Value) Then
MsgBox "Nothing to search for.", vbInformation, "Nothing
entered"
Exit Sub
End If
Let strSearch = YahooAPI & Replace(txtSearch.Value, " ", "+") &
"&results=2" & YahooKey
Debug.Print strSearch
Set objSoapClient = New SoapClient30
objSoapClient.MSSoapInit (strSearch)
Let lblResults.Caption = client.result.summary
I get an error message on the line: objSoapClient.MSSoapInit
(strSearch)
Run Time Error '-2147024809 (80070057)':+
WSDLReader:Could not find '/definitions' inside the default WSDL
namespace HRESULT=0x80004005: Unspecified error
- WSDLReader:Loading of the WSDL file failed HRESULT=0x80004005:
Unspecified error
- Client:One of the parameters supplied is invalid.
HRESULT=0x80070057: The parameter is incorrect.
I am very new to SOAP, so hope someone can help me. I am trying to do
an internet search in Access.
Here is what I have been trying for code:
Dim objSoapClient As SoapClient30
Dim strSearch As String
Const YahooAPI As String = "http://api.search.yahoo.com/
WebSearchService/V1/webSearch?query="
Const YahooKey As String = "&appid=MyID"
If IsNull(txtSearch.Value) Then
MsgBox "Nothing to search for.", vbInformation, "Nothing
entered"
Exit Sub
End If
Let strSearch = YahooAPI & Replace(txtSearch.Value, " ", "+") &
"&results=2" & YahooKey
Debug.Print strSearch
Set objSoapClient = New SoapClient30
objSoapClient.MSSoapInit (strSearch)
Let lblResults.Caption = client.result.summary
I get an error message on the line: objSoapClient.MSSoapInit
(strSearch)
Run Time Error '-2147024809 (80070057)':+
WSDLReader:Could not find '/definitions' inside the default WSDL
namespace HRESULT=0x80004005: Unspecified error
- WSDLReader:Loading of the WSDL file failed HRESULT=0x80004005:
Unspecified error
- Client:One of the parameters supplied is invalid.
HRESULT=0x80070057: The parameter is incorrect.