使用ADO.NET解鎖 Microsoft Access數(shù)據(jù)(二)

2020-03-24 16:18:22

字體：大中小

供稿：網(wǎng)友

數(shù)據(jù)表單向?qū)isual Studio .NET 數(shù)據(jù)表單向?qū)г试S您快速連接到數(shù)據(jù)庫(kù)，并生成簡(jiǎn)單的用戶界面，用于顯示數(shù)據(jù)并與數(shù)據(jù)進(jìn)行交互。要使用數(shù)據(jù)表單向?qū)В?qǐng)執(zhí)行以下步驟：
在 Windows html' target='_blank'>應(yīng)用程序項(xiàng)目中，在 Project（項(xiàng)目）菜單上，單擊 Add Windows Form（添加 Windows 窗體）。
在 Templates（模板）窗格中，單擊 Data Form Wizard（數(shù)據(jù)窗體向?qū)В瑔螕?Open（打開），然后單擊 Next（下一步）。
在 Create a new dataset named（創(chuàng)建新數(shù)據(jù)集）框中，鍵入 DataSet1，然后單擊 Next（下一步）。
選擇現(xiàn)有的數(shù)據(jù)連接或創(chuàng)建新數(shù)據(jù)連接，然后單擊 Next（下一步）。
選擇要向 DataSet1 填充的項(xiàng)，然后單擊 Next（下一步）。
如果選擇多項(xiàng)，請(qǐng)定義各項(xiàng)之間的關(guān)系，然后單擊 Next（下一步）。
定義要在表單中顯示的表和列，然后單擊 Next（下一步）。
選擇顯示樣式選項(xiàng)，然后單擊 Finish（完成）。
注意：請(qǐng)確保將新數(shù)據(jù)表單設(shè)置為啟動(dòng)表單，方法如下：在 Project（項(xiàng)目）菜單中，單擊 Properties（屬性）。展開 Common Properties（通用屬性）文件夾，單擊 General（常規(guī)），在 Startup object（啟動(dòng)對(duì)象）列表中選擇該數(shù)據(jù)表單，然后單擊 OK（確定）。
注意：請(qǐng)確保將 DataSet1 中的數(shù)據(jù)綁定到數(shù)據(jù)表單，這可以通過(guò)向數(shù)據(jù)表單的 Load 事件插入以下代碼來(lái)實(shí)現(xiàn)：Me.OleDbDataAdapter1.Fill(objDataSet1)
運(yùn)行應(yīng)用程序：在 Debug（調(diào)試）菜單上，單擊 Run（運(yùn)行）。
擴(kuò)展的 ADO.NET 代碼示例為了向您演示更多的 ADO.NET 代碼，在本月專欄的最后，我將介紹幾個(gè)在 ADO.NET 中創(chuàng)建的擴(kuò)展的代碼示例。
使用 DataReader 對(duì)象以僅向前移動(dòng)的、只讀的格式訪問(wèn)數(shù)據(jù)很多時(shí)候，您只是希望簡(jiǎn)單地瀏覽數(shù)據(jù)，而并不需要在數(shù)據(jù)間來(lái)回瀏覽，也不需要更改數(shù)據(jù)（我們將此稱為“流水?dāng)?shù)據(jù)”）。ADO.NET 的 DataReader 對(duì)象是專門為此設(shè)計(jì)的。下面是我編寫的一段示例代碼，可以逐個(gè)讀取連接的數(shù)據(jù)庫(kù)中的所有選定數(shù)據(jù)：
' Visual Basic .NET 代碼。
' 控制臺(tái)應(yīng)用程序。
' 引用：
' System
' System.Data
' System.XMLImports System.Data.OleDb ' 用于 OleDb 對(duì)象。
Imports Microsoft.VisualBasic.ControlChars ' 用于 CrLf 常量。Module Module1 Sub Main() ' 創(chuàng)建并初始化 OleDbConnection、OleDbCommand
' 和 OleDbDataReader 對(duì)象。
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() ' 執(zhí)行命令并將數(shù)據(jù)讀取器附加到
' 所選數(shù)據(jù)。
Dim objCmd As New OleDbCommand("SELECT * FROM Products", _
objConn)
Dim objReader As OleDbDataReader = objCmd.ExecuteReader ' 讀取數(shù)據(jù)并列出值。
Call ReadData(objReader) End Sub Public Sub ReadData(ByVal objReader As OleDbDataReader) ' 目的：列出給定數(shù)據(jù)讀取器的數(shù)據(jù)值。
' 接受：objReader - 數(shù)據(jù)讀取器。 Dim intField As Integer ' 行中的當(dāng)前字段。
Dim intColumn As Integer ' 當(dāng)前列的名稱。
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教程

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。

上一篇：Access 2007 功能區(qū)運(yùn)用祥細(xì)講解下

下一篇：將現(xiàn)有的Access數(shù)據(jù)庫(kù)升級(jí)為SQL