莫名奇妙的错误。

[terpitude]

我在用中国铁道出版社的《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

[ytc1977]

2000+pws有没搞错呀

[firedragoninhell]

ytc1977说的对，2000自带iis5.0，为什么用pws?

[terpitude]

我换了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里有了改变呢?

[terpitude]

我现在发现原来在98里可以运行的很多东西现在在2000里似乎都不正常了，这是怎么回事情呢?

[kongming]

换成这种方式看行不行：
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

[kongming]

那台win2000机器装office2000了吗？

[gooyan]

GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
改为
GetSQLRecordset.Open strSQL, objConn, 3，3

[孟子E章]

数据库连接出了问题，看看odbc，再看看是否有该数据库引擎

[firedragoninhell]

GetSQLRecordset.Open strSQL, objConn 后边不要带参数或将参数换成数字试一试。

[firedragoninhell]

有可能是2000的驱动程序太新了，有一个方法：将98下的odbc将2000下的覆盖，哎呀，具体方法忘记了，哪位知道？

[terpitude]

都不行，还得请高手呀。

To孔明:
我装了Office2000

[tripofdream]

adOpenKeyset, adLockOptimistic, adCmdText改成对应的数值,或把那个什么"adovb.inc" include进来试试

[terpitude]

我开始做的时候就把adovb.inc加进来了，可是没有用呀。

[tripofdream]

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下测试通过