台灣最大程式設計社群網站
線上人數
738
 
會員總數:246209
討論主題:189782
歡迎您免費加入會員
討論區列表 >> ASP >> asp架站連結資料庫問題
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
asp架站連結資料庫問題
價值 : 5 QP  點閱數:1393 回應數:2
樓主

wasqe
門外漢
0 1
12 0
發送站內信

各位專家:

想請教各位我用 windows 7 x32 iis架站時出現

Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'

[Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式

/buss/buss/include/include.asp, 行11

這是程式碼不知哪邊有問題?

<%

Function GetConn()
Dim sConnectionString, aDb: sConnectionString="": Set GetConn = Nothing
sConnectionString = sConnectionString & "driver={mysql Odbc 3.51 driver}"
sConnectionString = sConnectionString & ";server=localhost"
sConnectionString = sConnectionString & ";database=buss"
sConnectionString = sConnectionString & ";uid=root"
sConnectionString = sConnectionString & ";pwd=1116"
Set aDb = Server.CreateObject("ADODB.Connection")
aDb.Open sConnectionString
Set GetConn = aDb
End Function


Function GetAConn()
Dim sConnectionString, aDb: sConnectionString="": Set GetAConn = Nothing
sConnectionString = sConnectionString & "driver={mysql Odbc 3.51 driver}"
sConnectionString = sConnectionString & ";server=localhost"
sConnectionString = sConnectionString & ";database=aeo_system"
sConnectionString = sConnectionString & ";uid=root"
sConnectionString = sConnectionString & ";pwd=1116"
Set aDb = Server.CreateObject("ADODB.Connection")
aDb.Open sConnectionString
Set GetAConn = aDb
End Function


Sub GetRS(conn,rsName)
Set rsName = Server.Createobject("ADODB.Recordset")
set rsName = conn.Execute("SET NAMES 'big5'")
End Sub

Function nullTr(strtxt)
if isnull(strtxt) or strtxt="" then
nullTr="&nbsp;"
else
nullTr=strtxt
end if
End Function

Function nullSr(strtxt)
if isnull(strtxt) then
nullSr=""
else
nullSr=strtxt
end if

End Function

Function GetMConn()
Dim sMConnectionString, aMDb
sMConnectionString=""
set GetMConn=nothing
DBPath = Server.MapPath("/buss/buss_1.mdb")
sMConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set aMDb = Server.CreateObject("ADODB.Connection")
aMDb.open sMConnectionString
set GetMConn=aMDb
End Function

Sub GetMRS(rsMName)
Set rsMName = Server.Createobject("ADODB.Recordset")
End Sub

Function chgStr( data )
chgStr =Replace( data, "'", "" )
End Function

function rid(str)
if str="nbsp;" then
rid=""
else
rid=str
end if
end function

%>




本篇文章發表於2015-02-10 23:08
1樓
回應

迷路
捐贈 VP 給 迷路 檢舉此回應
這是個很常見的錯誤
只要google一下就會看到一大堆解答的文章
例如這篇就是微軟官方的解答
http://support.microsoft.com/kb/238971/zh-tw
本篇文章回覆於2015-02-11 10:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

野鷹
捐贈 VP 給 野鷹 檢舉此回應
我也有遇到這種狀況
我的解決方式是參考這一篇文章
http://blog.e-happy.com.tw/?p=928

1.請先進入控制台,開啟 Internet Information Services(IIS) 管理員
2.開啟左手邊[連線]視窗的[應用程式集區],再按下中間的[DefaultAppPool],接著按下[動作]視窗的[進階設定]。
3.在[進階設定]的對話方塊中,找到[一般] → [啟用32位元應用程式] →[True],最後按下[確定]鈕完成設定。
本篇文章回覆於2015-07-06 15:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.