【求视】Microsoft Jet 数据库引擎打不开文件'' 它已经被别的用户以独占方式打开,或没有查看数据的权限
【求看】Microsoft Jet 数据库引擎打不开文件''。 它已经被别的用户以独占方式打开,或没有查看数据的权限。
Microsoft JET Database Engine 错误 '80004005'
Microsoft Jet 数据库引擎打不开文件''。 它已经被别的用户以独占方式打开,或没有查看数据的权限。
/YZGY/excelTosql.asp,行 33
=================================
<%@LANGUAGE="VB" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #E9E9D6;
}
.style1 {
font-size: 14px;
font-weight: bold;
}
.style2 {
font-size: 12px;
color: #333333;
}
.style3 {color: #990000}
-->
</style>
</head>
<body>
<form action="excelTosql.asp" method="post" name="form1" id="form1">
<p align="center">
</p>
<p align="center" class="style1">出入库导入数据库</p>
<p align="center"> </p>
<p align="center"><span class="style2"><font size="2">上传EXCEL文件(.xls</font></span><font size="2">)</font>
<input name="bbb" type="file" id="bbb" size="30" />
</p>
<p align="center" class="style2">(<span class="style3">注:</span>表名一定要以下边这种格式"[sheet1]"书写;批号为数值型时请加:单引号。) </p>
<p align="center">
<input type="submit" name="Submit" value="确认导入" />
</p>
</form>
</body>
</html>
======================
跳转代码:
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer
'如果是sql 2000数据库,请用下面 连接驱动
connstr = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=sa;database=yzgy_old;"
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
sub closedb()
conn.close
set conn=nothing
end sub
dim aa
aa=request.form("bbb") '获取传递过来的值
Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
'response.Write(aa)
'response.end
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa
Set objConn=CreateObject("ADODB.Connection")
objConn.Open StrConnect
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [sheet1$] "
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script language='javascript'>alert ('没有资料可以导入!');history.go(-1)</script>")
else
Do While Not rs.EOF
'列出表内信息
response.write"excel数据为: <br>"
response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&"-"&rs(3)&"-"&rs(4)&"-"&rs(5)&"-"&rs(6)&"-"&rs(7)&"-"&rs(8)&"-"&rs(9)&"-"&rs(10)&"-"&rs(11)&"-"&rs(12)&"-"&rs(13)&"-"&rs(14)&"-"&rs(15)&""
response.write"<br>"
'response.End()
set rssql=server.CreateObject("adodb.recordset")
Microsoft JET Database Engine 错误 '80004005'
Microsoft Jet 数据库引擎打不开文件''。 它已经被别的用户以独占方式打开,或没有查看数据的权限。
/YZGY/excelTosql.asp,行 33
=================================
<%@LANGUAGE="VB" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #E9E9D6;
}
.style1 {
font-size: 14px;
font-weight: bold;
}
.style2 {
font-size: 12px;
color: #333333;
}
.style3 {color: #990000}
-->
</style>
</head>
<body>
<form action="excelTosql.asp" method="post" name="form1" id="form1">
<p align="center">
</p>
<p align="center" class="style1">出入库导入数据库</p>
<p align="center"> </p>
<p align="center"><span class="style2"><font size="2">上传EXCEL文件(.xls</font></span><font size="2">)</font>
<input name="bbb" type="file" id="bbb" size="30" />
</p>
<p align="center" class="style2">(<span class="style3">注:</span>表名一定要以下边这种格式"[sheet1]"书写;批号为数值型时请加:单引号。) </p>
<p align="center">
<input type="submit" name="Submit" value="确认导入" />
</p>
</form>
</body>
</html>
======================
跳转代码:
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer
'如果是sql 2000数据库,请用下面 连接驱动
connstr = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=sa;database=yzgy_old;"
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
sub closedb()
conn.close
set conn=nothing
end sub
dim aa
aa=request.form("bbb") '获取传递过来的值
Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
'response.Write(aa)
'response.end
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa
Set objConn=CreateObject("ADODB.Connection")
objConn.Open StrConnect
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [sheet1$] "
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script language='javascript'>alert ('没有资料可以导入!');history.go(-1)</script>")
else
Do While Not rs.EOF
'列出表内信息
response.write"excel数据为: <br>"
response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&"-"&rs(3)&"-"&rs(4)&"-"&rs(5)&"-"&rs(6)&"-"&rs(7)&"-"&rs(8)&"-"&rs(9)&"-"&rs(10)&"-"&rs(11)&"-"&rs(12)&"-"&rs(13)&"-"&rs(14)&"-"&rs(15)&""
response.write"<br>"
'response.End()
set rssql=server.CreateObject("adodb.recordset")