用ADO对象访问Access数据库的方法

ASP与网络数据库学习报告
学院:
专业:
姓名：
学号：
成绩：
二0一 0 年十一月
用ADO对象访问Access数据库的方法
ADO称为“Active数据对象”，是基于组件的数据库编程接口。

ADO实际是一种提供访问各种数据类型的连接机制，是一个与编程语言无关的COM（Component Object Model）组件系统。

ADO设计为一种极简单的格式，可以方便地连接任何符合ODBC标准的数据库。

在数据库的应用中，使用ADO编写的应用程序可以存取Internet任何地方的数据。

而我们通常用ADO的Connection对象、Command对象、Recordset对象来创建数据库。

而Acesss 数据库是目前应用比较广泛的桌面型数据库，广泛应用于各种小型管理信息系统中。

现在我们就来创建一个“网上留言”数据库以详细理解用ADO对象访问Access数据库的方法。

一、创建背景
随着internet在中国的迅速发展,人们日常生活中越来越多地使用新技术来为自己的工作和学习服务。

在众多Internet关联功能中，有一项新的业务正成为所有用户所津津乐道的交流方式，这就是网上留言。

根据调查现在网民使用现状，网上留言板的使用百分比居前列。

二、数据库设计：
1.首先创建一个Access 2003数据库为onlineword.mdb，分别设计以下两个表:
reply表：字段名意义字段类型
reid 回复者信息主键数字
reply 回复者留言内容文字
retime 留言时间日期
leave表：字段名意义字段类型
Id 留言者信息主键数字
name 留言者姓名文字
sex 性别文字
ip ip地址数字
os 操作系统文字
qq qq号数字
mail 邮箱地址数字
addtime 添加时间日期
body 留言内容文字
ie ie类型文字
2.建一个文件conn.asp用于链接打开当前目录下的onlineword.mdb数据库。

代码如下：
<% set conn=server.createobject(＂ADODB.Connection＂)
Conn.open＂Provider=Mcorosoft.jet.oledb.4.0;
Data Source=＂& server.MapPath(＂onlineword.mdb＂)
%>
3.用connection对象在数据库的reply表中添加一条记录(插入语句)，建一个文件：insert.asp代码如下：
<!--include file＝＂conn.asp＂-->
<% sql1=＂insert into reply( reid,reply,retime) values(‘1’,’谢;
谢’,’10/11/12’)＂
conn.execute.sql1
conn.close
set.conn=nothing
%>
4.用对象显示表中记录，在当前目录下，建一个show.asp文件，代码如下：
<!--include file＝＂conn.asp＂-->
<% set rec=server.CreateObject("ADODB.RecordSet")
Sql2="select * from reply where reid="& rs("id")' & " order by reid desc"
rec.open sql2,conn,1,1
%>
<table width=＂100%＂>
<% do while not rec.eof %>
<tr><td><%=rs(reid) %></td></tr>
<tr><td><%=rs(reply) %></td></tr>
<tr><td><%=rs(retime) %></td></tr>
<% rec.movenext
wend
rec.close
set rec=nothing
%>
</table>
三、其他操作
打开管理员回复信息数据库，开始调用其中内容。

留言者的数据库内容的打开也与它类似。

1.添加模块： function add(){
if (document.addbook.body.value==""){
alert("请输入留言内容");
document.addbook.focus();
return false; }
输入信息判断是否为空，为空则弹出提示框。

<form action="Submit.asp" method="post" name="addbook" id="addbook" onsubmit="return add()">
<input name="name" type="text" id="name2" size="25">......浏览者填入自己的信息，输入数据库。

<input type="submit" name="Submit" value="提交">
<input name="Submit3" type="button" class="buttom-12" onClick="javascript:history.back(-1);" value="返回">
点击提交按钮，则完成添加功能。

2.删除功能：
代码：<% if del="yes" then
sql="delete * from 留言 where id=" & delid
rs.open sql,conn,3,2
sql="delete * from reply where reid=" & delid
rs.open sql,conn,3,2
end if %>
<% if del="all" then
sql="delete * from 留言"
rs.open sql,conn,3,2
sql="delete * from reply"
rs.open sql,conn,3,2
end if %>
管理者点击按钮，如删除该留言或所有留言则从数据库中删除留言或所有留言内容。

回复界面：<% if reply="" then
rs.open del_sql,conn,3,2
rs.close
set rs=nothing
response.Redirect("index.asp")
else
rs.open add_sql,conn,3,2
rs("reid")=reid
rs("reply")=reply
rs("retime")=retime
rs.update
rs.close
response.Redirect("index.asp")
end if
end if %>
用户写入回复留言，就是利用数据库写入并读出留言信息。

判断语句是表示回复语句如果为空，则表示删除了一个空字段后直接返回主界面；如果回复语句不为空，则添加回复者的留言内容。

最后读出留言者的留言内容。

3.这个版面还隐藏了编辑新留言的功能，只有管理员才有权限编辑，它的实现也要输入密码完成。

代码如下：
<% set rc=server.CreateObject("ADODB.RecordSet")
edit_id=Request.QueryString("reid")
edit_sql="select * from 留言 where id="&edit_id
rc.open edit_sql,conn,3,2
%>
<% if request.Form("edit")<>"" then
set rc=server.CreateObject("ADODB.RecordSet")
edit_id=Request.Form("edit_id")
edit_sql="select * from 留言 where id="&edit_id
rc.open edit_sql,conn,3,2
if request.cookies("pass")<>admin then
response.Write("<font size=2 color=red>错误的密码！</font>")
response.Write("<font size=2><a href=javascript:history.back(-1);>
返回修正错误</font></a>")
response.End()
end if %>
四、结论
通过以上对“网上留言”数据库的操作，我们可以看出ADO是一项很容易使用并可扩展的将数据库访问添加到Web页的技术。

而Acess数据库使用便捷，于SQL Server无缝集成，特别适合做小型信息管理系统的后台数据库。

用ADO对象访问Access数据库的方法主要就是用Connection对象、Command对象、Recordset对象来这三个对象来实现的。