[高分求]asp access多次搜索 如何优化代码 120
//判断数据库是否有记录FunctionCheckDB(x,y)setrs=server.createobject("adodb.recordset")sql="sele...
//判断数据库是否有记录
Function CheckDB(x,y)
set rs=server.createobject("adodb.recordset")
sql="select * from 表 where a=trim(x) and b=trim(y)"
rs.open sql,conn,1,3
If not (rs.bof and rs.eof) then
CheckDB=True
else
CheckDB=False
end if
rs.close()
set rs=nothing
end function
//函数结束
dim array1(3000)
dim array2(3000)
for i=0 to 2999
if CheckDB(array1(i),array2(i)) then
response.write("第" & i & "条数据,数据库中有这个条目")
next
说明:
1,我不操作数据库记录,仅仅查询。
2,上面代码的是3000条数据,如何才能不用频繁的rs.open 和rs.close?
请高手能给出意见,万分感谢!! 展开
Function CheckDB(x,y)
set rs=server.createobject("adodb.recordset")
sql="select * from 表 where a=trim(x) and b=trim(y)"
rs.open sql,conn,1,3
If not (rs.bof and rs.eof) then
CheckDB=True
else
CheckDB=False
end if
rs.close()
set rs=nothing
end function
//函数结束
dim array1(3000)
dim array2(3000)
for i=0 to 2999
if CheckDB(array1(i),array2(i)) then
response.write("第" & i & "条数据,数据库中有这个条目")
next
说明:
1,我不操作数据库记录,仅仅查询。
2,上面代码的是3000条数据,如何才能不用频繁的rs.open 和rs.close?
请高手能给出意见,万分感谢!! 展开
- 你的回答被采纳后将获得:
- 系统奖励15(财富值+成长值)+难题奖励10(财富值+成长值)+提问者悬赏120(财富值+成长值)
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询