ASP读取excel出错,那位兄弟遇到过这样的情况,多多指点!

qjhaaaaa 2005-03-29 08:50:26
这是ASP连接excel的函数
Function Open_DB_File(path)
On Error Resume Next
cmd = "Driver={Microsoft Excel Driver (*.xls)};" &_
"DriverId=790;DBQ=" & path & ".XLS"
Err.Clear
Call dbConn.Open(cmd)
Open_DB_File = Err.Number = 0
Response.Write cmd
End Function

假如这个cmd的值是
Driver={Microsoft Excel Driver (*.xls)};DriverId=790;DBQ=c:\inetpub\wwwroot\pts3\Bom\NK9044\TEST-BOM.XLS

为什么程序去读取excel的时候就出错误,反正不能读取到数据。
将我开发后的程序放到其他服务器上,能正确读取excel数据
就是在我的机器上有问题?
那位兄弟遇到过这样的情况,多多指点!
...全文
90 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
qjhaaaaa 2005-03-29
  • 打赏
  • 举报
回复
我已经重新安装了,还是不行,
arrowy 2005-03-29
  • 打赏
  • 举报
回复
重装OFFICE
qjhaaaaa 2005-03-29
  • 打赏
  • 举报
回复
我的代码:
Function Open_DB_File(path)
On Error Resume Next
cmd = "Driver={Microsoft Excel Driver (*.xls)};" &_
"DriverId=790;DBQ=" & path & ".XLS"
Err.Clear
Call dbConn.Open(cmd)
Open_DB_File = Err.Number = 0
Response.Write cmd
End Function



If Len(msg) = 0 Then
If Not Open_DB_File(path&cam) Then
msg = "Cannot open database!"
Else
'open excel file
cmd= "SELECT ItemLevel, ItemSequence, PartNumber, Qty, Designator FROM [PTS_BOM$]"
Err.Clear
Set rs = dbConn.Execute(cmd)
'error handling
If Err.Number <> 0 Then
msg = "Fail to open Excel file!<br>" & Err.Description
End If
End If
End If

调用函数
If Not Open_DB_File(path&cam) Then
就会提示不能连接数据库,不知道什么原因,原来一直都可以的

28,408

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧