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的一些建议!