使用 ADO.NET 解锁 Microsoft Access 数据（2）

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 对象是为断开连接的数据而设计的。您可以在一个数据集中模拟整个的结构和数据，包括表、行、列、字段，甚至关系。处理完数据后，可以使数据集中的数据与原始中的数据同步。下面是我编写的一段示例代码，可以逐个读取断开连接的数据集中的所有数据。 copyright dedecms

' Visual Basic .NET 代码。
' 控制台应用程序。
' 引用：
' System
' System.Data
' System.XML 内容来自dedecms

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\Samplesorthwind.mdb")
Dim objDataSet As New DataSet()

织梦好，好织梦

' 将所选数据复制到数据集。
objAdapter.Fill(objDataSet)

本文来自织梦

' 列出数据集中的数据值。
Call ListData(objDataSet) dedecms.com

End Sub 本文来自织梦

Public Sub ListData(ByVal objDataSet As DataSet) 内容来自dedecms

' 目的：列出给定数据集的数据值。
' 接受：objDataSet - 数据集。 织梦内容管理系统

Dim objTable As DataTable
Dim intRow, intColumn As Integer 本文来自织梦

' 数据集中可能包含有多个表。
For Each objTable In objDataSet.Tables

With objTable

dedecms.com

Console.Write("表" & _
.TableName "中的数据" & ":" & CrLf)

' 首先列出列名称。
For intColumn = 0 To .Columns.Count - 1

copyright dedecms

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 _

看完这篇，您有何感觉呢？