Hello friends in this example I have
illustrated how to create a Webservice and how to consume it. I have included
the readme.txt file which explains the purpose of the Webservice and its usage.
Also in the ZIP file i have include the solution files for the Webservice and
the Application.
The attached project zip file has two
files. Readme.txt and WebService.zip. Readme explains how to use the code.
Sample code for
the Webservice CSC:
Public
Function GetCSC(Optional
ByVal Countryname As
String = "",
Optional ByVal
Statename As String
= "") As
DataSet
Dim ds
As New DataSet()
conStr =
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=WorldCSC;Data
Source=WEBMASTER;"
adconn = New
ADO.ADOConnection(constr)
adconn.Open()
If
countryname = ""
Then
sqlStr =
"Select * from Countrymaster"
Else
If
statename = "" Then
sqlStr =
"select * from Statemaster where countryId = (select
countryID from countrymaster where
countryname = '" & Trim(countryname) & "')"
Else
sqlStr =
"select * from citymaster where stateId = (select
stateid from statemaster where statename
= '"
& Trim(statename) & "')"
End
If
End
If
addataset =
New ADO.ADODataSetCommand(sqlstr, adconn)
If
Countryname = ""
Then
addataset.FillDataSet(ds,
"Countrymaster")
Else
If
statename = "" Then
addataset.FillDataSet(ds,
"StateMaster")
Else
addataset.FillDataSet(ds,
"CityMaster")
End
If
End
If
GetCSC = ds
End Function