【标题】：web 服务实现步骤
【关键字】：web
【来源】：http://www.cnitblog.com/piaoye12345/archive/2005/11/28/4967.html

web 服务实现步骤

1，新增一个项目－》新增页面时，选择web 服务－》修改该服务的名称－》确定
2，打开该页面，点击“此处”，切换到代码页面
3，你会看到如下的提示：
<System.Web.Services.WebService(Namespace := "http://tempuri.org/SMS/webService1")> _
.................................................

' Web 服务示例
    ' HelloWorld() 示例服务返回字符串 Hello World。
    ' 若要生成项目，请取消注释以下行，然后保存并生成项目。
    ' 若要测试此 Web 服务，请确保 .asmx 文件是起始页
    ' 并按 F5 键。
    '
' <WebMethod()> _
  ' Public Function HelloWorld() As String
   '     Return "Hello World"
  ' End Function
4，你按照他的提示，把该web服务页设为起始页
<WebMethod()> _
   Public Function HelloWorld() As String
      Return "Hello World"
  End Function
5，并按 F5 键，运行，可以看到HelloWorld这个选项，如果你注释掉<WebMethod()> _就看不到该项，这是为了给调用该服务的人了解，该服务提供那些服务，供其他人使用。
6，http://tempuri.org/SMS/webService1，这个地址可以修改，我修改为本机的IP地址，http://172.23.196.49/SMS/webService1别人引用该地址就可以调用该服务提供的所有服务
7，我试写一个正常的服务，

<WebMethod()> _

Function GetFlowCode(ByVal bl As String) As String

'bl 变量

Dim myds As DataSet = New DataSet

Dim tt As String = "%" + bl.Trim + "%"

mysql = "SELECT DeptID, FlowKind, OrderID, CheckID FROM Flow "

mysql &= "WHERE (1=1) AND ((DeptID LIKE @DeptID) OR (FlowKind LIKE @FlowKind)) ORDER BY DeptID,FlowKind, OrderID"

mycomm = New SqlCommand(mysql, myconn1)

mycomm.Parameters.Add("@FlowKind", tt.Trim) '流程别

mycomm.Parameters.Add("@DeptID", tt.Trim) '部门ID

Dim myda As SqlDataAdapter = New SqlDataAdapter(mycomm)

Try

myconn1.Open()

myda.Fill(myds)

myconn1.Close()

Catch ex As Exception

If myconn1.State = ConnectionState.Open Then

myconn1.Close()

End If

End Try

Return myds.GetXml

End Function

该服务是从数据库中读取一些必要的数据，转成xml字符串，供其他人调用该服务提供的数据。按 F5 键，运行正常。
8，在要调用该服务的项目下，引用－》添加web引用，把这个服务的IP地址http://172.23.196.49/SMS/webService1拷贝到URL中－》转倒成功－》修改web引用名（我的为默认Web References）－》添加引用
9，调用该服务

'调用Web服务得到流程表

Dim ws As WebSign.WebSignServiceClass = New WebSign.WebSignServiceClass

Dim str_result As String = ws.GetFlowCode(Me.TextBox1.Text.Trim) '接收返回的XML文本

'将XML文本导入已实例化的Dataset

Dim myds As DataSet = New DataSet

Dim stringreadr As System.IO.StringReader = New System.IO.StringReader(str_result)

Dim xmltextrder As System.Xml.XmlTextReader = New System.Xml.XmlTextReader(stringreadr)

myds.ReadXml(xmltextrder)

该websign应该为WebReferences
如果想绑定倒datagrid：
Me.DataGrid1.DataSource = myds.Tables(0).DefaultView
Me.DataGrid1.DataBind()
基本如此，但是应该还有更深的web服务，希望和大家一起讨论

水晶报表步步来：【上一篇】
Xml 的几种调用方法：【下一篇】

【相关文章】

技术评论与随想——AJAX、Rails、WebFramework、SSE