用ADO对Excel的数据查询

2、查询并显示表Sheet1内容的代码

<%

Dim conn

Dim StrConn

Dim rs

Dim Sql

Set conn=Server.CreateObject("ADODB.Connection")

StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_

"DriverId=790; DBQ="& Server.MapPath("Students.xls")

conn.Open StrConn

Set rs = Server.CreateObject("ADODB.Recordset")

Sql="select * from [Sheet1$]"

rs.Open Sql,conn,2,2

%>

<center>

<table border="1">

<tr>

<%

for i=0 to rs.Fields.Count-1

%>

  <td bgcolor="#0099FF"><%=rs(i).Name%></td>

<%

next

%>

</tr>

<%

do while Not rs.EOF

%>

<tr>

<%

for i=0 to rs.Fields.Count-1

%>

  <td><%=rs(i)%></td>

<%

next

%>

</tr>

<%

  rs.MoveNext

  Loop

  rs.close

  set rs=nothing

  StrConn.close

  set StrConn=nothing

%>

</table></center>

3、运行结果

上一页  [1] [2] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18