使用 ADO.NET 解锁 Microsoft Access 数据（2）
2024-07-10 13:02:49
供稿：网友
使用 datareader 对象以仅向前移动的、只读的格式访问数据
很多时候，您只是希望简单地浏览数据，而并不需要在数据间来回浏览，也不需要更改数据（我们将此称为“流水数据”）。ado.net 的 datareader 对象是专门为此设计的。下面是我编写的一段示例代码，可以逐个读取连接的数据库中的所有选定数据：
' visual basic .net 代码。
' 控制台应用程序。
' 引用：
' system
' system.data
' system.xml
imports system.data.oledb ' 用于 oledb 对象。
imports microsoft.visualbasic.controlchars ' 用于 crlf 常量。
module module1
sub main()
' 创建并初始化 oledbconnection、oledbcommand
' 和 oledbdatareader 对象。
dim objconn as new _
oledbconnection("provider=microsoft.jet.oledb.4.0;" & _
"user id=admin;" & _
"data source=c:/program files/microsoft" & _
"office/office10/samples/northwind.mdb")
objconn.open()
' 执行命令并将数据读取器附加到
' 所选数据。
dim objcmd as new oledbcommand("select * from products", _
objconn)
dim objreader as oledbdatareader = objcmd.executereader
' 读取数据并列出值。
call readdata(objreader)
end sub
public sub readdata(byval objreader as oledbdatareader)
' 目的：列出给定数据读取器的数据值。
' 接受：objreader - 数据读取器。
dim intfield as integer ' 行中的当前字段。
dim intcolumn as integer ' 当前列的名称。
dim blncolumns as boolean = false ' 列名称是否已
' 列出。
with objreader
' 一次读取一行，直至文件末尾。
do while .read = true
for intfield = 0 to .fieldcount - 1
' 首先列出列名称。
if blncolumns = false then
for intcolumn = 0 to .fieldcount - 1
if intcolumn = .fieldcount - 1 then
console.write(.getname(intcolumn) & _
crlf)
else
console.write(.getname(intcolumn) & _
", ")
end if
next intcolumn
' 只列出一次列名称。
blncolumns = true
end if
' 列出当前行中每个字段的值。
if intfield = .fieldcount - 1 then
console.write(.item(intfield) & crlf)
else
console.write(.item(intfield) & ", ")
end if
next intfield
loop
end with
' 暂停，以便用户在控制台窗口中查看数据。
console.write("按任意键继续...")
console.read()
end sub
end module
下面是该代码的工作方式：
正如前面的代码示例所示，imports 代码（例如，imports system.data.oledb）有助于减少访问对象或对象的成员时所需的工作量。类似地，对 oledbconnection、oledbcommand 和 oledbdatareader 对象进行声明和初始化，以分别代表数据库连接、数据记录和记录游标。此代码的真正核心是 readdata 子例程。
do 循环使用 oledbdatareader 对象的 read 方法一次读取一行数据，直到该方法返回 false（表示已没有其他数据可读取）。
oledbdatareader 对象的 fieldcount 属性返回数据行中数据字段（列）的数目。如果是第一行数据，则在列上调用 oledbdatareader 对象的 getname 属性，以返回列的名称。
oledbdatareader 对象的 item 属性与 fieldcount 属性结合，使用一个索引编号返回数据行中每个数据字段的值。
使用 dataadapter、dataset、datatable、datarow 和 datacolumn 对象处理数据集
ado.net 的 dataset 对象是为断开连接的数据而设计的。您可以在一个数据集中模拟整个数据库的结构和数据，包括表、行、列、字段，甚至关系。处理完数据后，可以使数据集中的数据与原始数据库中的数据同步。下面是我编写的一段示例代码，可以逐个读取断开连接的数据集中的所有数据。
' visual basic .net 代码。
' 控制台应用程序。
' 引用：
' system
' system.data
' system.xml
imports system.data.oledb ' 用于 oledb 对象。
imports microsoft.visualbasic.controlchars ' 用于 crlf 常量。
module module1
sub main()
' 创建并初始化 oledbdataadapter 和 dataset 对象。
dim objadapter as new oledbdataadapter _
("select * from products", _
"provider=microsoft.jet.oledb.4.0;" & _
"user id=admin;" & _
"data source=c:/program files/microsoft" & _
"office/office10/samples/northwind.mdb")
dim objdataset as new dataset()
' 将所选数据复制到数据集。
objadapter.fill(objdataset)
' 列出数据集中的数据值。
call listdata(objdataset)
end sub
public sub listdata(byval objdataset as dataset)
' 目的：列出给定数据集的数据值。
' 接受：objdataset - 数据集。
dim objtable as datatable
dim introw, intcolumn as integer
' 数据集中可能包含有多个表。
for each objtable in objdataset.tables
with objtable
console.write("表" & _
.tablename "中的数据" & ":" & crlf)
' 首先列出列名称。
for intcolumn = 0 to .columns.count - 1
if intcolumn = .columns.count - 1 then
console.write(.columns(intcolumn).columnname _
& crlf)
else
console.write(.columns(intcolumn).columnname _
& ", ")
end if
next intcolumn
' 按行列出数据...
for introw = 0 to .rows.count - 1
' ...然后按字段列出每行中的数据。
for intcolumn = 0 to _
.rows(introw).itemarray.length - 1
if intcolumn = _
.rows(introw).itemarray.length - 1 then
console.write(.rows(introw). _
itemarray(intcolumn) _
& crlf)
else
console.write(.rows(introw). _
itemarray(intcolumn) & ", ")
end if
next intcolumn
next introw
end with
next objtable
' 暂停，以便用户在控制台窗口中查看数据。
console.write("按任意键继续...")
console.read()
end sub
end module
下面是该代码的工作方式：
同样，imports 代码（例如，imports system.data.oledb）有助于减少访问对象或对象的成员时所需的工作量。类似地，对 oledbdataadapter 和 dataset 对象进行声明和初始化，分别代表数据库与数据集之间的适配器以及数据集。oledbadapter 对象的 filldata 方法将数据库中的数据复制到数据集。此代码的核心是 listdata 子例程。
通过使用 dataset 对象的 tables 属性，最外层的 for...each 循环将遍历数据集中的每个表，并将每个表作为 datatable 对象返回。
datatable 对象的 columns 属性返回一个 datacolumncollection，代表表中的所有列。通过结合使用 columns 属性和一个索引编号（即结合 datacolumncollection 集合的 count 属性，如代码中所示），将返回一个 datacolumn 对象。datacolumn 对象的 columnname 属性返回列的名称。
同样，datatable 对象的 rows 属性返回一个 datarowcollection，代表表中的所有行。通过结合使用 rows 属性和一个索引编号（即结合 datarowcollection 集合的 count 属性，如代码中所示），将返回一个 datarow 对象。datarow 对象的 itemarray 属性返回一个 object 类型的数组，代表数据行中的每个值。通过结合使用 itemarray 属性和一个索引编号（即结合 datacolumncollection 集合的 count 属性，如代码中所示），将返回单个数据字段值。
更多信息
有关 ado.net 的更多信息，请参阅以下内容：
ado.net（英文，链接列表）
ado.net for the ado programmer（英文，技术文章）
accessing data with ado.net（英文，链接列表）
views and filters（英文，技术文章）
data relations and relatives（英文，技术文章）
--转自微软中国
