当前位置:数据库 > Access >>

ACCESS数据库中如何以某个字段为关键字做个查询 能够显示新窗口显示自己做的窗体或者数据访问页

ACCESS数据库中如何以某个字段为关键字做个查询窗体 能够显示新窗口显示自己做的窗体或者数据访问页 查询窗体是如下图 然后显示的新窗体或数据访问页是我自己做的(再问下2007怎么没了数据访问页) 回答对我有帮助再追加分 急急急
答案:这是我的代码,是从数据库中读取满条件的某个字段的值作为选项,用表单传给另一个文件。
      <form method="POST" action="news-fj-upfilef1.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
        <p><font size="3"><!--webbot bot="Validation" S-Data-Type="String"
        B-Value-Required="TRUE" --><select size="8" name="D1">
<%set connect=server.createobject("adodb.connection")                                      
connect.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("*********.mdb")
exec="select * from new"
set rss=server.CreateObject("adodb.recordset")      
rss.open exec,connect,1,3    

i=1 
do while not rss.eof  
rss("编号")=i
i=i+1
rss.Movenext
loop

rss.Movefirst
do while not rss.eof    
if (rss("类别")="教学资源" or rss("类别")="新闻" or rss("类别")="工资查询" or rss("类别")="班主任工作") and rss("添加人")=session("yhm") then
Response.Write "<option value="%>"<%=rss("编号")%>">                      
<%=rss("编号")+"  "%><%=left(server.htmlencode(rss("标题")),9)%>       
<%Response.Write "</option>"                              
end if
rss.Movenext
loop

i=1
rss.Movelast

rss.close
set rss=nothing
connect.close
set connect=nothing
%>
        </select>                               
        </font>                 
        <p><font size="3">                               
        <input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2">                      
        </font>                 
      </form>

上一个:access数据库 按汉字数量排序,如何查询?
下一个:请教把ACCESS数据库转成MSSQL的一些建议!

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,