【文章內(nèi)容簡介】 SqlConnection(server=jnw\school_office。uid=sa。pwd=sa。database=userdb) Dim oledbm As New OleDbCommand() ?打開 oledb連接 () 39 Dim sqlm As New SqlCommand() ?使用 oledb接口執(zhí)行刪除操作語句 = delete from news where flag=39。139。 = oledbconn ?使用 ExecuteNonQuery方法 ， 執(zhí)行需要返回的數(shù)據(jù) () oledbm = Nothing () oledbconn = Nothing ?用 sqlclient接口進行刪除操作 = delete from news where flag=39。239。 = sqlconn () () sqlm = Nothing () sqlconn = Nothing End Sub /script 40 HEAD titleWebForm1/title meta name=GENERATOR content=Microsoft Visual Studio .NET meta name=CODE_LANGUAGE content=Visual Basic meta name=vs_defaultClientScript content=JavaScript metaname=vs_targetSchema content= /HEAD body MS_POSITIONING=GridLayout form id=Form1 method=post runat=server FONT face=宋體 asp:Button id=Button1 style=ZINDEX: 101。 LEFT: 259px。 POSITION: absolute。 TOP: 65px runat=server Height=22px Width=81px Text=Button onclick=”button1_click”/asp:Button/FONT /form /body /HTML 41 3． DataSet對象 DataSet對象是非連接存儲和處理關系數(shù)據(jù)的基礎。 DataSet中的每個表都是 Tables集合中的一個 DataTable對象 圖 DataSet與 DataTable DataSet對象提供了一系列用來處理表內(nèi)容及其相互關系的方法，如表 。 表 DataSet對象的基本方法 42 方法 描述 Clear 清空 DataSet中的所有表，刪除 DataSet存儲的全部數(shù)據(jù)。然而，刪除對象，再創(chuàng)建對象會更高效，除非需要保留對現(xiàn)有對象的引用 Merge 提取 DataSet中的內(nèi)容，并將其與另一個 DataSet合并，使之包含兩個源 DataSet對象的所有數(shù)據(jù) XML是 .NET中默認的數(shù)據(jù)保存格式 ， DataSet對象提供了讀取和寫入 XML數(shù)據(jù)的方法 ， 如表 。 表 方法及其含義 方法 描述 ReadXML和ReadSchema 調(diào)用一個 XML文檔或模式，并將其讀入 DataSet中 GetXML和GetSchema 返回一個包含 XML文檔或模式的 String型數(shù)據(jù)，這些文檔或模式顯示 DataSet中的數(shù)據(jù) WriteXML和WriteSchema 將表示 DataSet中數(shù)據(jù)的 XML文檔或模式寫入磁盤文件、 reader/writer對象或數(shù)據(jù)流。 43 通過表 4種方法，可以控制何時、以何種方式存儲初始值。 表 方法及其含義 方法 描述 AcceptChanges 將自從裝載 DataSet以來，或上次執(zhí)行 AcceptChanges之后的修改結果提交給 DataSet中的表或關系 GetChanges 返回一個的 DataSet對象，它包含了自從裝載 DataSet以來，或上次執(zhí)行 AcceptChanges之后的所有或部分修改結果 HasChanges 表示自從裝載 DataSet以來，或上次執(zhí)行 AcceptChanges之后， DataSet的內(nèi)容是否有所改動 RejectChanges 刪除自從裝載 DataSet以來，或上次執(zhí)行 AcceptChanges之后對 DataSet的表中值的所有修改。把它返回到初始狀態(tài)，并刪除存儲的全部修改信息 通過下面的例子了解 DataSet的使用方法，在這個例子中，通過一個 DataGrid對象顯示 Emailuser數(shù)據(jù)表中的所有數(shù)據(jù)，如圖。 44 %@ language=vbscript % %@ import namespace=% %@ import namespace=% HTML script language=vb runat=server Sub Button1_Click(ByVal sender As , ByVal e As ) Dim sqlconn As New SqlConnection(server=oyzz。uid=sa。pwd=sa。database=userdb) Dim myda As New SqlDataAdapter(select * from user, sqlconn) Dim myds As New DataSet() 將 user中的數(shù)據(jù)填充到 myds對象中 (myds, user) () ?將 DataGrid1的數(shù)據(jù)源設為表 user = (user).DefaultView () () 45 sqlconn = Nothing End Sub /script HEAD titleWebForm2/title meta name=GENERATOR content=Microsoft Visual Studio .NET meta name=CODE_LANGUAGE content=Visual Basic meta name=vs_defaultClientScript content=JavaScript meta name=vs_targetSchema content= /HEAD body MS_POSITIONING=GridLayout form id=Form1 method=post runat=server FONT face=宋體 asp:DataGrid id=DataGrid1 style=ZINDEX: 101。 LEFT: 84px。 POSITION: absolute。 TOP: 33px runat=server Width=625px Height=81px/asp:DataGrid 46 asp:Button id=Button1 style=ZINDEX: 102。 LEFT: 331px。 POSITION: absolute。 TOP: 187px runat=server Width=111px Height=23px Text=Button onclick=button1_click/asp:Button/FONT /form /body /HTML 圖 使用 DataSet對象顯示表中的數(shù)據(jù) 47 4． DataReader對象 對 DataReader對象所引用的行集只能進行只讀 、 只許前向的訪問 ， 具體流程如圖 。 圖 DataReader訪問數(shù)據(jù)流程 在 DataReader對象提供的方法中，最常用的如表 。 表 DataReader對象的基本方法 48 方法 描述 Read 將當前行的指針移到下一行，從而可以使用列名或列的次序來訪問列的值 GetValue 指定列的整數(shù)索引，從當前行中以固定的格式（例如數(shù)據(jù)源中固有的數(shù)據(jù)類型）返回一個或多個值。對于列的索引，一種比較簡單但效率不太高的方法是直接指定列名，如value=DataReader(“columnname”) GetValues 從當前行中以其固有的格式（例如數(shù)據(jù)源中固有的數(shù)據(jù)類型）將一個過多個值提取到一個數(shù)組中 GetXXXX 指定列的整數(shù)索引，從當前行中返回一個值，作為每個方法特定的數(shù)據(jù)類型，如GetBoolean、 GetInt16和 GetChars NextResult 當執(zhí)行語句是 SQL存儲程序或返回多個結果集的批處理 SQL語句時，該方法將當前行的指針移到下一個結果集。請注意，和 ADO的 Recordset對象不同，這并不是 MoveNext操作 ——該操作是將當前的指針從一個行集移到下一個行集的第一行 Close 關閉 DataReader對象并釋放對行集的引用 49 通過下例介紹如何使用 DataReader對象對 user數(shù)據(jù)表中的數(shù)據(jù)進行讀取，如圖 。在使用 DataReader對象前，必須用到 Command對象的 ExcuteReader方法。 圖 使用 DataReader對象讀取表中的數(shù)據(jù) %@ language=vbscript % %@ import namespace=% %@ import namespace=% HTML script language=vb runat=server 50 Sub Page_Load(ByVal sender As , ByVal e As ) Dim sqlconn As New SqlConnection(server=oyzz。uid=sa。pwd=sa。database=userdb) Dim sqlm As New SqlCommand() Dim sqlreader As SqlDataReader () = sqlconn ?給 mand對象的 CommandText賦值 = select * from user ?使用 Command對象的 ExecuteReader方法 sqlreader = ?使用 DataReader對象的 Read方法移動指針 While = amp。 (0) = amp。 (1) End While sqlm = Nothing () 51 sqlconn = Nothing = 查找成功 End Sub /script HEAD titleWebForm3/title meta name=GENERATOR content=Microsoft Visual Studio .NET meta name=CODE_LANGUAGE content=Visual Basic meta name=vs_defaultClientScript content=JavaScript meta name=vs_targetSchema content= /HEAD body MS_POSITIONING=GridLayout form id=Form1 method=post runat=server FONT face=“宋體 ” asp:TextBox id=TextBox1 style=ZINDEX: 100。 LEFT: 33px。 POSITION: absolute。 TOP: 15px runat=se