日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 运维知识 > 数据库 >内容正文

数据库

将DataSet中的操作更新到Access数据库

發布時間:2023/11/29 数据库 35 豆豆
生活随笔 收集整理的這篇文章主要介紹了 将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>

總結

以上是生活随笔為你收集整理的将DataSet中的操作更新到Access数据库的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。