How to use web services?

[rothj0hn]

Hi guys. Im planing to transfer 1 data entry in my database to the server using web services, is this possible? how to do it? i have no idea.

The client computer and server are not connected on LAN, my data transfer is via net.

Thanks

[jggtz]

To consume a web service from a vb6 app, you could use the SOAP Toolkit 3.0

The web service in the server can be developed using vb6 or vb.net

JG

[rothj0hn]

do you have samples?

what im planing is my current vb6 application will send a delimited string to the web service then the web service will process this and save to the server database, then response if successful or failed.

[jggtz]

To start --->
http://www.aspfree.com/c/a/VB.NET/Ca...-with-SOAP-30/

JG

[rothj0hn]

Im not familiar with it, and i guess it will take some time for me create another module for soap. Is there a way that vb6 can call a asp classic web services?

[rothj0hn]

<!--#include file="db.asp"-->
<!--#include file="FUNCTIONS.asp"-->
<&#37;

Dim strValue
dim aResult, mResult

strValue = Request.Querystring("strValue")

Select Case lcase(strValue)

	Case "autosync"
		aResult = LookUp("Status","MAINTENANCE","Code = 'AutoImport'")
		mResult = Lookup("Status","MAINTENANCE","Code = 'ManualImport'")

		If aResult = 1 or mResult = 1 then
			response.write "RUNNING"
		Else
			response.write "OK"
		End if
		
	Case "masterdatasync"
		If LookUp("Status","MAINTENANCE","Code = 'MasterDataSync'") = 1 then
			response.write "ON"
		Else
			response.write "OFF"
		End if
		
	Case "productsync"
		If LookUp("Status","MAINTENANCE","Code = 'ProductSync'") = 1 then
			response.write "ON"
		Else
			response.write "OFF"
		End if
		
End Select

I have this asp file, how can i call it in my vb6 application?

[jggtz]

Did you read the article inside the link in post #4 ?
In a vb6 app, once referenced SOAP toolkit, with 3 lines max you can call the web service and recieve response

JG

[dilettante]

"Web Service" can be a vague term.

SOAP is just one form they can take. Using the SOAPClient30 in a mindless fashion can work but only when nothing but simple data types are involved, and it still requires a hosted WSDL at the server site.


Using any of this in a copy/paste fashion is going to lead to lots of trial and error. You might try learning how it works first. For what you want the SOAP Toolkit is no help at all.

You have a simple HTTP GET to do here passing your strValue as a query string. No SOAP at all, and not even REST. For this you could use the AsyncRead method in VB6, the INet control, an XMLHTTPRequest object, a WinHTTPRequest object, the list goes on and on.

Example:

Private Function Request(ByVal URL As String, ByVal Value As String) As String
    With New WinHttp.WinHttpRequest
        .Open "GET", URL & "?strValue=" & Value, False
        .Send
        Request = .ResponseText
    End With
End Function

See: WinHttpRequest Object

[rothj0hn]

How to add WinHttp.WinHttpRequest?

[dilettante]

Microsoft WinHTTP Services, version 5.1