|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
代码如下： VyELinux联盟
VyELinux联盟
<%@import Namespace =Namespace=system.data%> VyELinux联盟
<%@import Namespace =Namespace=system.data.oledb%> VyELinux联盟
<script language=vb runat=server> VyELinux联盟
Sub page_load()sub page_load() VyELinux联盟
dim strConnection as string VyELinux联盟
dim strSQL as string VyELinux联盟
dim objDataSet as new DataSet() VyELinux联盟
dim objConnection as OledbConnection VyELinux联盟
dim objAdapter as OledbDataAdapter VyELinux联盟
VyELinux联盟
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ VyELinux联盟
"Data Source=h:BegASPNETNorthwind.mdb" '使用的数据库是Access自带的示例文件：Northwind.mdb VyELinux联盟
strSQL = "select 雇员ID,姓氏,名字 from 雇员" VyELinux联盟
VyELinux联盟
objConnection = new OledbConnection(strConnection) VyELinux联盟
objAdapter = new OledbDataAdapter(strSQL , objConnection) VyELinux联盟
VyELinux联盟
objAdapter.fill(objDataSet , "Employees") VyELinux联盟
VyELinux联盟
dgNameList1.DataSource = objDataSet.Tables("Employees").DefaultView VyELinux联盟
dgNameList1.DataBind() VyELinux联盟
VyELinux联盟
'-----------------------------------------------------------向表添加一个新行 VyELinux联盟
dim objTable as DataTable VyELinux联盟
dim objNewRow as DataRow VyELinux联盟
VyELinux联盟
objTable = objDataSet.Tables("Employees") VyELinux联盟
objNewRow = objTable.NewRow() VyELinux联盟
objNewRow("姓氏") = "聂" VyELinux联盟
objNewRow("名字") = "大鹏" VyELinux联盟
objTable.Rows.Add(objNewRow) VyELinux联盟
VyELinux联盟
objNewRow = objTable.NewRow() VyELinux联盟
objNewRow("姓氏") = "王" VyELinux联盟
objNewRow("名字") = "志东" VyELinux联盟
objTable.Rows.Add(objNewRow) VyELinux联盟
VyELinux联盟
dgNameList2.DataSource = objTable.DefaultView VyELinux联盟
dgNameList2.DataBind() VyELinux联盟
VyELinux联盟
VyELinux联盟
'-----------------------------------------------------------更新表中的行 VyELinux联盟
dim objRow as DataRow VyELinux联盟
VyELinux联盟
objRow = objTable.Rows(3) VyELinux联盟
objRow("姓氏") = "谷" VyELinux联盟
objRow("名字") = "丰" VyELinux联盟
VyELinux联盟
dgNameList3.DataSource = objTable.DefaultView VyELinux联盟
dgNameList3.DataBind() VyELinux联盟
VyELinux联盟
VyELinux联盟
VyELinux联盟
'-----------------------------------------------------------删除表中的行 VyELinux联盟
objTable.Rows(objTable.Rows.Count - 2).Delete() VyELinux联盟
VyELinux联盟
dgNameList4.DataSource = objTable.DefaultView VyELinux联盟
dgNameList4.DataBind() VyELinux联盟
VyELinux联盟
VyELinux联盟
VyELinux联盟
'================================================VyELinux联盟
更新数据源 VyELinux联盟
dim objBuilder as OledbCommandBuilder VyELinux联盟
VyELinux联盟
objBuilder = new OledbCommandBuilder(objAdapter) VyELinux联盟
objAdapter.UpdateCommand = objBuilder.GetUpdateCommand() VyELinux联盟
objAdapter.InsertCommand = objBuilder.GetInsertCommand() VyELinux联盟
objAdapter.DeleteCommand = objBuilder.GetDeleteCommand() VyELinux联盟
VyELinux联盟
objAdapter.Update(objDataSet , "Employees") VyELinux联盟
end sub VyELinux联盟
</script> VyELinux联盟
VyELinux联盟
<html> VyELinux联盟
<body> VyELinux联盟
<table width=100%> VyELinux联盟
<tr> VyELinux联盟
<td>原始数据</td> VyELinux联盟
<td>添加行</td> VyELinux联盟
<td>编辑行</td> VyELinux联盟
<td>删除行</td> VyELinux联盟
</tr> VyELinux联盟
<tr> VyELinux联盟
<td valign=top><asp:datagrid id=dgNameList1 runat=server /></td> VyELinux联盟
<td valign=top><asp:datagrid id=dgNameList2 runat=server /></td> VyELinux联盟
<td valign=top><asp:datagrid id=dgNameList3 runat=server /></td> VyELinux联盟
<td valign=top><asp:datagrid id=dgNameList4 runat=server /></td> VyELinux联盟
</tr> VyELinux联盟
</table> VyELinux联盟
VyELinux联盟
<hr> VyELinux联盟
VyELinux联盟
<asp:datagrid id=dgUpd runat=server /> VyELinux联盟
</body> VyELinux联盟
</html>
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
