我的这段asp 连 excel 表的代码有错吗?100分相送?特急!谁能给一份能正常连接的示例?求你们了!

tiger8000 2003-12-12 02:57:53

<%
' 建立Connection对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "edata.xls" )

' 调用Open 方法连接数据库
conn.Open Driver & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From [成绩单$]", conn, 2, 2
%>

...全文

103 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

srl 2003-12-12

打赏
举报

Set conn1 = Server.CreateObject("ADODB.Connection")
dbpath="book2.xls"
conn1.Open "Driver={Microsoft Excel Driver (*.xls)};dbq=" & dbpath

tiger8000 2003-12-12

打赏
举报

好了,我用别的方法做出来了

shleo 2003-12-12

打赏
举报

Set fs = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("商户交易排行表.xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
dim strLine
strLine="交易类型"& chr(9)
strLine=strLine & "合计应收"& chr(9)
strLine=strLine & "合计应付"& chr(9)
myfile.writeline strLine
…………

set fs=nothing

tiger8000 2003-12-12

打赏
举报

tiger8000 2003-12-12

打赏
举报

出错如下:

错误类型：
ADODB.Recordset (0x800A0BB9)
/aspwebsite/aspexcel/test.asp, 第 13 行

就是这句话:
filers.Open "Select * From [sheet1$]",conn,1,3

whb147 2003-12-12

打赏
举报

Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0; DBQ=e:\whb\test\test\file.xls"
Set filers = Server.CreateObject("ADODB.Recordset")
filers.Open "Select * From [sheet1$]",conn,1,3

tiger8000 2003-12-12