asp中用OpenSchema来获取excel的第一个表名
[ 2008-07-29 17:45:39 | 作者: admin ]
p.s. 由于excel的第一个表可能不是sheet1$，所以需要我们获取第一个表的名字，此ado的方法同样适用access等
评论Feed: http://blog.xg98.com/feed.asp?q=comment&id=1126
defaultTable = ""
Set rsTable=eConn.OpenSchema(20)
if not rsTable.eof then defaultTable = replace(rsTable(2),"'","")
'While not rsTable.EOF ‘获取所有的表
'Response.Write("所在数据库名:" & rsTable(0) & "<br>")
'Response.Write("所有者:" & rsTable(1) & "<br>")
'Response.Write("表 名:" & rsTable(2) & "<br>")
'Response.Write("表的类型:" & rsTable(3) & "<br>")
'rsTable.MoveNext
'Wend
set rsTable = nothing
Set rsTable=eConn.OpenSchema(20)
if not rsTable.eof then defaultTable = replace(rsTable(2),"'","")
'While not rsTable.EOF ‘获取所有的表
'Response.Write("所在数据库名:" & rsTable(0) & "<br>")
'Response.Write("所有者:" & rsTable(1) & "<br>")
'Response.Write("表 名:" & rsTable(2) & "<br>")
'Response.Write("表的类型:" & rsTable(3) & "<br>")
'rsTable.MoveNext
'Wend
set rsTable = nothing
[最后修改由 admin， 于 2008-07-29 17:51:29]
评论Feed: http://blog.xg98.com/feed.asp?q=comment&id=1126
这篇日志没有评论。
此日志不可发表评论。
