web 服务实现步骤

萌芽的叶子 — Mon, 28 Nov 2005 07:52:00 GMT

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

' Web 服务示例
    ' HelloWorld() 示例服务返回字符串 Hello World。
    ' 若要生成项目，请取消注释以下行，然后保存并生成项目。
    ' 若要测试此 Web 服务，请确保 .asmx 文件是起始页
    ' 并按 F5 键。
    '
' _
  ' Public Function HelloWorld() As String
   '     Return "Hello World"
  ' End Function
4，你按照他的提示，把该web服务页设为起始页
_
   Public Function HelloWorld() As String
      Return "Hello World"
  End Function
5，并按 F5 键，运行，可以看到HelloWorld这个选项，如果你注释掉 _就看不到该项，这是为了给调用该服务的人了解，该服务提供那些服务，供其他人使用。
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服务，希望和大家一起讨论

萌芽的叶子 2005-11-28 15:52 发表评论

IT博客-飘着的叶子，什么时候才落地-随笔分类-web 服务

web 服务实现步骤