被吹嘘的 web service 终于在我面前退去神秘的面纱。
建立一个webservice 服务需要创建一个 XML Web Service 的网站 ,
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
Imports System.Data.SqlClient
<WebService(Namespace:="http://hanxuema.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Customers
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function Getcustomer() As DataSet
Dim conn As SqlConnection
Dim mydataAdapter As SqlDataAdapter
Dim mydataset As DataSet
Dim cmdstring As String = "select * from users"
conn = New SqlConnection("Server=localhost;uid=sa;pwd=sa;database=friends")
mydataAdapter = New SqlDataAdapter(cmdstring, conn)
mydataset = New DataSet
mydataAdapter.Fill(mydataset, "Customers")
Return mydataset
End Function
End Class
调用之前,在项目中添加Web 引用,然后把webservice的地址输入,取个名字,阿猫阿狗都行,
调用的时候, 阿猫.方法名(参数) 就ok 了