请教大侠,asp+excel 查询中一查能显示表格中所有内容的代码怎么写
展开全部
Dim Conn,Driver,DBPath,Rs
' 建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'调用Open 方法打开数据库
Conn.Open Driver & DBPath
如果这个驱动不好使也可以用oledb 4.0还要开开win7的iis32位应用程序池!
和操作数据库一样读取EXCEL,将数据读到网页! 这只是一种思路,还有交互的方式,给你个地址,你自己去看看
http://hi.baidu.com/eastlin/blog/item/0059d4c4188225a88326ac6e.html
或
http://hi.baidu.com/colzw/blog/item/ed594efac248339e58ee9050.html
一旦打开conn 剩下的
set rs=server.createobject("adodb.recordset")
sql="select * from [sheet1]" 注意这里是关键 sheet1 是excel的默认表 如果不是这个表名要换成真实表名 加where条件和access没区别!
rs.open sql,conn,1,1
剩下的不用我写了吧?
' 建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'调用Open 方法打开数据库
Conn.Open Driver & DBPath
如果这个驱动不好使也可以用oledb 4.0还要开开win7的iis32位应用程序池!
和操作数据库一样读取EXCEL,将数据读到网页! 这只是一种思路,还有交互的方式,给你个地址,你自己去看看
http://hi.baidu.com/eastlin/blog/item/0059d4c4188225a88326ac6e.html
或
http://hi.baidu.com/colzw/blog/item/ed594efac248339e58ee9050.html
一旦打开conn 剩下的
set rs=server.createobject("adodb.recordset")
sql="select * from [sheet1]" 注意这里是关键 sheet1 是excel的默认表 如果不是这个表名要换成真实表名 加where条件和access没区别!
rs.open sql,conn,1,1
剩下的不用我写了吧?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询