关于EXCEL表上传至SQL2000数据库的问题
在本机上可以用网页上载,但换到其它机器(打开IE)就报错如下:Microsoft JET Database Engine 错误 '80004005'
Microsoft Jet 数据库引擎打不开文''。 它已经被别的用户以独占方式打开,或没有查看数据的权限。
/test1/excelTosql.asp,行 44
代码如下:
dim aa
aa=request.form("bbb") '获取传递过来的值 Dim StrConnect,cc
Dim rs
Dim Sql
cc=0
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa '此行就是44'
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 ('EXCEL表中无记录!');history.go(-1)</script>")