service1.asmx.vb

适合VB初学者看

Imports System.Web.Services

<WebService(Namespace := "http://tempuri.org/")> _
Public Class Service1
    Inherits System.Web.Services.WebService

#Region " Web 服务设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Web 服务设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加您自己的初始化代码

    End Sub

    'Web 服务设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Web 服务设计器所必需的
    '可以使用 Web 服务设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet11 As dbWebService.DataSet1
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.DataSet11 = New dbWebService.DataSet1()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "tSite", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("fID", "fID"), New System.Data.Common.DataColumnMapping("fTitle", "fTitle"), New System.Data.Common.DataColumnMapping("fImage", "fImage"), New System.Data.Common.DataColumnMapping("fIntro", "fIntro"), New System.Data.Common.DataColumnMapping("fHotel", "fHotel"), New System.Data.Common.DataColumnMapping("fAddress", "fAddress"), New System.Data.Common.DataColumnMapping("fBus", "fBus"), New System.Data.Common.DataColumnMapping("fPhone", "fPhone"), New System.Data.Common.DataColumnMapping("fPrice", "fPrice")})})
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT fID, fTitle, fImage, fIntro, fHotel, fAddress, fBus, fPhone, fPrice FROM t" & _
        "Site"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=LXW\NetSDK;initial catalog=pubs;integrated security=SSPI;persist secu" & _
        "rity info=False;workstation id=LXW;packet size=4096"
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet11.Namespace = "http://www.tempuri.org/DataSet1.xsd"
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        'CODEGEN: 此过程是 Web 服务设计器所必需的
        '不要使用代码编辑器修改它。
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

#End Region

    ' Web 服务示例
    ' HelloWorld() 示例服务返回字符串 Hello World。
    ' 若要生成项目，请取消注释以下行，然后保存并生成项目。
    ' 若要测试此 Web 服务，请确保 .asmx 文件为起始页
    ' 并按 F5 键。
    '
    '<WebMethod()> Public Function HelloWorld() As String
    '	HelloWorld = "Hello World"
    ' End Function
    <WebMethod()> Public Function GetData() As DataSet
        '打开与数据库的连接，取出输出
        SqlConnection1.Open()
        DataSet11.EnforceConstraints = False
        Try
            Me.SqlDataAdapter1.Fill(DataSet11) '用DataAdapter来填充DataSet
        Catch fillException As System.Exception
            Throw fillException
        Finally
            DataSet11.EnforceConstraints = True
            Me.SqlConnection1.Close() '用完数据库之后马上关闭
        End Try
        GetData = DataSet11 '返回这个实例
    End Function

End Class