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））

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