1@ Import Namespace="System.Data"
1@ Import NameSpace="System.Data.OleDb"
1<script laguage="VB" runat="server">
2Dim myConnection As OleDbConnection
3Dim myCommand As OleDbCommand
4sub page_load(sender as Object,e as EventArgs)
5
6'1.连接数据库
7dim dbname as string
8dbname=server.mappath("authors.mdb")
9myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbname )
10myConnection.Open()
11la1.text="Connection Opened!"
12
13'2.添加记录
14myCommand = New OleDbCommand( "Insert INTO Authors(Authors,country) Values('Simson','usa')", myConnection )
15myCommand.ExecuteNonQuery()
16la2.text="New Record Inserted!"
17
18'3 更新数据(Access)
19myCommand = New OleDbCommand( "UPDATE Authors SET Authors='Bennett' WHERE Authors = 'Simson'", myConnection )
20myCommand.ExecuteNonQuery()
21la3.text="Record Updated!"
22
23'4 删除数据（access）
24myCommand = New OleDbCommand( "DELETE FROM Authors WHERE Authors = 'David'", myConnection )
25myCommand.ExecuteNonQuery()
26la4.text="Record Deleted!"
27
28'5 使用DateGrid显示数据
29myCommand = New OleDbCommand( "select * FROM Authors", myConnection )
30MyDataGrid.DataSource=myCommand.Executereader()
31MyDataGrid.DataBind()
32
33end sub
34</script>
1<html>
2<body>
3<asp:label id="la1" runat="server"></asp:label><br/>
4<asp:label id="la2" runat="server"></asp:label><br/>
5<asp:label id="la3" runat="server"></asp:label><br/>
6<asp:label id="la4" runat="server"></asp:label><br/>
7<asp:datagrid alternatingitemstyle-backcolor="#eeeeee" bordercolor="black" borderwidth="1" cellpadding="3" cellspacing="0" font-name="Verdana" font-size="10pt" gridlines="Both" headerstyle-backcolor="#aaaadd" id="MyDataGrid" runat="server">
8</asp:datagrid>
9</body>
10</html>