使用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