熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

ASP.NET入門教程 12.8 綜合整理[1]

2013-11-13 10:54:15  來源: .NET編程 

    下面是一個快速概述到目前為止分別介紹了創建測試發現和使用Web服務的每個步驟並且可能己經造成了如下錯覺有許多單獨的步驟需要執行實際情況並不是如此因為必須提取每個步驟來解釋相應的操作現在可以將它們結合在一個大型的可改變的示例中並且創建一個單獨的用戶控件可以將該用戶控件放置在任何應用程序中

    許多體育站點的一個常見特性是如下功能訪問聯盟表並且顯示一些小型化的視圖其中顯示隊伍在聯盟中的名次雖然Wrox United聯盟表不是大型的(只包含個隊伍)但確實可以創建一個Web服務將顯示聯盟中位於Wrox United上面和下面的隊伍當然這兒有兩個限制性條件一個是在Wrox United位於聯盟第一位這個不太可能的事件中需要顯示位於它下面的兩個隊伍在Wrox United位於聯盟最後一位這種更有可能的情況下則應該顯示位於它上面的兩個隊伍然而將在接觸到這些特定的情況時跳過它們

    ()轉到Solution Explorer右擊最上面一行選擇Add New Item命令然後選擇Web Service選項將名稱改為LeagueMiniView單擊OK

    ()在頁面的最頂端和己有Imports語句的下面添加額外的命名空間 

      Imports SystemData
      Imports SystemDataSqlClient

    ()需要向WebMethod添加如下代碼(注意SQL字符串應該全部在一行上)

 

<WebMethod()> _

    Public Function ViewLeague() As DataSet

 

        Dim conn As New

SqlConnection(ConfigurationManagerConnectionStrings(WroxUnited)ConnectionString)

        Dim sqlstring As String

 

        sqlstring = SELECT [OpponentID] [Name] [TotalGoalsFor] [TotalGoalsAgainst] [TotalGoalsFor][TotalGoalsAgainst] AS [GoalDifference] [Points] FROM [Opponents] Order By [Points] DESC [GoalDifference] DESC [TotalGoalsFor] DESC

 

        Dim adapter As New SqlDataAdapter(sqlstring conn)

        Dim adapter As New SqlDataAdapter(sqlstring conn)

 

        Dim ds As New DataSet

        Dim ds As New DataSet

        Dim position As Integer

        Dim offset As Integer

        Dim rows As DataRowCollection

 

        adapterFill(ds ViewLeague)

        rows = dsTables(ViewLeague)Rows

 

        For i As Integer = To rowsCount

            If rows(i)(Name)ToString() = Wrox United Then

                position = i +

            End If

        Next

 

        If position > And position < rowsCount Then

            offset = position

        ElseIf position = Then

            offset = position

        Else

            offset = position

        End If

        adapterFill(ds offset ViewLeague)

 

        dsTables(ViewLeague)ColumnsAdd(Position GetType(Integer))

        rows = dsTables(ViewLeague)Rows

        For i As Integer = To rowsCount

            rows(i)(Position) = offset + i +

        Next

        Return ds

    End Function

End Class

     ASPNET 入門教程完整版 

[]  []  []  []  []  []  


From:http://tw.wingwit.com/Article/program/net/201311/14738.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.