ASP.NET入門教程 9.2.3 循環[7]

    （）在代碼文件的頂端添加以下兩個Imports語句（不需要考慮它們的作用在稍後的命名空間部分將會介紹）

    Imports SystemData
    Imports SystemDataSqlClient

    （）保存這些文件並運行該頁面

    輸出結果很簡單但我們關心的是代碼因此接下來我們看看代碼如何工作

    操作回顧

    首先對變量進行聲明使用了一個數據庫連接一條獲取fixture的命令以及一個迭代fixture的讀取器

 

Dim conn As New SqlConnection(ConfigurationManagerConnectionStrings(WroxUnited)ConnectionString)

        Dim cmd As New SqlCommand(select * from Fixtures conn)

        Dim rdr As SqlDataReader

    接下來使用一些變量保存贏輸平的次數得分以及獲勝率

    Dim wins As Integer =
    Dim losses As Integer =
    Dim draws As Integer =
    Dim goalsFor As Integer =
    Dim goalsAgainst As Integer =
    Dim winRatio As Integer

    一旦聲明了變量即打開數據庫並獲取數據

    connOpen（）
    rdr = cmdExecuteReader（CommandBehaviorCloseConnection）

    在數據讀取器讀滿數據時啟動循環Read方法在讀取了最後一條記錄後返回Boolean類型值False該過程將會繼續直到沒有記錄為止

    While rdrRead （）

    在該循環內總數逐漸遞增讀取器中的值在用於增加總數之前被轉換成整數

    goalsFor += ConvertToInt（rdr（GoalsFor））
    goalsAgainst += ConvertToInt（rdr（GoalsAgainst））

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

From:http://tw.wingwit.com/Article/program/net/201311/14539.html