作業環境是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目錄下嗎....