An example of using ASP + to access a database
<% @ Page Language = "VB" %>
<% @ Import namespace = "system. Data" %>
<% @ Import namespace = "system. Data. Ado" %>
<Script language = "VB" runat = "server">
Sub subbtn_onclick (sender as object, e as eventargs)
Dim connobj as adoconnection
Dim dtscmdobj as adodatasetcommand
Dim dtsobj as Dataset
Dim str_ SQL as string
Dim conn_str as string
Str_ SQL = "select * From table_name"
Conn_str = "DBQ =" & server. mappath ("database. mdb ")&_
"; Driver = {Microsoft Access Driver (*. mdb )};"
Connobj = new adoconnection (conn_str)
Dtscmdobj = new adodatasetcommand (str_ SQL, connobj)
Dtsobj = new dataset ()
Dtscmdob. filldataset (dtsobj, "table_name ")
Dtgrid. datasource = dtsobj. Tables ("table_name"). defaultview
Dtgrid. databind ()
End sub
</SCRIPT>
<HTML>
<Body>
<Form action = "DB. aspx" method = "Post" runat = "server">
<Asp: button type = "Submit" id = "subbtn" text = "Run query" onclick = "subbtn_onclick" runat = "server"/>
</Form>
<Asp: DataGrid id = "dtgrid" headerstyle-font-bold = "true" tooltip = "data grid provided with ASP +" runat = "server" maintainviewstate = "false"/>
</Body>
</Html>