【正文】 加載數(shù)據(jù) End Sub 為 “更新 ”按鈕的單擊事件編寫代碼如下： Priva。 Private bdsInfo As New BindingSource() Private dapInfo As New SqlDataAdapter() 在多個(gè)過程中都要使用到 bdsInfo和 dapInfo，因此要將這兩個(gè) 變量的聲明放在過程之外。 控件類型 屬性 屬性值 form text DataGridView datagridview name dgvSinfo button name btnLoad text 加載 button name btnUpdate text 更新 本程序?qū)崿F(xiàn)的功能為，在 DataGridView中以表格的方式顯示EAdmin數(shù)據(jù)庫(kù)中 SInfo表的信息，并且可以在 DataGridView中對(duì)記錄進(jìn)行添加、修改以及刪除操作，更改完成后，通過“更新“按鈕更新回?cái)?shù)據(jù)庫(kù)。 【 例 】 通過 DataGridView控件顯示及編輯EAdmin數(shù)據(jù)庫(kù)中 SInfo表中的信息。更新到數(shù)據(jù)庫(kù)中 End Sub 程序運(yùn)行結(jié)果如下圖所示： ? DataGridview控件 DataGridView是微軟 .NET 2022的新功能，是對(duì)DataGrid的擴(kuò) 展。 所需添加代碼如下：在保存按鈕的 click事件中寫入更新語句。設(shè)置完成后，界面以及 在組件盤中添加和自動(dòng)生成的組件如下圖所示。 控件類型 屬性 屬性值 form text BindingNavigator label text 教師編號(hào)： label text 課程編號(hào)： 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ù)集和表適配器。 本例使用在 Access中創(chuàng)建的 EAdmin數(shù)據(jù)庫(kù)。多數(shù)情況下， BindingNavigator與BindingSource 控件一起使用，用于瀏覽窗體上的數(shù)據(jù)記錄，并與它們交互。 數(shù)據(jù)訪問中的常用控件 ? BindingSource控件 BindingSource用來封裝數(shù)據(jù)源，從而可以簡(jiǎn)化將控 件綁定到基礎(chǔ)數(shù)據(jù)源的過程。 拖動(dòng)數(shù)據(jù)源窗口上的 no字段以及 SInfo表到窗體設(shè)計(jì)器中，此 時(shí)，在組件盤中自動(dòng)生成了 DataSet、作為表和窗體上綁定 控件間管道的 BindingSource組件、 DataAdapter以及 BindingNavigator組件，然后執(zhí)行程序，出現(xiàn)如圖所示界面。 將數(shù)據(jù)集中的信息顯示在窗體上，最簡(jiǎn)單的方法是將數(shù)據(jù)源 窗體中的對(duì)象直接拖到窗體設(shè)計(jì)器上。 ? 使用數(shù)據(jù)源窗口 通過以上步驟創(chuàng)建完成和數(shù)據(jù)庫(kù)的連接后，可以利用數(shù)據(jù)源 窗口在設(shè)計(jì)窗體上對(duì)數(shù)據(jù)進(jìn)行簡(jiǎn)單操作。至此已經(jīng)完成向讀者項(xiàng)目中 添加數(shù)據(jù)庫(kù)連接和用所選數(shù)據(jù)庫(kù)對(duì)象配置數(shù)據(jù)集的工作。展開 相應(yīng)節(jié)點(diǎn)進(jìn)行選擇，讀者選擇的所有數(shù)據(jù)庫(kù)對(duì)象統(tǒng)稱為數(shù)據(jù)集。通常情況下，都 會(huì)選擇保存此信息，當(dāng)數(shù)據(jù)庫(kù)位置發(fā)生改變時(shí)，可以在配置 文件中直接修改此連接字符串，沒有保存，則要在程序代碼 中找到連接字符串來修改。 單擊“下一步”按鈕，向?qū)г儐栕x者是否將連接字符串保存 到應(yīng)用程序配置文件中。 測(cè)試成功后，單擊“確定”按鈕，會(huì)生成完整的連接字 符串。 選擇完數(shù)據(jù)源之后，單擊“確定”按鈕，彈出添加連接對(duì)話 框，在這里需要添加上所連接的數(shù)據(jù)庫(kù)服務(wù)器的名稱，相應(yīng) 的身份驗(yàn)證方式以及要連接的數(shù)據(jù)庫(kù)名稱。 單擊“新建連接”按鈕，如果是首次單擊該按鈕，會(huì)出現(xiàn)選 擇數(shù)據(jù)源對(duì)話框。 如圖所示。 ? 使用數(shù)據(jù)源配置向?qū)Ы⑦B接 啟動(dòng) ，創(chuàng)建名字為 Adosql的Windows應(yīng) 用程序項(xiàng)目。向?qū)?huì)提示讀者連接的數(shù)據(jù)庫(kù)類型，建 立連接，然后創(chuàng)建數(shù)據(jù)集來保存特定數(shù)據(jù)庫(kù)中信息。設(shè)置 datagridview控件的數(shù)據(jù)源 () 39。打開數(shù)據(jù)庫(kù)連接 (ds, Stu) 39。創(chuàng)建DataAdapter = m Dim ds As DataSet = New DataSet 39。定義查詢語句 Dim m As New SqlCommand(strSel, conn) 39。 Dim conn As New SqlConnection(strConn) 39。 _ “ Catalog=EAdmin。 Private Sub btnshow_Click(……) Handles Dim strConn As String = Data Source= YF154084。 新建項(xiàng)目，需要的控件及屬性如表所示。添加一行紀(jì)錄 nRow(o) = 0006 nRow(ame) = 大學(xué)語文 nRow(credit) = 2 (nRow) 【 例 】 使用 DataAdapter對(duì)象填充 DataSet。創(chuàng)建表結(jié)構(gòu) (ame, ()) (credit, ()) Dim pk(1) As DataColumn 39。 Dim nDset As New DataSet Dim nDtable As DataTable = (cInfo) 39。 DataSet是由表、關(guān)系和約束的集合所 組成。 ? DataSet（數(shù)據(jù)集）對(duì)象 DataSet對(duì)象是支持 、分布式數(shù)據(jù)方案的核 心對(duì)象。 Fill方法：填充 DataSet或 DataTable。 DeleteCommand屬性：獲取或設(shè)置一個(gè) TransactSQL語句或存儲(chǔ)過 程，以從數(shù)據(jù)集刪除記錄。常用的屬性和方法如下 : SelectCommand屬性：獲取或設(shè)置一個(gè) TransactSQL語句或存儲(chǔ)過 程，用于在數(shù)據(jù)源中選擇記錄。關(guān)閉數(shù)據(jù)庫(kù)連接 End Sub 使用 DataReader顯示數(shù)據(jù)庫(kù)表中記錄 4． DataAdapter（數(shù)據(jù)適配器）對(duì)象 DataAdapter是數(shù)據(jù)源和 DataSet之間的橋梁，可以從數(shù)據(jù)源檢索數(shù) 據(jù)并填充 DataSet中的表，也能將在 DataSet中所作的更改更新到 數(shù)據(jù)源。 (2)) Loop () 39。 _ (1) amp。向 listbox中添加記錄 ((0) amp。打開數(shù)據(jù)庫(kù)連接 Dim sReader As SqlDataReader = () 39。定義查詢語句 Dim m As New SqlCommand(strSel, conn) 39。定義連接字符串 Dim conn As New SqlConnection(strConn) 39。Integrated Security=True。 Private Sub btnShow_Click(……) Handles Dim strConn As String = Data Source= YF154084。 在 DataReader的項(xiàng)目，所需控件及其屬性 如表所示。 Read方法：將數(shù)據(jù)讀取器移到結(jié)果集中的下一條記錄。 GetSchemaTable方法：返回描述數(shù)據(jù)讀取器的結(jié)果集模式的 DataTable。 RecordsAffected屬性：獲取執(zhí)行 TransactSQL語句所影響的 行數(shù)， 1表示執(zhí)行查詢。 Depth屬性：獲取表示當(dāng)前記錄的嵌套深度的值。關(guān)閉數(shù)據(jù)庫(kù)連接 End Sub 程序執(zhí)行前 SInfo表中記錄 程序執(zhí)行后 SInfo表中記錄 3． DataReader（數(shù)據(jù)讀取器）對(duì)象 使用 DataReader對(duì)象來檢索數(shù)據(jù)庫(kù)中前向的、只讀的數(shù)據(jù)流。打開數(shù)據(jù)庫(kù)連接 If (()) Then 39。定義刪除語句 Dim m As New SqlCommand(strDel, conn) 39。 39。 amp。定義連接字符串 Dim conn As New SqlConnection(strConn) 39。 _ Integrated Security=True。Initial Catalog=EAdmin。若數(shù)據(jù)庫(kù)中不存在所輸入學(xué)號(hào)的記錄，則彈出消息框提示記錄不存在。需要用到的控件及其屬性設(shè)置如表所示。 【 例 】 刪除 EAdmin數(shù)據(jù)庫(kù)中 SInfo表中指定學(xué)號(hào)的記錄。 ExecuteScalar方法：執(zhí)行查詢，并返回結(jié)果集中的第一行第 一列的值，忽略其他行和列。 ExecuteNoQuery方法：對(duì)連接執(zhí)行 TransactSQL語句，并返 回受影響的行數(shù)。 Connection屬性：獲取或設(shè)置此 Command使用的 Connection。 當(dāng) CommandType設(shè)置為 StoreProcedure時(shí)，表示 Command對(duì)象執(zhí)行的是 一個(gè)存儲(chǔ)過程， CommandText應(yīng)設(shè)置為對(duì)應(yīng)的存儲(chǔ)過程的名稱；當(dāng) CommandType為 TableDirect時(shí)表示直接從表中取得數(shù)據(jù)，CommandText 應(yīng)為要訪問的表的名稱，訪問多個(gè)表時(shí)，表名間用逗號(hào)分隔；當(dāng) CommandType為 Text時(shí)，表示要執(zhí)行一個(gè) SQL語句，CommandText應(yīng)為一 個(gè)可執(zhí)行的 SQL語句。 Sql Command的主要屬性和方法如下： CommandText屬性：獲取或設(shè)置要對(duì)數(shù)據(jù)源執(zhí)行的 Transactsql語 句或存儲(chǔ)過程。 amp。 Dim conn As OleDbConnection = New amp。通過 close方法關(guān)閉到數(shù)據(jù)庫(kù)的連接 在連接字符串中， Data Source指數(shù)據(jù)庫(kù)服務(wù)器的名稱， Initial Catalog指想要連接的數(shù)據(jù)庫(kù)的名稱。使用給出的連接字符串創(chuàng)建 connection對(duì)象 … () 39。 39。Integrated amp。 Dim strConn As String strConn = “Data Source= YF154084。 Close方法：關(guān)閉與數(shù)據(jù)庫(kù)的連接。 Open表示處于打開狀態(tài)， close處于關(guān)閉狀態(tài)。 ConnectionTimeout屬性：獲取嘗試建立連接時(shí)終止嘗試并生成錯(cuò)誤之前所等待的時(shí)間。 這里以 SqlConnection對(duì)象為例進(jìn)行講解。語法 格式如下： DELETE [ FROM ] 表名 [WHERE 刪除條件 例 : 學(xué)號(hào)為 08990001的學(xué)生退學(xué)，則應(yīng)修改學(xué)生信息表。, 18) 3．更新表中數(shù)據(jù) 對(duì)于已經(jīng)存在的記錄，如果某些字段值發(fā)生了變化，則需要 對(duì)現(xiàn)有的內(nèi)容進(jìn)行修改，可以使用 UPDATE語句來實(shí)現(xiàn)。,39。, 39。, 39。, 18,) 或者為： INSERT INTO SInfo (No,Name,Deptment,Sex,Age) VALUES(39。,39。, 39。, 39。 INSERT INTO SInfo VALUES (39。 SELECT * FROM SInfo WHERE Deptment=?計(jì)算機(jī) ? AND Sex=?男 ? ORDER BY Age 2．向表中添加新數(shù)據(jù) 使用 INSERT語句可以在現(xiàn)有的表中插入一條新紀(jì)錄。 SELECT Deptment FROM SInfo GROUP BY Department HAVING COUNT(No)100 在有些情況下需要對(duì)查詢結(jié)果進(jìn)行排序輸出，則需要使用 ORDER BY子句。 SELECT COUNT(No) FROM SInfo GROUP BY Department 要想對(duì)分組的結(jié)果進(jìn)行過濾篩選，就要使用HAVING子句。 SELECT COUNT(DISTINCT Tno) FROM TTec 對(duì)于要將數(shù)據(jù)進(jìn)行分組計(jì)算的，就要使用到GROUP BY子句。 SELECT * FROM SInfo WHERE Name LIKE ?[李張趙 ]%? 多重條件：查詢計(jì)算機(jī)系年齡大于 20的 學(xué)生的學(xué)號(hào)、姓名 SELECT No,Name FROM SInfo WHERE Deptment=?計(jì)算機(jī)