将DataSet中的操作更新到Access数据库
生活随笔
收集整理的這篇文章主要介紹了
将DataSet中的操作更新到Access数据库
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
代碼如下:
<%@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>
<%@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>
總結
以上是生活随笔為你收集整理的将DataSet中的操作更新到Access数据库的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 做梦梦到自己生了个女儿是怎么回事
- 下一篇: 数据库设计方法、规范与技巧