【正文】 n) 39。設(shè)置mand對象 () 39。打開數(shù)據(jù)庫連接 Dim sReader As SqlDataReader = () 39。執(zhí)行 mand對象設(shè)置的查詢語句，并將結(jié)果集返回給DataReader Do While 39。向 listbox中添加記錄 ((0) amp。 “ ” amp。 _ (1) amp。 amp。 (2)) Loop () 39。關(guān)閉 DataReader () 39。關(guān)閉數(shù)據(jù)庫連接 End Sub 使用 DataReader顯示數(shù)據(jù)庫表中記錄 4． DataAdapter（數(shù)據(jù)適配器）對象 DataAdapter是數(shù)據(jù)源和 DataSet之間的橋梁，可以從數(shù)據(jù)源檢索數(shù) 據(jù)并填充 DataSet中的表，也能將在 DataSet中所作的更改更新到 數(shù)據(jù)源。 DataAdapter使用 Connection對象連接到數(shù)據(jù)源，使用 Command對象實(shí)現(xiàn)數(shù)據(jù)檢索及更新。常用的屬性和方法如下 : SelectCommand屬性：獲取或設(shè)置一個(gè) TransactSQL語句或存儲過 程，用于在數(shù)據(jù)源中選擇記錄。 InsertCommand屬性：獲取或設(shè)置一個(gè) TransactSQL語句或存儲過 程，用于在數(shù)據(jù)源中插入新記錄。 DeleteCommand屬性：獲取或設(shè)置一個(gè) TransactSQL語句或存儲過 程，以從數(shù)據(jù)集刪除記錄。 UpdateCommand屬性：獲取或設(shè)置一個(gè) TransactSQL語句或存儲 過程，用于更新數(shù)據(jù)源中的記錄。 Fill方法：填充 DataSet或 DataTable。 Update方法：把在 DataSet中進(jìn)行的插入、更新或刪除操作更新到 相應(yīng)的數(shù)據(jù)源中。 ? DataSet（數(shù)據(jù)集）對象 DataSet對象是支持 、分布式數(shù)據(jù)方案的核 心對象。由于 DataSet獨(dú)立于數(shù)據(jù)源，所以 DataSet可以用于 多個(gè)不同的數(shù)據(jù)源。 DataSet是由表、關(guān)系和約束的集合所 組成。 D a t a S e tD a t a R e l a t i o nE x t e n d e d P r o p e r t i e sC o n s t r a i n t sD a t a R o w C o l l e c t i o nD a t a R o wD a t a C o l u m n C o l l e c t i o nD a t a C o l u m nD a t a R e l a t i o n C o l l e c t i o nD a t a T a b l eD a t a T a b l e C o l l e c t i o n【 例 】 下面一段代碼表示的是動態(tài)創(chuàng)建數(shù)據(jù)集和其中的表。 Dim nDset As New DataSet Dim nDtable As DataTable = (cInfo) 39。將新的 DataTable添加到 DataSet中 (o, ()) 39。創(chuàng)建表結(jié)構(gòu) (ame, ()) (credit, ()) Dim pk(1) As DataColumn 39。定義主碼 pk(0) = (o) = pk Dim nRow As DataRow = 39。添加一行紀(jì)錄 nRow(o) = 0006 nRow(ame) = 大學(xué)語文 nRow(credit) = 2 (nRow) 【 例 】 使用 DataAdapter對象填充 DataSet。將DataSet表 中的內(nèi)容，通過 DataGridView顯示出來。 新建項(xiàng)目，需要的控件及屬性如表所示。 控件類型 屬性 屬性值 Form Text DataAdapter填充 DataSet DataGridView Name dgvSinfo Button Name btnShow text 顯示 鼠標(biāo)單擊顯示按鈕時(shí)， DataGridView將顯示表中內(nèi)容。 Private Sub btnshow_Click(……) Handles Dim strConn As String = Data Source= YF154084。Initial ” amp。 _ “ Catalog=EAdmin。Integrated Security=True。 Dim conn As New SqlConnection(strConn) 39。創(chuàng)建 sql server數(shù)據(jù)庫連接 Dim strSel As String = select * from Sinfo 39。定義查詢語句 Dim m As New SqlCommand(strSel, conn) 39。設(shè)置mand對象 Dim da As SqlDataAdapter = New SqlDataAdapter 39。創(chuàng)建DataAdapter = m Dim ds As DataSet = New DataSet 39。創(chuàng)建 DataSet () 39。打開數(shù)據(jù)庫連接 (ds, Stu) 39。用 DataAdapter的 Fill方法填充 DataSet = (Stu) 39。設(shè)置 datagridview控件的數(shù)據(jù)源 () 39。關(guān)閉連接 End Sub DataAdapter填充 DataSet 數(shù)據(jù)源配置向?qū)? 在 導(dǎo)讀者創(chuàng) 建到數(shù)據(jù)庫的連接。向?qū)崾咀x者連接的數(shù)據(jù)庫類型，建 立連接，然后創(chuàng)建數(shù)據(jù)集來保存特定數(shù)據(jù)庫中信息。下面以 SQL Server數(shù)據(jù)庫為例來講解，采用本章創(chuàng)建的EAdmin數(shù)據(jù)庫。 ? 使用數(shù)據(jù)源配置向?qū)Ы⑦B接 啟動 ，創(chuàng)建名字為 Adosql的Windows應(yīng) 用程序項(xiàng)目。選擇菜單“數(shù)據(jù)” → “添加新數(shù)據(jù)源”命令。 如圖所示。選擇其中的“數(shù)據(jù)庫”，單擊“下一步”。 單擊“新建連接”按鈕，如果是首次單擊該按鈕，會出現(xiàn)選 擇數(shù)據(jù)源對話框。這里選擇默認(rèn)項(xiàng) Microsoft SQL Server，如 圖所示。 選擇完數(shù)據(jù)源之后，單擊“確定”按鈕，彈出添加連接對話 框，在這里需要添加上所連接的數(shù)據(jù)庫服務(wù)器的名稱，相應(yīng) 的身份驗(yàn)證方式以及要連接的數(shù)據(jù)庫名稱。輸入完成后，單 擊“測試連接”按鈕，會給出測試連接結(jié)果，如圖所示。 測試成功后，單擊“確定”按鈕，會生成完整的連接字 符串。如選擇的是 SQL Server的身份驗(yàn)證方式，需要輸 入用戶名和密碼，這些信息都會包含在生成的連接字符 串中，如圖所示。 單擊“下一步”按鈕，向?qū)г儐栕x者是否將連接字符串保存 到應(yīng)用程序配置文件中。默認(rèn)選項(xiàng)為保存。通常情況下，都 會選擇保存此信息，當(dāng)數(shù)據(jù)庫位置發(fā)生改變時(shí)，可以在配置 文件中直接修改此連接字符串，沒有保存，則要在程序代碼 中找到連接字符串來修改。 單擊“下一步“按鈕，會提示讀者選擇想在數(shù)據(jù)集中包含的對象。展開 相應(yīng)節(jié)點(diǎn)進(jìn)行選擇，讀者選擇的所有數(shù)據(jù)庫對象統(tǒng)稱為數(shù)據(jù)集。 單擊“完成“按鈕，關(guān)閉數(shù)據(jù)源配置向?qū)?。至此已?jīng)完成向讀者項(xiàng)目中 添加數(shù)據(jù)庫連接和用所選數(shù)據(jù)庫對象配置數(shù)據(jù)集的工作。在解決方案資 源管理器中生成了 XML模式的數(shù)據(jù)集模式文件。 ? 使用數(shù)據(jù)源窗口 通過以上步驟創(chuàng)建完成和數(shù)據(jù)庫的連接后，可以利用數(shù)據(jù)源 窗口在設(shè)計(jì)窗體上對數(shù)據(jù)進(jìn)行簡單操作。如圖所示為數(shù)據(jù)源 窗口，如果數(shù)據(jù)源窗口沒有出現(xiàn)，可以選擇“數(shù)據(jù)”菜單下 的“顯示數(shù)據(jù)源”命令。 將數(shù)據(jù)集中的信息顯示在窗體上，最簡單的方法是將數(shù)據(jù)源 窗體中的對象直接拖到窗體設(shè)計(jì)器上。當(dāng)選中數(shù)據(jù)源中的對 象后，在其右側(cè)會出現(xiàn)下拉箭頭，單擊下拉箭頭會看到一組 控件列表。 拖動數(shù)據(jù)源窗口上的 no字段以及 SInfo表到窗體設(shè)計(jì)器中，此 時(shí)，在組件盤中自動生成了 DataSet、作為表和窗體上綁定 控件間管道的 BindingSource組件、 DataAdapter以及 BindingNavigator組件，然后執(zhí)行程序，出現(xiàn)如圖所示界面。 讀者沒有編寫一行代碼，已經(jīng)可以獲得并修改數(shù)據(jù)庫中的信 息了。 數(shù)據(jù)訪問中的常用控件 ? BindingSource控件 BindingSource用來封裝數(shù)據(jù)源，從而可以簡化將控 件綁定到基礎(chǔ)數(shù)據(jù)源的過程。 ? BindingNavigaor控件 使用 BindingNavigator控件，讀者可以在 Windows窗體中導(dǎo)航 和操作數(shù)據(jù)。多數(shù)情況下， BindingNavigator與BindingSource 控件一起使用，用于瀏覽窗體上的數(shù)據(jù)記錄，并與它們交互。 【 例 】 使用 BindingSource和 BindingNavigator實(shí)現(xiàn)記錄的瀏覽和更新。 本例使用在 Access中創(chuàng)建的 EAdmin數(shù)據(jù)庫。新建項(xiàng)目，所需 控件及屬性修改如表所示。 控件類型 屬性 屬性值 form text BindingNavigator label text 教師編號： label text 課程編號： label text 上課時(shí)間： textbox name txtTno textbox name txtCno textbox name txtTime bindingsource datasource 按下面說明設(shè)置 datamember 按下面說明設(shè)置 bindingnavigator bindingsource BindingSource1 在窗體上添加上 label以及 textbox后，添加BindingSource控件，設(shè) 置其數(shù)據(jù)源，生成數(shù)據(jù)集和表適配器。然后添加BindingNavigator 控件，設(shè)置其 BindingSource屬性為所添加的“BindingSource1”， 點(diǎn)擊 BindingNavigator控件的快捷設(shè)置按鈕，添加一個(gè) ToolStripButton，用來作為 “保存 ”按鈕。設(shè)置完成后，界面以及 在組件盤中添加和自動生成的組件如下圖所示。 接下來設(shè)置文本框的綁定，在屬性窗口展開DataBindings， 單擊 text項(xiàng)后的下拉箭頭，選擇上對應(yīng)的數(shù)據(jù)項(xiàng)。 所需添加代碼如下：在保存按鈕的 click事件中寫入更新語句。 Private Sub ToolStripButton1_Click(……) Handles () 39。更新到數(shù)據(jù)庫中 End Sub 程序運(yùn)行結(jié)果如下圖所示： ? DataGridview控件 DataGridView是微軟 .NET 2022的新功能，是對DataGrid的擴(kuò) 展。使用 DataGridView控件能以表格的方式顯示及編輯多種 數(shù)據(jù)源中的數(shù)據(jù)，該控件可以綁定到以下數(shù)據(jù)源： BindingSource、 BindingList、 DataTable、DataSet以及一維 數(shù)組。 【 例 】 通過 DataGridView控件顯示及編輯EAdmin數(shù)據(jù)庫中 SInfo表中的信息。 所需控件及屬性如表所示。 控件類型 屬性 屬性值 form text DataGridView datagridview name dgvSinfo button name btnLoad text 加載 button name btnUpdate text 更新 本程序?qū)崿F(xiàn)的功能為，在 DataGridView中以表格的方式顯示EAdmin數(shù)據(jù)庫中 SInfo表的信息，并且可以在 DataGridView中對記錄進(jìn)行添加、修改以及刪除操作，更改完成后，通過“更新“按鈕更新回?cái)?shù)據(jù)庫。點(diǎn)擊“加載”按鈕，重新加載數(shù)據(jù)顯示更新后的信息。 Private bdsInfo As New BindingSource() Private dapInfo As New SqlDataAdapter() 在多個(gè)過程中都要使用到 bdsInfo和 dapInfo，因此要將這兩個(gè) 變量的聲明放在過程之外。 為 “加載 ”按鈕的單擊事件編寫代碼如下： Private Sub btnLoad_Click(……) Handles GetData(Me. ) 39。 加載數(shù)據(jù) End Sub 為 “更新 ”按鈕的單擊事件編寫代碼如下： Pr