
 <%@import Namespace =Namespace=system.data%>
<%@import Namespace =Namespace=system.data%>
 <%@import Namespace =Namespace=system.data.oledb%>
<%@import Namespace =Namespace=system.data.oledb%> <script language=vb runat=server>
<script language=vb runat=server>
 Sub page_load()sub page_load()
Sub page_load()sub page_load()     dim strConnection as string
    dim strConnection as string dim strSQL as string
    dim strSQL as string dim objDataSet as new DataSet()
    dim objDataSet as new DataSet() dim objConnection as OledbConnection
    dim objConnection as OledbConnection dim objAdapter as OledbDataAdapter
    dim objAdapter as OledbDataAdapter 
     strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=h:BegASPNETNorthwind.mdb"    '使用的数据库是Access自带的示例文件:Northwind.mdb
                    "Data Source=h:BegASPNETNorthwind.mdb"    '使用的数据库是Access自带的示例文件:Northwind.mdb strSQL = "select 雇员ID,姓氏,名字 from 雇员"
    strSQL = "select 雇员ID,姓氏,名字 from 雇员" 
     objConnection = new OledbConnection(strConnection)
    objConnection = new OledbConnection(strConnection) objAdapter = new OledbDataAdapter(strSQL , objConnection)
    objAdapter = new OledbDataAdapter(strSQL , objConnection) 
     objAdapter.fill(objDataSet , "Employees")
    objAdapter.fill(objDataSet , "Employees") 
     dgNameList1.DataSource = objDataSet.Tables("Employees").DefaultView
    dgNameList1.DataSource = objDataSet.Tables("Employees").DefaultView dgNameList1.DataBind()
    dgNameList1.DataBind() 
     '-----------------------------------------------------------向表添加一个新行
    '-----------------------------------------------------------向表添加一个新行 dim objTable as DataTable
    dim objTable as DataTable dim objNewRow as DataRow
    dim objNewRow as DataRow 
     objTable = objDataSet.Tables("Employees")
    objTable = objDataSet.Tables("Employees") objNewRow = objTable.NewRow()
    objNewRow = objTable.NewRow() objNewRow("姓氏") = "聂"
    objNewRow("姓氏") = "聂" objNewRow("名字") = "大鹏"
    objNewRow("名字") = "大鹏" objTable.Rows.Add(objNewRow)
    objTable.Rows.Add(objNewRow) 
     objNewRow = objTable.NewRow()
    objNewRow = objTable.NewRow() objNewRow("姓氏") = "王"
    objNewRow("姓氏") = "王" objNewRow("名字") = "志东"
    objNewRow("名字") = "志东" objTable.Rows.Add(objNewRow)
    objTable.Rows.Add(objNewRow) 
     dgNameList2.DataSource = objTable.DefaultView
    dgNameList2.DataSource = objTable.DefaultView dgNameList2.DataBind()
    dgNameList2.DataBind() 
     
     '-----------------------------------------------------------更新表中的行
    '-----------------------------------------------------------更新表中的行 dim objRow as DataRow
    dim objRow as DataRow 
     objRow = objTable.Rows(3)
    objRow = objTable.Rows(3) objRow("姓氏") = "谷"
    objRow("姓氏") = "谷" objRow("名字") = "丰"
    objRow("名字") = "丰" 
     dgNameList3.DataSource = objTable.DefaultView
    dgNameList3.DataSource = objTable.DefaultView dgNameList3.DataBind()
    dgNameList3.DataBind() 
     
     
     '-----------------------------------------------------------删除表中的行
    '-----------------------------------------------------------删除表中的行 objTable.Rows(objTable.Rows.Count - 2).Delete()
    objTable.Rows(objTable.Rows.Count - 2).Delete() 
     dgNameList4.DataSource = objTable.DefaultView
    dgNameList4.DataSource = objTable.DefaultView dgNameList4.DataBind()
    dgNameList4.DataBind() 
     
     
     '===========================================================更新数据源
    '===========================================================更新数据源 dim objBuilder as OledbCommandBuilder
    dim objBuilder as OledbCommandBuilder 
     objBuilder = new OledbCommandBuilder(objAdapter)
    objBuilder = new OledbCommandBuilder(objAdapter) objAdapter.UpdateCommand = objBuilder.GetUpdateCommand()
    objAdapter.UpdateCommand = objBuilder.GetUpdateCommand() objAdapter.InsertCommand = objBuilder.GetInsertCommand()
    objAdapter.InsertCommand = objBuilder.GetInsertCommand() objAdapter.DeleteCommand = objBuilder.GetDeleteCommand()
    objAdapter.DeleteCommand = objBuilder.GetDeleteCommand() 
     objAdapter.Update(objDataSet , "Employees")
    objAdapter.Update(objDataSet , "Employees") end sub
end sub </script>
</script>
 <html>
<html> <body>
<body> <table width=100%>
<table width=100%> <tr>
 <tr> <td>原始数据</td>
   <td>原始数据</td> <td>添加行</td>
   <td>添加行</td> <td>编辑行</td>
   <td>编辑行</td> <td>删除行</td>
   <td>删除行</td> </tr>
     </tr> <tr>
 <tr> <td valign=top><asp:datagrid id=dgNameList1 runat=server /></td>
   <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=dgNameList2 runat=server /></td> <td valign=top><asp:datagrid id=dgNameList3 runat=server /></td>
   <td valign=top><asp:datagrid id=dgNameList3 runat=server /></td> <td valign=top><asp:datagrid id=dgNameList4 runat=server /></td>
   <td valign=top><asp:datagrid id=dgNameList4 runat=server /></td> </tr>
     </tr>      </table>
   </table> 
    <hr>
   <hr> 
    <asp:datagrid id=dgUpd runat=server />
   <asp:datagrid id=dgUpd runat=server /> </body>
</body> </html>
</html>