ASP 根据数据库记录数判断,删除数据库第一条记录
我是想做这样一个页面不需要实际内容,只是脚本操作,可全部在<%%>中运行,打开数据库,判断记录总数是否大于10000如果大于,则删除第一条记录,仅此而已...
我是想做这样一个页面不需要实际内容,只是脚本操作,可全部在<%%>中运行,
打开数据库,判断记录总数是否大于10000 如果大于,则删除第一条记录,仅此而已 展开
打开数据库,判断记录总数是否大于10000 如果大于,则删除第一条记录,仅此而已 展开
3个回答
展开全部
假设数据库连结写在OpenConnection的funcion里面
假设数据库名称为AAA,假设自动编号字段名称拍唤为ID
<%
Set Conn = OpenConnection()
RecNum = Conn.Execute("Select Count(*) as RecNum from AAA")(0)
If RecNum > 10000 then
Set rs = Server.CreateObject("ADODB.RecordSet"卜族)
rs.Open "袭弊凯Select top 1 ID from AAA order by ID", Conn, 1, 1
ID = rs("ID")
rs.Close
Set rs = Nothing
Conn.Execute("Delete from AAA where ID = " & ID)
End If
Set Conn =Nothing
%>
假设数据库名称为AAA,假设自动编号字段名称拍唤为ID
<%
Set Conn = OpenConnection()
RecNum = Conn.Execute("Select Count(*) as RecNum from AAA")(0)
If RecNum > 10000 then
Set rs = Server.CreateObject("ADODB.RecordSet"卜族)
rs.Open "袭弊凯Select top 1 ID from AAA order by ID", Conn, 1, 1
ID = rs("ID")
rs.Close
Set rs = Nothing
Conn.Execute("Delete from AAA where ID = " & ID)
End If
Set Conn =Nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接在数据库里面写过你上诉要求罩耐的存储过程,然后在asp里面写上调用这个存储过程的语句就行了。
Dim objConn
Set objConn = Server.CreateObject("ADOBD.Connection") '建立数据库连接
objConn.Open Application("Connection_String") '打开数据库连接物团春或盯
'执行存储过程
objConn.Execute "exec 存储过程名"
Dim objConn
Set objConn = Server.CreateObject("ADOBD.Connection") '建立数据库连接
objConn.Open Application("Connection_String") '打开数据库连接物团春或盯
'执行存储过程
objConn.Execute "exec 存储过程名"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Set Conn = OpenConnection()
Num = Conn.Execute("Select Count(*) as RecNum from 要删除的表名")(0)
If RecNum > 10000 then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select top 1 id from 要删除的表名 order by id", Conn, 1, 1
id = rs("id")
rs.Close
Set rs = Nothing
Conn.Execute("核滑Delete from 要改启删除的表名 where id = "核氏如 & id)
End If
Set Conn =Nothing
Num = Conn.Execute("Select Count(*) as RecNum from 要删除的表名")(0)
If RecNum > 10000 then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select top 1 id from 要删除的表名 order by id", Conn, 1, 1
id = rs("id")
rs.Close
Set rs = Nothing
Conn.Execute("核滑Delete from 要改启删除的表名 where id = "核氏如 & id)
End If
Set Conn =Nothing
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询