作业环境是XP SP2 商业版 和IIS5.1 ，资料库是用access，我用DREAMWEAVER 来连的，不知道是哪出了差错，麻烦大大指教，谢谢。

结果出现这样的错误讯息:

错误类型：
Microsoft OLE DB Provider for ODBC Driv ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

你在AtiveConnection 没有定义要使用那一个Driver 来 Connection

例如::
strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb)
Set objDBcon1 = Server.CreateObject("ADODB.Connection")
objDBcon1.Open strConn1
Rectest.ActiveConnection = objDBcon1

下面是引用setiufo于2006-10-2 19:26发表的 :


你在AtiveConnection 没有定义要使用那一个Driver 来 Connection

例如::
.......

那我现在是要把这段程式码" strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb) " 贴到箭头所指地方吗?
还是要怎改? 谢谢大大回应。

这是程式码:
<%
Dim Rectest
Dim Rectest_numRows

<<==这里
Set Rectest = Server.CreateObject("ADODB.Recordset")
Rectest.ActiveConnection = MM_conntest_STRING

Rectest.Source = "SELECT * FROM t1"
Rectest.CursorType = 0
Rectest.CursorLocation = 2
Rectest.LockType = 1
Rectest.Open()

Rectest_numRows = 0
%>

<%
Dim Rectest
Dim Rectest_numRows

strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb)
Set objDBcon1 = Server.CreateObject("ADODB.Connection")
objDBcon1.Open strConn1
Set Rectest = Server.CreateObject("ADODB.Recordset")
Rectest.ActiveConnection = objDBcon1
Rectest.Source = "SELECT * FROM t1"
Rectest.CursorType = 0
Rectest.CursorLocation = 2
Rectest.LockType = 1
Rectest.Open()

Rectest_numRows = 0
%>

PS: YourDB.mdb 是您存放Access档案的名称....

希望能解决....感谢你的鲜花

下面是引用setiufo于2006-10-2 22:27发表的 :

红色的地方是需要修改的吗?
<%
Dim Rectest
Dim Rectest_numRows

strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb)
.......

<%
Dim Rectest
Dim Rectest_numRows

strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb)
Set objDBcon1 = Server.CreateObject("ADODB.Connection")
objDBcon1.Open strConn1
Set Rectest = Server.CreateObject("ADODB.Recordset")
Rectest.ActiveConnection = objDBcon1
Rectest.Source = "SELECT * FROM t1"
Rectest.CursorType = 0
Rectest.CursorLocation = 2
Rectest.LockType = 1
Rectest.Open()

Rectest_numRows = 0
%>

我有将程式码要增加的红色匡起来....我刚刚又重新修改过了

下面是引用对的人于2006-10-2 22:31发表的 :


<%
Dim Rectest
Dim Rectest_numRows
.......

objDBcon1

这个的 DB 是改成我资料库的名称吗?

strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb)
                               
上面的YourDB.mdb -- >>是您的Access资料库档案存放的名称

下面是引用setiufo于2006-10-2 22:42发表的 :
strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(YourDB.mdb)
                               
上面的YourDB.mdb -- >>是您的Access资料库档案存放的名称

变成这样:

错误类型：
Microsoft VBScript 执行阶段错误 (0x800A01A8)
此处需要物件: 'test'
/myblog/blog.asp, line 7

红色是第七行

这是程式码:

<%
Dim Rectest
Dim Rectest_numRows

strConn1 = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.Mappath(test.mdb)
Set objDBcon1 = Server.CreateObject("ADODB.Connection")
objDBcon1.Open strConn1

Set Rectest = Server.CreateObject("ADODB.Recordset")
Rectest.ActiveConnection = objDBcon1
Rectest.Source = "SELECT * FROM t1"
Rectest.CursorType = 0
Rectest.CursorLocation = 2
Rectest.LockType = 1
Rectest.Open()

Rectest_numRows = 0
%>

下面是引用对的人于2006-10-2 22:45发表的 :
错误类型：
Microsoft VBScript 执行阶段错误 (0x800A01A8)
此处需要物件: 'test'
/myblog/blog.asp, line 7
.......

你有把test.mdb的档案放到该Web目录下吗....