将DataSet中的操作更新到Access数据库
点击次数：23 次 发布日期：2008-11-26 09:50:55 作者：源代码网
|
源代码网推荐 代码如下： 源代码网推荐 源代码网推荐 <%@import Namespace =Namespace=system.data%> 源代码网推荐 <%@import Namespace =Namespace=system.data.oledb%> 源代码网推荐 <script language=vb runat=server> 源代码网推荐 Sub page_load()sub page_load() 源代码网推荐 dim strConnection as string 源代码网推荐 dim strSQL as string 源代码网推荐 dim objDataSet as new DataSet() 源代码网推荐 dim objConnection as OledbConnection 源代码网推荐 dim objAdapter as OledbDataAdapter 源代码网推荐 源代码网推荐 strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 源代码网推荐 "Data Source=h:BegASPNETNorthwind.mdb" "使用的数据库是Access自带的示例文件：Northwind.mdb 源代码网推荐 strSQL = "select 雇员ID,姓氏,名字 from 雇员" 源代码网推荐 源代码网推荐 objConnection = new OledbConnection(strConnection) 源代码网推荐 objAdapter = new OledbDataAdapter(strSQL , objConnection) 源代码网推荐 源代码网推荐 objAdapter.fill(objDataSet , "Employees") 源代码网推荐 源代码网推荐 dgNameList1.DataSource = objDataSet.Tables("Employees").DefaultView 源代码网推荐 dgNameList1.DataBind() 源代码网推荐 源代码网推荐 "-----------------------------------------------------------向表添加一个新行 源代码网推荐 dim objTable as DataTable 源代码网推荐 dim objNewRow as DataRow 源代码网推荐 源代码网推荐 objTable = objDataSet.Tables("Employees") 源代码网推荐 objNewRow = objTable.NewRow() 源代码网推荐 objNewRow("姓氏") = "聂" 源代码网推荐 objNewRow("名字") = "大鹏" 源代码网推荐 objTable.Rows.Add(objNewRow) 源代码网推荐 源代码网推荐 objNewRow = objTable.NewRow() 源代码网推荐 objNewRow("姓氏") = "王" 源代码网推荐 objNewRow("名字") = "志东" 源代码网推荐 objTable.Rows.Add(objNewRow) 源代码网推荐 源代码网推荐 dgNameList2.DataSource = objTable.DefaultView 源代码网推荐 dgNameList2.DataBind() 源代码网推荐 源代码网推荐 源代码网推荐 "-----------------------------------------------------------更新表中的行 源代码网推荐 dim objRow as DataRow 源代码网推荐 源代码网推荐 objRow = objTable.Rows(3) 源代码网推荐 objRow("姓氏") = "谷" 源代码网推荐 objRow("名字") = "丰" 源代码网推荐 源代码网推荐 dgNameList3.DataSource = objTable.DefaultView 源代码网推荐 dgNameList3.DataBind() 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 "-----------------------------------------------------------删除表中的行 源代码网推荐 objTable.Rows(objTable.Rows.Count - 2).Delete() 源代码网推荐 源代码网推荐 dgNameList4.DataSource = objTable.DefaultView 源代码网推荐 dgNameList4.DataBind() 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 "===========================================================更新数据源 源代码网推荐 dim objBuilder as OledbCommandBuilder 源代码网推荐 源代码网推荐 objBuilder = new OledbCommandBuilder(objAdapter) 源代码网推荐 objAdapter.UpdateCommand = objBuilder.GetUpdateCommand() 源代码网推荐 objAdapter.InsertCommand = objBuilder.GetInsertCommand() 源代码网推荐 objAdapter.DeleteCommand = objBuilder.GetDeleteCommand() 源代码网推荐 源代码网推荐 objAdapter.Update(objDataSet , "Employees") 源代码网推荐 end sub 源代码网推荐 </script> 源代码网推荐 源代码网推荐 <html> 源代码网推荐 <body> 源代码网推荐 <table width=100%> 源代码网推荐 <tr> 源代码网推荐 <td>原始数据</td> 源代码网推荐 <td>添加行</td> 源代码网推荐 <td>编辑行</td> 源代码网推荐 <td>删除行</td> 源代码网推荐 </tr> 源代码网推荐 <tr> 源代码网推荐 <td valign=top><asp:datagrid id=dgNameList1 runat=server /></td> 源代码网推荐 <td valign=top><asp:datagrid id=dgNameList2 runat=server /></td> 源代码网推荐 <td valign=top><asp:datagrid id=dgNameList3 runat=server /></td> 源代码网推荐 <td valign=top><asp:datagrid id=dgNameList4 runat=server /></td> 源代码网推荐 </tr> 源代码网推荐 </table> 源代码网推荐 源代码网推荐 <hr> 源代码网推荐 源代码网推荐 <asp:datagrid id=dgUpd runat=server /> 源代码网推荐 </body> 源代码网推荐 </html> 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
