web 服务实现步骤 - 飘着的叶子，什么时候才落地

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服务，希望和大家一起讨论

posted on 2005-11-28 15:52 萌芽的叶子阅读(321) 评论(0) 编辑收藏引用所属分类: web 服务

常用链接

留言簿(3)

随笔分类(115)

随笔档案(116)

文章分类(4)

相册

收藏夹(78)

.net中文社区

.net博客

.net英文社区

AJAX

ASP.NET 2.0

ASP.NET 学习

DataBase

ERP

E杂志

Html&Css

JavaScript

Microsoft

Open Sourse

SAP

WebCasts

WebServices

XML

其他

好友Blog

好文章连接

开发工具

控件

物流

职业经理人

设计模式

读书网站

非技术

项目管理

搜索

积分与排名

最新评论

阅读排行榜

评论排行榜