MyException - 我的异常网
当前位置:我的异常网» ASP » 哪位高手能告诉小弟我如何编写access显示效果

哪位高手能告诉小弟我如何编写access显示效果

www.MyException.Cn  网友分享于:2013-02-20  浏览:3次
谁能告诉我怎么编写access显示效果
谁能告诉我如何编写只显示谁不能告诉我如何编成只显示data栏目里“2013-2-3”对应的"yhm"和“mima”栏目里的信息:
access的内容如下图


要显示的效果如下:
16161616161  1717171717171
18181818181  1919191919191
20202020202  2121212121212 

------解决方案--------------------
你自己不是写好了吗?
帮你改了下:
<%
Dim conn
Set conn = server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/nod32.mdb")

Dim exec, rs
exec = "select * from [id] where data='"&Date()&"'"
Set rs = server.CreateObject("adodb.recordset")
rs.Open exec, conn, 1, 1
%>
<%do while not rs.eof%> 
<%=rs("yhm")%><br> 
<%=rs("mima")%><br> 
<%=rs("date")%><br> 
<% 
rs.movenext 
loop 
%> 
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有