Question

Asp Access数据库 报错80040e37，如何解决？

有3个文件路径：

C:\inetpub\wwwroot\company\include\conn.asp
C:\inetpub\wwwroot\company\data\kk.mdb
C:\inetpub\wwwroot\company\index.asp

----------------------------------------------------------conn.asp----------------------------------------------------------

<%
Response.Buffer = True
dim conn
set Conn=server.CreateObject("adodb.connection")
Conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../data/jlmydata.mdb"))
%>
'这页运行没错错误，数据库可连接

----------------------------------------------------------index.asp-----------------------------------------------------------
<!--#include file="../include/conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from AdminKey where adminname='"&myusn&"' and adminkey='"&mypwd&"'",conn,1,1
rs.close

set rs=nothing

%>

----------------------------------------------------------jlmydata.mdb-------------------------------------------------------
有一张表表名是AdminKey，有两个字段adminname，adminkey

---------------------------------------------------------------------------------------------------------------------------------
感觉没有任何错误之处，但是报错为：
Microsoft JET Database Engine 错误 '80040e37'
Microsoft Jet 数据库引擎找不到输入表或查询 'AdminKey'。 确定它是否存在，以及它的名称的拼写是否正确。
/company/test.asp，行 4

求助：网上搜索了一下，好像数数据库搬移或复制问题造成的。请求大神给予帮助，小弟是新手，谢谢。
有这么一说'exec sp_msforeachtable "sp_changeobjectowner '?','dbo'"
可惜我不会弄，再次请求大神降临，谢谢！

Answer 1

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from AdminKey where adminname='"&myusn&"' and adminkey='"&mypwd&"'",conn,1,1
改为
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from AdminKey where adminname='"&myusn&"'",conn,1,1

如果还不正常,则与adminkey无关

如果能正常
则 adminkey有误,查看字表属性或mypwd有无值存在

追问

我都改成了rs.Open "select * from AdminKey'",conn,1,1也还是同样的报错

仍然说找不到表
不过确确实实是存在这个表的，表名也没错
应该是和adminkey没关系
我也是第一次碰到这个情况，麻烦

追答

改一下coon.asp试下
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/jlmydata.mdb")
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp中的数据库指向。"'
Response.End
End If

Answer 2

首先，你的表名称和字段名都是adminkey，这就是毛病。很可能是这个导致ODBC驱动查找对象失败。先试试用select * from [AdminKey] ，也就是加中括号。如果还不行，请把表名或字段名改掉试试。

Answer 3

AdminKey 这个表不存在，检查一下是不是写错了

追问

上面讲了，表是确切存在的，也没写错。谢谢你的好心。