莫名奇妙的错误。

terpitude 2001-07-17 11:11:02
我在用中国铁道出版社的《ASP与网页数据库设计一书》。
书中的留言簿例题在98,PWS下运行的时候,开始的时候运行的很好.
换了一台机器 win2000,PWS,运行的时候确出现了错误,如下:

Microsoft JET Database Engine (0x80040E10)
/ch12/ADOFunctions.asp, 第 25 行

这几行主要是定义了一个函数:
Function GetSQLRecordset(strSQL, FileName, TableName) SetobjConn=Server.CreateObject"ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open

Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
'下面是第25行
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function

...全文
114 点赞 收藏 14
写回复
14 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tripofdream 2001-07-21
Function GetSQLRecordset(strSQL, FileName, TableName)
dim objConn
dim rs
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath(FileName)
objConn.Open
'Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
set rs=server.CreateObject("adodb.recordset")
rs.Open strSQL, objConn, 3, 2,1
set GetSQLRecordset=rs
End Function

Win2000Server+iis5.0+Access2000下测试通过
回复
terpitude 2001-07-20
我开始做的时候就把adovb.inc加进来了,可是没有用呀。
回复
tripofdream 2001-07-19
adOpenKeyset, adLockOptimistic, adCmdText改成对应的数值,或把那个什么"adovb.inc" include进来试试
回复
terpitude 2001-07-19
都不行,还得请高手呀。

To孔明:
我装了Office2000
回复
firedragoninhell 2001-07-19
有可能是2000的驱动程序太新了,有一个方法:将98下的odbc将2000下的覆盖,哎呀,具体方法忘记了,哪位知道?
回复
firedragoninhell 2001-07-17
GetSQLRecordset.Open strSQL, objConn 后边不要带参数或将参数换成数字试一试。
回复
孟子E章 2001-07-17
数据库连接出了问题,看看odbc,再看看是否有该数据库引擎
回复
gooyan 2001-07-17
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
改为
GetSQLRecordset.Open strSQL, objConn, 3,3
回复
kongming 2001-07-17
那台win2000机器装office2000了吗?
回复
kongming 2001-07-17
换成这种方式看行不行:
Function GetSQLRecordset(strSQL, FileName, TableName)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "driver={microsoft access driver(*.mdb)};"&"dbq=" & Server.MapPath(FileName)
objConn.Open

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
set GetSQLRecordset=rs
End Function
回复
terpitude 2001-07-17
我现在发现原来在98里可以运行的很多东西现在在2000里似乎都不正常了,这是怎么回事情呢?
回复
terpitude 2001-07-17
我换了IIS可是好象还是没有用。我换了一种方式
Function GetSQLRecordset(strSQL, FileName, TableName)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "driver={microsoft access driver(*.mdb)};"&"dbq=" & Server.MapPath(FileName)
objConn.Open

Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function

结果错误还是存在呀。还是出现在GetSQLRecordSet.Open那一行。
我感觉顶楼的说的有点道理,只是如何检查他们这些驱动程序在不在呢?
是不是驱动程序的版本在win2000里有了改变呢?
回复
firedragoninhell 2001-07-17
ytc1977说的对,2000自带iis5.0,为什么用pws?
回复
ytc1977 2001-07-17
2000+pws有没搞错呀
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-07-17 11:11
社区公告
暂无公告