28,409
社区成员
发帖
与我相关
我的任务
分享asp读取EXCEL
我写了一个ASP读取EXCEL的程序,代码如下:
<html>
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ExcelFiles;Initial Catalog=C:\Inetpub\wwwroot\haha\Book1.xls"
set rs=conn.execute("select * from [Sheet1$]")
%>
<body></body>
</html>
运行后报错,请大家帮帮忙,在线等
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/haha/bbb.asp，行4
<html>
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ExcelFiles;Initial Catalog=C:\Inetpub\wwwroot\haha\Book1.xls"
set rs=conn.execute("select * from [Sheet1$]")
%>
<body></body>
</html>
运行后报错,请大家帮帮忙,在线等
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/haha/bbb.asp，行4
...全文
请发表友善的回复…
发表回复
阿泰 2004-12-03
- 打赏
- 举报
你的连接串写错了，参考这段（转摘的）
strFilePath = Server.MapPath(".") & "\" & "teacher.xls"
strCnn = "DRIVER=Microsoft Excel Driver (*.xls);UID=admin;FIL=excel 8.0;DBQ=" & strFilePath
Set excelCn = Server.CreateObject("ADODB.Connection")
excelCn.Open strCnn
excelSql = "SELECT * FROM [Sheet1$]"
Set excelRs = excelCn.Execute(excelSql)
...
strFilePath = Server.MapPath(".") & "\" & "teacher.xls"
strCnn = "DRIVER=Microsoft Excel Driver (*.xls);UID=admin;FIL=excel 8.0;DBQ=" & strFilePath
Set excelCn = Server.CreateObject("ADODB.Connection")
excelCn.Open strCnn
excelSql = "SELECT * FROM [Sheet1$]"
Set excelRs = excelCn.Execute(excelSql)
...
