使用Recordset对象的Delete方法可以删除记录集内的当前记录。在使用该方法后,也应调用Update方法进行保存。
【例7.5】利用Recordset对象在student表中删除记录。
文件命名为7-5.asp的代码如下:
〈%Option Explicit%〉
〈HTML〉
〈HEAD〉
〈TITLE〉利用 Recordset 对象删除记录示例〈/TITLE〉
〈/HEAD〉
〈BODY〉
〈%
Dim Conn,str Sql,Rs
set Conn=Server .CreateObject (″ADODB.Connection″)
set Rs=Server .CreateObject (″ADODB.Record Set″)
Conn.ConnectionString=″DRIVER={Microsoft Access Driver (*.mdb)};DBQ=″&_
Server .MapPath (″school .mdb″)
Conn.open
strSql=″select*from student where id=8″
Rs .open strSgl,Conn,1,2
If Rs .Bof and Rs .Eof Then(www.xing528.com)
Response .Write ″没有你要删除的记录! ″
Else
Rs .Delete
Rs .Update
Response .Write″已成功删除一条记录,可用 7-3.asp 查看结果! ″
End If
%〉
〈/TABLE〉
〈/CENTER〉
〈%
Set rs=Nothing
Conn.close
Set Conn=Nothing
%〉
〈/BODY〉
〈/HTML〉
程序运行结果如图7-13 所示。
图7-13 例7.5运行结果
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。