<% @ Import Namespace = "System. Data" %>
<% @ Import NameSpace = "System. Data. OleDb" %>
<Script laguage = "VB" runat = "server">
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Sub page_load (sender as Object, e as EventArgs)
'1. Connect to the database
Dim dbname as string
Dbname = server. mappath ("authors. mdb ")
MyConnection = New OleDbConnection ("PROVIDER = Microsoft. Jet. OLEDB.4.0; DATA Source =" & dbname)
MyConnection. Open ()
La1.text = "Connection Opened! "
'2. Add record
MyCommand = New OleDbCommand ("Insert INTO Authors (Authors, country) Values ('simson', 'usa')", myConnection)
MyCommand. ExecuteNonQuery ()
La2.text = "New Record Inserted! "
'3. Access)
MyCommand = New OleDbCommand ("UPDATE Authors SET Authors = 'bennett 'WHERE Authors = 'simson'", myConnection)
MyCommand. ExecuteNonQuery ()
La3.text = "Record Updated! "
'4. access)
MyCommand = New OleDbCommand ("delete from Authors WHERE Authors = 'David'", myConnection)
MyCommand. ExecuteNonQuery ()
La4.text = "Record Deleted! "
'5 use DateGrid to display data
MyCommand = New OleDbCommand ("select * FROM Authors", myConnection)
MyDataGrid. DataSource = myCommand. Executereader ()
MyDataGrid. DataBind ()
End sub
</Script>
<Html>
<Body>
<Asp: label id = "la1" runat = "server"/> <br>
<Asp: label id = "la2" runat = "server"/> <br>
<Asp: label id = "la3" runat = "server"/> <br>
<Asp: label id = "la4" runat = "server"/> <br>
<ASP: DataGrid id = "MyDataGrid" runat = "server"
BorderColor = "black"
BorderWidth = "1"
GridLines = "Both"
CellPadding = "3"
CellSpacing = "0"
Font-Name = "Verdana"
Font-Size = "10pt"
HeaderStyle-BackColor = "# aaaadd"
AlternatingItemStyle-BackColor = "# eeeeee"
>
</Asp: DataGrid>
</Body>
</Html>