一、Recordset 对象简述
Recordset 对象表示的是来自基本表或命令执行结果的记录全集。在任何情况下,该对象所指的当前记录均为集合内的单条记录。使用 Recordset 对象可以操作来自提供程序的数据,通过该对象几乎可以对所有数据进行操作。所有 Recordset 对象均使用记录(行)和字段(列)进行构造。Recordset 对象实际上是依附于 Connection 对象和 Command 对象之上的。通过建立及开启一个 Connection 对象,可以与我们关心的数据库建立连接;通过使用 Command 对象,则可以告诉数据库我们想要做什么:是插入一条记录,还是查找符合条件的记录;通过使用 Recordset 对象,则可以方便自如地操作 Command 对象返回的结果。
二、创建 Recordset 对象
要使用 Recordset 对象处理结果,首先必须创建 Recordset 对象实例。其格式如下:
Set RS=Server.CreateObject("adodb.recordset")
三、打开记录集
RS.Open Source,ActiveConnection,CursorType,LockType,Options
所有的参数都是可选项。Source 为 Command 对象变量名、SQL 语句、表名、存储过程调用或持久 Rcordset 文件名。
ActiveConnection 为有效的 Connection 对象变量名或包含 ConnectionString 字符串。
LockType 指定打开 Recordset 时应使用的锁定类型。
Options 指定如何计算 Source 参数或从以前保存 Recordset 的文件中恢复 Recordset。
四、Recordset 对象的常用属性
Recordset 对象的常用属性<表> 属 性 描 述 / 注 解
ActiveConnection 指定与数据提供者的连接信息,用来指定当前的 Recordset 对象属于哪个 Connection 对象。
Source 指定 Recordset 对象的数据源,可以是一个 Command 对象名、SQL 语句、数据库表或存储过程 。
CoursorType 指定 Recordset 对象所使用的光标类型。
共有 4 种光标类型:
0 一 前滚光标,光标只能向前移动,执行效率高。是 Cursor 的默认值;
1 一 键盘光标,光标可向前或向后移动,Recordset 记录集同步反映自它创建后其他用户所作的修改和删除,但却不能同步反映自它创建后其他用户新增加的记录;
2 一 动态光标,光标可向前或向后滚动,任何时候 Recordset 记录集都同步反映其他用户的任何操作;
3 一 静态光标,光标可向前或向后移动,自创建后无法同步反映其他用户所做的任何操作,它的功能简单但消耗资源少。
LockType 表示编辑时记录的锁定类型。它决定了当不止一个用户试图同时改变一个记录时,Recordset 如何处理数据记录。
0 一 只读锁定,记录只读,不能更新 Recordset ,为 LockType 的默认值;
1 一 悲观锁定,编辑记录开始立刻锁定,直到提交给数据提供者;
2 一 乐观锁定,一次锁定一条记录,只有调用 Update 方法提交数据时才锁定记录;
3 一 乐观的批量更新,允许同时更新多条记录。
Filter 用来设定一个过滤条件,以便对 Recordset 记录进行过滤。
CacheSize 表示一个 Recordset 对象在高速缓存中的记录数。
Maxrecords 执行一个 SQL 查询时,返回 Recordset 对象的最大记录数。
Bof 判断记录指针是否到了第一条记录之前。
Eof 判断记录指针是否到了最后一条记录之后。
RecordCount 返回 Recordset 对象的记录数,(在使用键盘光标时,该属怀返回 的可能是不太准确的数值;一般情况下,并不用这种方法来统计 Recordset 中的记录数,因为它的性能并不稳定)
Bookmark 书签标记,用来保存当前记录的位置。
AbsolutePosition 用来设定 Recordset 对象中当前记录的顺序位置是第几行记录。
PageSize 表示 Reccordset 对象的页面大小(每页多少条记录),默认值为10。
PageCount 表示 Recordset 对象的页面个数。
AbsolutePage 表示当前记录的页号。
EditMode 指示当前记录的编辑状态,0 一 已被编辑;1 一 已被修改而未提交;2 一 存入数据库的新记录 。
Status 对 Recordset 对象进行批量更新后,查询当前记录的状态。
值 意义描述 值 意义描述
0 记录更新成功。 1024 存在记录锁定,新记录未保存。
1 新记录。 2048 使用乐观并发事件,未保存。
2 记录被删除。 4096 用户违反完整性规则,记录未保存。
4 记录未被删除。 8192 很待定修改,记录未保存。
8 记录未被修改。 16384 与一存储对象相冲突,记录未保存。
16 书签不合法,记录未保存。 32768 内存不够,记录未保存。
64 影响多个记录,未保存。 65536 用户没有中、足够的权限,未保存。
128 指向一待定插入,记录未保存。 131072 违反基本数据库原则,记录未保存。
256 操作被取消,记录未保存。 262144 记录已从数据源删除。
五、Rcordset 对象的方法
Recordset 对象的方法<表二> 方法 描述 / 格式 / 注解
Open 打开一个 Recordset 对象。
Rs.Open[Source][,ActiveConnection][,CursorType][,LursorType][,Option]
Rs :为已经建立的 Recordset 对象;
Source :为可选参数,可以是一个 Command 对象名、SQL 语句、数据库表或存储过程;
ActiveConnection :定义与数据库的连接信息;
CursorType :是Recordset 对象所使用的光标类型;
LockTypec 是编辑 Recordset 对象记录时所使用的锁定类型;
Option 指示数据提供者如何处理 Source 的内容类型,其参数值及其意义见下表:
Options值 意义描述
1 表示被执行的字符串包含一个命令文本。
2 表示被执行的字符串包含一个表名。
4 表示被执行的字符串包含一个存储过程名。
8 没有指定字符串的内容(这是默认值)
Close 关闭一个 Recordset 对象。 但并不从内存中删除该对象,只是无法读取其中的数据,但仍然可以读取它的属性。因此一个关闭的 Recordset 对象还可以用 Open 方法打开并保持其原有属性。
Rs.Close
Rs:为已经建立的 Recordset 对象;如果正进行编辑更新数据的操作,则在使用此方法之前必须先调用 Update 和 CancelUpdate 方法。否则将会出现错误。
Clone 创建一个 Recordset 对象的完全拷贝,但只有所用的 Recordset 对象类型允许使用 Bookmarks时才能使用该方法。
MoveFirst 把 Recordset 指针指向第一行记录。
Rs.MoveFirst
MoveLast 把 Recordset 指针指向最后一条记录(该 Recordset 必须支持书签)。
Rs.MoveLast
MovePrevious 把Recordset 指针上移一行(使用前应判断 BOF 是否为真,该方法必须支持书签)。
Rs.MovePreviors
MoveNext 把Recordset 指针下移一行(使用前应判断 EOF 是否为真)。
Rs.MoveNext
Move 把Recordset 指针指向指定的记录。
Move n [,start]
n 为要移动的记录数,取正时表示向前(下)移动,取负时表示向后(上)移动;
start 是可选参数,表示移动的起点。
GetRows 从一个 Rexordset 对象读取一行或多行记录到一个数组中。
Myarray=Rs.GetRows ( rows,start,fields )
Myarray 为目标数组名;Rs 为已创建的 Recordset 对象,Rows 为返回数组的行数;start 为读取数据的起点 (书签);Fields 为 Recordset 的字段。
NextRecordSet 清除当前的 Recordset 并执行下一条指令,以传回下一个 Recordset 对象,如果没有下一条指令,则返回 Nothing 给 Recordset 。
Requery 重新执行 SQL 操作,以更新 Recordset 对象中的数据。
Resync 从数据源更新当前的 Recordset 记录,实现与数据源的同步。
Addnew 增加一条空记录。
Rs.AddNew N
增加一条空记录,并将数组中的元素(N)添加到这条空记录中。
Delete 删除当前记录。
Delete [value]
如果 value=1(默认值)表示该方法只删除当前记录,value=2 表示该方法删除所有由 Filter 属性设定的记录。
Update 保存当前记录的任何变动。
Rs.Update
CancelUpdate 取消前一个 Update 方法所做的一切修改。
UpdateBatch Recordset 工作在批量方式时,取消对 Recordset 的更新。
Suports 获取创建的 Recordset 对象的能力信息。
注:使用 Move 、MoveFirst 、MoveLast 、MovePrevious 、MoveNext 方法移动记录指针时,需要注意 Rrcordset 对象的光标类型。如“前滚光标”限制了记录指针只能向前移动。
六、Recordset 对象的应用实例
1、这是一个简单的员工基本情况管理系统,其功能有:1)、添加员工资料;2)、更改员工资料;3)、删除员工资料。它包含着六个页面和一个数据库。分别为:
1)、主页面:index.asp
2)、添加数据页面:add.htm
3)、保存添加数据页面:add.asp
4)、更改数据页面:Update.asp
5)、保存更改数据页面:Update2.asp
6)、删除记录页面:Detele.asp
7)、数据库:RSGL.mdb.用到该数据库中的”员工基本情况表“。
2、各页面的代码如下:
1)、主页面:index.asp。该页面的功能有:
a、创建两个对象,Connectiion对象和Recordset对象,其目的是连接数据库和返回一个记录集;
b、创建一个表格,使do while循环语句将各条记录在表格中显示出来;
c)、创建三个超连接,一个用以连接添加数据页面,另一个通过指定的员工姓名连接到更改数据页面,还有一个通过指定的员工姓名连接到删除页面。
<% @ Language="VBScript" %>
<html>
<head><title>员工基本情况管理系统</title></head>
<body>
<%
'****************创建两个对象(连接对象、记录集对象)*********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串,
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<!--************创建一个表格,用以显示数据库中的各条记录***********-->
<table align="center" border="1"><caption><h3>教职员工基本情况表</h3></caption>
<tr colspan="5"><td><a href="add.htm">添加记录</a></td></tr>
<!--显示各字段名-->
<tr><td align="center">员工姓名</td><td align="center">所在部门</td><td align="center">家庭住址</td><td align="center">家庭电话</td><td align="center">Email</td><td align="center">状态</td>
<%
'使用do while循环语句将各条记录显示出来。
do while Not rst.eof
t1=rst("员工姓名")
t2=rst("所在部门")
t3=rst("家庭住址")
t4=rst("家庭电话")
t5=rst("Email")
tt="<tr align='center'><td>" & t1 & "</td><td>" &t2& "</td><td>" &t3& "</td><td>" &t4& "</td><td>" &t5& "</td><td>"
tt=tt & "<a href=Update.asp?id=" & t1 & ">修改</a><a href=Detele.asp?id=" & t1 & ">||删除</a></td></tr>"
response.write tt
rst.MoveNext
loop
cnn.Close
Set cnn=Nothing
%>
</table>
</body>
</html> 2)、添加数据页面:add.htm 。本页面由一个表单组成,其功能是向保存添加数据页面(add.asp)提交数据。 <html>
<head><title>添加记录</title></head>
<body>
<div align="center">
<form name="form1" method="post" action="add.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right">员工姓名:</td>
<td><input type="text" name="txtName"></td></tr>
<tr><td align="right">所在部门:</td>
<td><input type="text" name="txtDepartment"></td></tr>
<tr><td align="right">家庭住址:</td>
<td><input type="text" name="txtAddr"></td></tr>
<tr><td align="right">家庭电话:</td>
<td><input type="text" name="txtTel"></td></tr>
<tr><td align="right">Email:</td>
<td><input type="text" name="txtemail"></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
<a href="index.asp">返回首页</a>
</div>
</body>
</html>
3)、保存添加数据页面:add.asp。该页面的功能有:a)、使用Request对象获取从add.htm页面提交的值;b)、创建三个对象(一个连接对象、二个记录集对象),通过rs.addnew,rs.update两个函数将数据保存到数据库;c)、显示信息提示框。
<% @ Language="VBScript" %>
<html>
<head>
<title>添加记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'**************使用Request对象获取从add.htm页面中提交的值************************************
Name1=Request.Form("txtName")
Department=Request.Form("txtDepartment")
Addr=Request.Form("txtAddr")
Tel=Request.Form("txtTel")
Email=Request.Form("txtEmail")
if Tel="" then
Tel="不祥"
end if
if Email="" then
Email="不祥"
end if
if name1="" or department="" or Addr="" then
%>
<script language="vbscript">
alert("员工姓名、所在部门和家庭住址中只少有一项为空,请填写完整。")
history.back
</script>
<%
else
'****************创建三个对象(一个连接对象、二个记录集对象)*********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
'指定连接字符串,
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
'建立Recordset对象并以追加记录方式打开数据库。
set rst=Server.CreateObject("ADODB.Recordset")
set rst1=Server.CreateObject("ADODB.Recordset")
sSQL="select * from 员工基本情况表 where 员工姓名='" & name1 & "'"
rst.Open sSQL,cnn,1,1
if rst.EOF or rst.BOF then '如果数据表中无此数据,则添加记录。
rst1.Open "员工基本情况表",cnn ,1,2
rst1.addnew array("员工姓名","所在部门","家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
rst1.update
%>
<!--**********显示信息提示框**************-->
<script language="vbscript">
alert("记录添加成功!")
window.location.href="index.asp"
</script>
<%
rst1.close
set rst1=nothing
else
%>
<script language="vbscript">
alert("员工姓名为:“<%=name1 %>” 的记录已经存在。")
history.back
</script>
<%
end if
rst.close
set rst=nothing
end if
%>
<h3>记录添加成功!</h3>
<p><a href="add.htm">返回记录添加表单</a> || <a href="index.asp">返回首页</a>
</center>
</body>
</html>
4)、更改数据页面:Update.asp。该页面的功能有:a、创建两个对象,Connectiion对象和Recordset对象,其目的是连接数据库和返回一个记录集;b、创建一个表单,其目的是提交更改过的数据。
<%
a=request("id")
response.write a
'response.end
'****************创建两个对象(连接对象、记录集对象)*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串,
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表 where 员工姓名='" & a & "'"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<html>
<head><title>更改记录</title></head>
<body>
<div align="center">
<!--****************创建一个表单*****************************-->
<form name="form1" method="post" action="Update2.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right">员工姓名:</td>
<td><input type="text" name="txtName" value=<%=rst("员工姓名")%> readonly></td></tr>
<tr><td align="right">所在部门:</td>
<td><input type="text" name="txtDepartment" value=<%=rst("所在部门")%>></td></tr>
<tr><td align="right">家庭住址:</td>
<td><input type="text" name="txtAddr" value=<%=rst("家庭住址")%>></td></tr>
<tr><td align="right">家庭电话:</td>
<td><input type="text" name="txtTel" value=<%=rst("家庭电话")%>></td></tr>
<tr><td align="right">Email:</td>
<td><input type="text" name="txtemail" value=<%=rst("Email")%>></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
</div>
</body>
</html>
5)、保存更改数据页面:Update2.asp。 该页面的功能有:a)、使用Request对象获取从Update.asp页面提交的值;b)、创建二个对象(连接对象、记录集对象);c)、通过表格显示更改后的记录。
<% @ Language="VBScript" %>
<%
'*****************从提交表单中提取数值***************************
Dim Name,Department,Addr,Tel,Email
Name=Trim(Request.Form("txtName"))
Department=Trim(Request.Form("txtDepartment"))
Addr=Trim(Request.Form("txtAddr"))
Tel=Trim(Request.Form("txtTel"))
Email=Trim(Request.Form("txtEmail"))
%>
<html>
<head>
<title>更改记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创建二个对象(连接对象、记录集对象)*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串,
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="update 员工基本情况表 set 所在部门='" & Department & "',家庭住址='" & Addr & "',家庭电话='" & Tel & "',Email='" & Email & "' where 员工姓名='" & name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
%>
<!--**************************用表格显示记录。**********************-->
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right" width="130" align="center">员工姓名:</td>
<td width="200"><%=Name %></td></tr>
<tr><td align="right">所在部门:</td>
<td><%=Department %></td></tr>
<tr><td align="right">家庭住址:</td>
<td><%=Addr %></td></tr>
<tr><td align="right">家庭电话:</td>
<td><%=Tel %></td></tr>
<tr><td align="right">Email:</td>
<td><%=Email %></td></tr>
</table>
<center>
<p><hr width="505" color="#cc9999">
<h3>记录更改成功!</h3>
<p><a href="index.asp">返回首页</a>
</center>
</body>
</html>
6)、删除数据页面:Detele.asp。 a)、使用Request对象获取要删除的员工姓名;b)、创建二个对象(连接对象、记录集对象);c)、给出删除成功提示框。
<% @ Language="VBScript" %>
<%
'从提交表单中提取数值
Dim Name
Name=Trim(Request.Querystring("id"))
%>
<html>
<head>
<title>更改记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创建二个对象(连接对象、记录集对象)*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串,
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="delete from 员工基本情况表 where 员工姓名=" & "'" & Name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
ifo="员工姓名为:“" & name & "” 的记录已被您成功的删除!"
%>
<script languge="vbscript">
alert("<%=ifo %>")
window.location.href="index.asp"
</script>
<p><a href="index.asp">返回记录添加表单</a>
</center>
</body>
</html>