林允儿换脸视频,free俄罗斯美女视频,半遮半掩美女视频

ACCESS數(shù)據(jù)庫連接出錯(cuò)，前提語句無誤

2010.06.21

Microsoft JET Database Engine (0x80004005) 未指定的錯(cuò)誤的完美解決

一般情況下asp可以正常運(yùn)行,但只要連接數(shù)據(jù)庫就提示,Microsoft JET Database Engine 錯(cuò)誤

'80004005',我的電腦因?yàn)橛门幚砬謇砦募?所以不能運(yùn)行了，只
1.查看數(shù)據(jù)庫連接語句沒有發(fā)現(xiàn)錯(cuò)誤；
2.查看文件夾的權(quán)限已經(jīng)全部給了everyone；
3.打開數(shù)據(jù)庫的同時(shí)，系統(tǒng)會(huì)在臨時(shí)文件夾 %SystemRoot%/temp/ 下創(chuàng)建臨時(shí)文件，而 %

SystemRoot%/temp/ 的權(quán)限不夠
解決：%SystemRoot%/temp/ 的權(quán)限加上(IUSER_電腦名的讀寫)

更多內(nèi)容參考： http://hi.baidu.com/cfscc

2、如果一般未指定的錯(cuò)誤，還有個(gè)辦法，先
其實(shí)只要很簡單的幾步。：
開始。。。運(yùn)行。。。regsvr32 jscript.dll
開始。。。運(yùn)行。。。regsvr32 vbscript.dll
開始。。。運(yùn)行。。。iisreset

Microsoft JET Database Engine (0x80004005)未指定的錯(cuò)誤解決
1、系統(tǒng)可能沒有注冊(cè)msjetoledb40.dll，解決辦法是
點(diǎn) 開始--->運(yùn)行，輸入 regsvr32 msjetoledb40.dll，回車即可；

2、數(shù)據(jù)庫所在文件夾權(quán)限
打開辦法是：打開我的電腦，然后點(diǎn)菜單上的“文件夾選項(xiàng)”--->查看，然后把“使用簡單文

件夾共享(推薦)”前面的鉤去掉，然后點(diǎn)“確認(rèn)”；接下來回到需要打開權(quán)限的文件夾（數(shù)據(jù)庫存

放的文件夾），右鍵---> 屬性--->安全,然后點(diǎn)“添加”--->"高級(jí)"--->立即查找--->然后在下面

的地方選擇“everyone”--->確定--->點(diǎn)剛才加入的"everyone"，然后在下面的大框編輯everyone

權(quán)限為完全控制，保存即可。

3、需要打開guest用戶
打開方法:我的電腦--->控制面板--->管理工具---->計(jì)算機(jī)管理--->本地用戶和組---用戶---

找到"guest"，雙擊，然后把彈出來的狂上的“帳戶已停用”前的鉤去掉，保存即可。

4、temp（臨時(shí)文件夾）權(quán)限
打開辦法：windows--->temp，單擊右鍵選擇-屬性，你就會(huì)看到一個(gè)叫做“安全”的選項(xiàng)，添

加一個(gè)everyone,權(quán)限設(shè)置為完全控制，再將你正在使用windows的用戶也設(shè)置為完全控制.(件夾權(quán)

限
打開辦法是：打開我的電腦，然后點(diǎn)菜單上的“文件夾選項(xiàng)”--->查看，然后把“使用簡單文

件夾共享(推薦)”前面的鉤去掉，然后點(diǎn)“確認(rèn)”；接下來回到需要打開權(quán)限的文件夾（數(shù)據(jù)庫存

放的文件夾），右鍵---> 屬性--->安全,然后點(diǎn)“添加”--->"高級(jí)"--->立即查找--->然后在下面

的地方選擇“everyone”--->確定--->點(diǎn)剛才加入的"everyone"，然后在下面的大框編輯everyone

權(quán)限為完全控制，保存即可。

本人要用ASP批量導(dǎo)入excel數(shù)據(jù)到sql數(shù)據(jù)庫去，借用了zhanghongwen(流氓蚊子) 的代碼，如下

：
...
...
...
<%
server.scripttimeout=100000000
sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn)
 '定義
 dim myConnection
 dim strName
 dim rsXsl,rsSql
 dim str_Xsl,str_Sql
 dim myConn_Xsl
 dim cmd
 dim i,j
 dim maxId

 strName=strFileName
 set myConnection=server.createobject("adodb.connection")
 set rsXsl=Server.Createobject("ADODB.Recordset")
 set rsSql=Server.CreateObject("ADODB.Recordset")
 set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=myConn



 myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName

&   ";Extended   Properties=Excel   8.0"


        '打開連接
          myConnection.open   myConn_Xsl

          '打開表
          str_Xsl="select   *   from   ["&   strSheetName   &"$]"
          rsXsl.open   str_Xsl,myConnection,1,1
j=1
          Do   While   not   rsXsl.eof
          '取出最大值
          str_Sql="select   Max(id)   as   maxId   from   fubiao"
          rsSql.open   str_Sql,myConn,1,3
          If   Not   rsSql.Eof   Then
                If   not   isNull(rsSql("maxId"))   Then
                      maxId=Clng(rsSql("maxId"))+1
          Else
                maxId=1
          End   if
          else
                maxId=1
          End   if
          rsSql.close'//關(guān)閉對(duì)象
'加入數(shù)據(jù)庫
str_Sql="insert   into   fubiao   values("&maxId&",'"&rsXsl(1)&"','"&rsXsl(3)

&"','"&rsXsl(4)&"','"&rsXsl(5)&"','"&rsXsl(6)&"','"&rsXsl(7)&"','"&rsXsl(8)

&"','"&rsXsl(9)&"','"&rsXsl(10)&"','"&rsXsl(11)&"','"&rsXsl(12)&"','"&rsXsl(13)

&"','"&rsXsl(14)&"','"&rsXsl(15)&"','"&rsXsl(16)&"','"&rsXsl(17)&"','"&rsXsl(18)

&"','"&rsXsl(19)&"','"&rsXsl(20)&"','"&rsXsl(21)&"','"&rsXsl(22)&"','"&rsXsl(23)

&"','"&rsXsl(24)&"','"&rsXsl(25)&"','"&rsXsl(26)&"','"&rsXsl(27)&"')"
          cmd.CommandText=str_Sql
          cmd.Execute()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''
 j=j+1
 rsXsl.movenext
 Loop

 response.write "共導(dǎo)入" & j-1 & "條記錄

. "
 response.write "<a href=javascript:history.back()>確定</a>"
 set rsXsl=nothing
 set rsSql=nothing
 set myconnection=nothing
 set cmd=nothing
end sub
...
...
...
file1=request.form("filename2")
strtj=mid(request.form("filename2"),instrrev(file1,"\")+1,(instrrev(file1,".")-

instrrev(file1,"\")-1))
if file1="" then
 response.write "請(qǐng)選擇您要導(dǎo)入的Excel表!"
%>
<a href=javascript:history.back()>上一頁</a>
<%
 response.end
 end if
myconn="DRIVER={SQL SERVER};SERVER=(local);uid=sa;pwd=sa;DATABASE=qjgsj_data"
call dataIntoSqlServer_ceritificate file1,""&strtj&"",myconn
...
...
%>
在打開連接時(shí)：
myConnection.open myConn_Xsl

出現(xiàn)：HTTP　500.100_內(nèi)部服務(wù)器錯(cuò)誤＿ASP錯(cuò)誤
錯(cuò)誤類型：
Microsoft Jet Database Engine(0x80004005)
\..\..\aa.asp xx行
是什么問題呢？
此連接句有問題嗎？
 myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName &

";Extended Properties=Excel 8.0"

我服務(wù)器系統(tǒng)DSN已給SQL數(shù)據(jù)庫建立了數(shù)據(jù)源，用ASP批量導(dǎo)入EXCEL數(shù)據(jù)，還需在系統(tǒng)DSN給

EXCEL設(shè)置驅(qū)動(dòng)程序嗎？
zhanghongwen(流氓蚊子)在嗎？問題點(diǎn)數(shù)：80、回復(fù)次數(shù)：4Top

1 樓VeryOldMan（無頭蒼蠅（www.gzmeishi.com））回復(fù)于 2006-01-27 14:53:46 得分

80myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath

("/yourexcel.xls")   _
                &   ";Extended   Properties=""Excel   8.0;HDR=Yes;"";"
SQL   Command:     "Select   *   From   [yourSheetname$]"

在我自己的網(wǎng)站：www.gzmeishi.com上測試通過！Top

2 樓zcxc（知春小草）回復(fù)于 2006-02-05 14:18:59 得分 0 還是不行。
Microsoft.Jet.OLEDB.4.0在服務(wù)器上需要配置嗎？Top

3 樓zcxc（知春小草）回復(fù)于 2006-02-05 18:36:27 得分 0 郁悶！?。?nbsp;
請(qǐng)高手相助?。?！
我服務(wù)器配置為windows   server   2000,iis   5.0,sql   server   2000。
用myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   strName   &

";Extended Properties=Excel 8.0"
或myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath

("strName   ")   _
                &   ";Extended   Properties=""Excel   8.0;HDR=Yes;"";"   語句
打開該連接時(shí)出現(xiàn)錯(cuò)誤：
Microsoft   Jet   Database   Engine(0x80004005)
/../../aa.asp   xx行

用myconn_Xsl="driver={microsoft   excel   driver(*.xls)};dbq="&server.mappath

("strName")
來連接時(shí)打開則出現(xiàn)錯(cuò)誤：
microsoft   ole   db   provider   for   odbc   drivers(0x80004005)
/../../aa.asp   xx行