()移除从<WebMethod()>到End Class之间的行(因为这只是一个默认的测试Web服务)并且使用如下的代码替换
<WebMethod()> _
Public Function Fixtures() As DataSet
Dim conn As New SqlConnection(ConfigurationManagerConnectionStrings(WroxUnited)ConnectionString)
Dim adapter As New SqlDataAdapter(SELECT FixtureDate Opponents FixtureType GoalsFor GoalsAgainst FROM Fixtures ORDER BY FixtureDate conn)
Dim ds As New DataSet()
adapterFill(ds Fixtures)
Return ds
End Function
()接下来将页面顶部的命名空间属性改为如下
<WebService(Namespace:=http://wroxunitednet/)> _
()最后保存该文件
[] [] []