如何从已ACCESS中的查询表中读取数据？ - 编程论坛

#2

yms1232011-09-13 10:21

直接用adodb来查就可以
<%
  Dim con,rs,DbPath
  DbPath="[Access数据库路径]"
  ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DbPath)&";Persist Security Info=False"
  set con=server.createobject("adodb.connection")
  set rs=server.createobject("adodb.recordset")
  con.connectionstring=ConStr
  rs.open "select * from 查询个人所得税",con,1,1
  Do Until rs.EOF
     Response.Write rs("个人所得税")&"<br/>"
     rs.MoveNext
  Loop
  rs.close
  con.close
  set rs=nothing
  set con=nothing
%>

#3

qjw90042011-09-13 12:38

回复 2楼 yms123

你好~~~我调试时为什么出现这样的错误呢？

ADODB.Recordset '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

\my\gzxt\untitled.asp, line 8

#4

yms1232011-09-13 13:50

<%
  Dim con,rs,DbPath
  DbPath="[Access数据库路径]"
  ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DbPath)&";Persist Security Info=False"
  set con=server.createobject("adodb.connection")
  set rs=server.createobject("adodb.recordset")
  con.connectionstring=ConStr
  con.open
  rs.open "select * from 查询个人所得税",con,1,1
  Do Until rs.EOF
     Response.Write rs("个人所得税")&"<br/>"
     rs.MoveNext
  Loop
  rs.close
  con.close
  set rs=nothing
  set con=nothing
%>
忘了打开链接了开一下就可以了

#5

qjw90042011-09-13 15:21

回复 4楼 yms123

非常感谢！~~~