創建 Northwind 的OLE DB 數據鏈接
訪問數據的一個重要步驟是為想要訪問的每個數據庫都創建一個 OLE DB數據源。下面的步驟為 Visual Basic 所提供的Nwind.mdb (Northwind) 數據庫創建這樣一個對象。這個數據源被用於 Visual Basic 文檔所提供的一些示例過程。在一個計算機上只需要創建一次OLE DB數據源。
要創建 Northwind 的OLE DB 數據源
1. 打開 Windows Explorer或 Windows NT Explorer。
2. 打開您想要創建 OLE DB 數據源的目錄。在該示例中，打開 ProgramFiles、Microsoft Visual Studio和VB98。
3. 右鍵單擊 Explorer 的右邊窗格，然後單擊上下文菜單上的“新建”。從文件類型列表中單擊“Microsoft 數據鏈接”。
4. 重命名新文件 Northwind.MDL。
5. 右鍵單擊文件並單擊上下文菜單上的“屬性”，以顯示“Northwind.MDLProperties”對話框。
6. 單擊“連接”選項卡。
7. 單擊“提供方”框並選擇“Microsoft Jet 3.51 OLE DB Provider”。
8. 在Data Source 框中輸入nwind.mdb文件的路徑。
9. 單擊“測試連接”，檢測連接。
10. 如果連接通過，單擊“確定”。
注意 也可以通過在“控制面板”中單擊“數據鏈接”圖標創建一個 OLE DB數據源。在“管理數據鏈接文件”對話框中，單擊“新建”創建一個新的數據源。
使用 DataGrid 和 ADO Data控件創建一個簡單的數據庫應用程序
只使用一個 DataGrid 和一個 ADO Data 控件，可以創建一個允許最終用戶閱讀和寫入記錄集的數據庫應用程序。
要使用 ADO 數據控件來創建一個簡單的數據庫應用程序
1. 為 Northwind 數據庫創建一個OLE DB 數據源。如果還沒有創建數據源，請按照“創建 Northwind 的OLE DB Data Link”中的步驟操作。
2. 在Visual Basic 中創建一個新的標准的 EXE 工程。如果 DataGrid 控件不在“工具箱”中，則用右鍵單擊“工具箱”，然後使用“部件”對話框來添加控件。同時也載入 ADO 控件。
3. 在空窗體上各放置控件的一個實例。
4. 將 ADO 控件的ConnectionString 屬性設置為 Northwind 的數據源。單擊並選定該 ADO Data 控件，並按 F4 鍵出現“屬性”窗口。單擊“ConnectionString”，然後單擊 OLE DB File。單擊 Northwind 的數據源。
5. 設置 ADO 控件的 RecordSource 屬性。在“屬性”窗口中，單擊“記錄源”並輸入一條 SQL 語句來填充 DataGrid
控件。在本例中，輸入“Select * From Products”。
6. 將 DataGrid 控件的 DataSource 屬性設置為這個 ADO Data 控件。單擊並選定該 DataGrid 控件。在其“屬性”窗口中，單擊“數據源”將出現一個包含所有數據控件的下拉列表——在本例中只有 ADO Data 控件。單擊這個控件。
7. 按 F5 鍵運行這個工程。
創建一個連接 DataList 控件的 DataGridData
Grid 的通常用法是顯示數據庫的一個表所提供的“詳細內容”。例如，Northwind (Nwind.mdb) 數據庫包括兩個表，一個名為 "Suppliers"，另一個名為 "Products"。在本例中，我們使用 DataList 控件來顯示 "Suppliers" 表中的供應商的公司名稱。當用戶單擊任意一個公司名稱時，這個 DataList 控件將提供該公司的 SupplierID。使用這個標識符，就可以構造一個查詢，在 "Products" 表中檢索具有相匹配的 SupplierID 的所有記錄。換句話說，當用戶單擊一個公司時（在 DataList 控件中），該公司生產的所有產品將出現在 DataGrid 控件中。
要使用一個指定供應商的產品填充一個 DataGrid 控件
1. 確認在機器上已為 Northwind 數據庫建立了一個OLE DB 數據源；如果還沒有創建這樣的一個數據源，請按照“創建 Northwind 的OLE DBData連接”的步驟操作。
2. 在Visual Basic 中創建一個新的標准的 EXE 工程。
如果 DataGrid、DataList 和 ADO Data 控件不在“工具箱”中，則右鍵單擊“工具箱”，然後單擊“部件”。在“部件”對話框中雙擊“MicrosoftDataGrid Control”、“Microsoft DataList Controls”以及“Microsoft ADOControl”。
3. 在一個空窗體中各放置一個 DataGrid 和 DataList 控件的實例。將 DataList 控件放置在該窗體的左上角，然後將 DataGrid 控件放在它的下面的某處。
4. 在窗體放置兩個 ADO Data 控件實例。選擇第一個 ADO Data 控件，並按 F4 鍵來顯示其“屬性頁”。將該控件的 Name 屬性設置為 adoSuppliers。選擇第二個 ADO Data 控件並將其 Name 屬性設置為 adoProducts。將第一個控件直接放在 DataList 控件的下面，把第二個控件直接放在 DataGrid 控件的下面。
5. 將這兩個 ADO Data 控件的 ConnectionString 屬性設置為 Northwind的OLE DB 數據源。選擇名為 adoSuppliers 的控件，然後將其ConnectionString 屬性設置為Northwind 的OLE DB data source (Northwind.mdl)。選擇名為 adoProducts的控件，並重復該操作。
6. 設置這兩個 ADO Data 控件的 RecordSource 屬性。選擇 adoSuppliers 並在其“屬性頁”上單擊“RecordSoure”。輸入 Select* From Suppliers。這個查詢將指示該 ADO Data 控件返回 Suppliers 表中的所有記錄。選擇 adoProducts，單擊“RecordSoure”，並輸入 Select *From Products。這個查詢將返回在 Products 表中的所有記錄。
7. 將 DataList 控件的 RowSource 屬性設置為 adoSuppliers。
RowSource 屬性決定由哪一個數據源為 ListField 屬性供應數據。
8. 將 DataList 控件的 ListField 屬性設置為 CompanyName。
ListField 屬性被設置成名為 Suppliers 的表中的字段名稱。在運行時，DataList 控件顯示在這個屬性中所指定的字段的值。在本例中，該屬性將顯示在 Suppliers 表中找到的一個公司名稱。
9. 將 DataList 控件的 BoundColumn 屬性設置為 SupplierID。
BoundColumn 屬性被設為 Suppliers 表中的第二個字段。在本例中，這個屬性就被設為 SupplierID 字段。當單擊 DataList 控件時，BoundText屬性返回與在 DataList 控件中所顯示的公司相關聯的 SupplierID 字段的值。這個值將用於對 Products 表的查詢，該查詢為 DataGrid 控件提供數據。
10. 將 DataGrid 控件的 DataSource 屬性設置為 adoProducts。
DataSource 屬性為該控件指定數據源。在本例中，該屬性被設置為名為adoProducts 的 ADO Data 控件，這將返回 Products 表中的所有記錄。
11. 在窗體的代碼模塊中，添加下述內容：
Private Sub Datalist1_Click()
' 聲明一個用來包含新查詢的字符串變量。這個新的
' 查詢使用 DataList 控件的BoundText屬性
' 來提供一個 SupplierID 值。新查詢查找所有
' 具有相同的 SupplierID 的產品。這個查詢被
' 指定給名為 adoProducts 的 ADO Data 控件
' 的 RecordSource 屬性。在刷新控件後，DataGrid
' 將使用包含由同一個公司供應的所有產品的新
' 記錄集來更新。
Dim strQuery As String
strQuery = "Select * FROM Products WHERE SupplierID = " & _
Datalist1.BoundText
With adoProducts
.RecordSource = strQuery
.Refresh
End With
With DataGrid1
.ClearFields
.ReBind
End With
End Sub
12. 運行該工程。
單擊 DataList 控件中的任意公司名稱，將自動用該公司所供應的產品更新 DataGrid 控件。
