使用ADO.NET解锁 Microsoft Access数据(二)

2020-03-24 16:18:22

字体：大中小

来源：转载

供稿：网友

数据表单向导Visual Studio .NET 数据表单向导允许您快速连接到数据库，并生成简单的用户界面，用于显示数据并与数据进行交互。要使用数据表单向导，请执行以下步骤：
在 Windows html' target='_blank'>应用程序项目中，在 Project（项目）菜单上，单击 Add Windows Form（添加 Windows 窗体）。
在 Templates（模板）窗格中，单击 Data Form Wizard（数据窗体向导），单击 Open（打开），然后单击 Next（下一步）。
在 Create a new dataset named（创建新数据集）框中，键入 DataSet1，然后单击 Next（下一步）。
选择现有的数据连接或创建新数据连接，然后单击 Next（下一步）。
选择要向 DataSet1 填充的项，然后单击 Next（下一步）。
如果选择多项，请定义各项之间的关系，然后单击 Next（下一步）。
定义要在表单中显示的表和列，然后单击 Next（下一步）。
选择显示样式选项，然后单击 Finish（完成）。
注意：请确保将新数据表单设置为启动表单，方法如下：在 Project（项目）菜单中，单击 Properties（属性）。展开 Common Properties（通用属性）文件夹，单击 General（常规），在 Startup object（启动对象）列表中选择该数据表单，然后单击 OK（确定）。
注意：请确保将 DataSet1 中的数据绑定到数据表单，这可以通过向数据表单的 Load 事件插入以下代码来实现：Me.OleDbDataAdapter1.Fill(objDataSet1)
运行应用程序：在 Debug（调试）菜单上，单击 Run（运行）。
扩展的 ADO.NET 代码示例为了向您演示更多的 ADO.NET 代码，在本月专栏的最后，我将介绍几个在 ADO.NET 中创建的扩展的代码示例。
使用 DataReader 对象以仅向前移动的、只读的格式访问数据很多时候，您只是希望简单地浏览数据，而并不需要在数据间来回浏览，也不需要更改数据（我们将此称为“流水数据”）。ADO.NET 的 DataReader 对象是专门为此设计的。下面是我编写的一段示例代码，可以逐个读取连接的数据库中的所有选定数据：
' Visual Basic .NET 代码。
' 控制台应用程序。
' 引用：
' System
' System.Data
' System.XMLImports 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
本文作者:html教程

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

上一篇：Access 2007 功能区运用祥细讲解下

下一篇：将现有的Access数据库升级为SQL