资源简介

授课章节名称 实验十：ADO数据对象上机操作
教学目的 掌握ACCESS数据库的连接和读取记录 学会数据库的基本操作--写入记录
教学重点 ACCESS数据库的连接和读取记录 数据库的基本操作--写入记录
教学难点 ACCESS数据库的连接和读取记录 数据库的基本操作--写入记录
更新、补充、删节内容
使用教具 机房
课外作业 见备课纸
课后体会 学生基本掌握
授课主要内容或板书设计
首先还打开我们上一节课建立的数据库中的表，随便输入几条记录，如下图： 下面开门见山，看两行代码： <%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/guestbook.mdb")
%> 　　第一行定义了一个adodb数据库连接组件，第二行连接了数据库，大家只要修改后面的数据库名字就可以了。是不是很简单？ 　　下面再看三行： <%
exec="select * from guest"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%> 　　这三行加在前面两行的后面，第一句：设置查询数据库的命令，select后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，我们前面建立的是不是一个gust表阿？第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3，好了接下来我们读取记录。

<%do while not rs.eof%>




<%
rs.movenext
loop
%>

<%=rs("name")%>

<%=rs("tel")%>

<%=rs("message")%>

<%=rs("time")%>

//下面的三条语句是用于关闭数据库
rs.close
set rs=nothing
conn.close
set conn=nothing 先学习写入记录。先建立一个表单：(把下面文章保存为5.htm)
name

tel

message



　　表单提交到exa5.asp，下面是exa5.asp的代码： (把下面代码保存为5.asp) <%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/guestbook.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message")
exec="insert into guest(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%> 　　在这里前面两句我不说了，后面三句我也不说了，前面说过exec里面的是执行的命令，添加记录的比较繁，大家要仔细看。 　　insert into后面加的是表的名字，后面的括号里面是需要添加的字段，不用添加的或者字段的内容就是默认值的可以省略。注意，这里的变量一定要和ACCESS里面的字段名对应，否则就会出错。values后面加的是传送过来的变量。exec是一个字符串，"insert into guest(name,tel,message)values('"是第一段，在ASP里面不能嵌双引号，所以可以用'代替双引号，放在双引号里面，连接两个变量用+或者&所以"',"又是一段，中间夹了一个name就是表单传来的变量，这样就可以在这个变量外面加两个''，表示是字符串了，后面的tel是数字型变量所以不需要外面包围''，大家慢慢分析这句话，如果用表单传来的数据代替变量名字的话这句话为（假设name="aaa",tel=111,message="bbb"）："insert into guest(name,tel,message)values('aaa',111,'bbb')"。 　　接下来的conn.execute 就是执行这个exec命令，最后别忘记把打开的数据库关闭，把定义的组件设置为空，这样可以返回资源。 　　下面几条语句用于关闭数据库的代码： rs.close
set rs=nothing
conn.close
set conn=nothing 　　记住，次序不可以颠倒！ 可以到数据库里面去看一看，或者用duqu.asp读取看看是不是多了记录阿？下面是我利用上一节的文件读取数据库的图：

展开更多......

收起↑