ASP对Excel的基本操作之查询数据
2006-12-14 13:02
489 查看
ASP对Excel的基本操作之查询数据
Execl97/2000/xp是MS Office办公软件的成员之一。在企业级应用当中,我们往往需要对Execl进行操作,如读取Execl里面的数据、往Execl里插入数据等。
一、操作Execl要注意的事项:
1、 服务器端Office的配置
以MS Windows2000+IIS为例,要在服务器端安装有MS Office的成员之一Execl,Office的版本没有特殊要求。
2、 服务器端分布式COM的配置
执行“ DCOMCNFG”命令,选择“应用程序”页的“Microsoft Execl 应用程序”—>“属性”—>“安全性”—>三个选项都选“使用自定义访问权限”,添加“Everyone”权限。
二、首先,先将利用ASP读取Execl的数据(不建立DSN):
我们可以整个.xsl文件看作是一个数据库,sheet1、sheet2等分别看成一个独立的表,把A1、B1、C1、…N1看作表的字段。
--建立连接对象实例ExeclConn
Set ExeclConn=Server.CreateObject(“ADODB.Connection”)
--利用Open 方法打开数据库
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath("xls文件名")
conn.Open StrConn
--建立数据集对象Rs并查询数据
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
具体例子:
1、建立一个表Sheet1(数据库名为Students)
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、运行结果
Execl97/2000/xp是MS Office办公软件的成员之一。在企业级应用当中,我们往往需要对Execl进行操作,如读取Execl里面的数据、往Execl里插入数据等。
一、操作Execl要注意的事项:
1、 服务器端Office的配置
以MS Windows2000+IIS为例,要在服务器端安装有MS Office的成员之一Execl,Office的版本没有特殊要求。
2、 服务器端分布式COM的配置
执行“ DCOMCNFG”命令,选择“应用程序”页的“Microsoft Execl 应用程序”—>“属性”—>“安全性”—>三个选项都选“使用自定义访问权限”,添加“Everyone”权限。
二、首先,先将利用ASP读取Execl的数据(不建立DSN):
我们可以整个.xsl文件看作是一个数据库,sheet1、sheet2等分别看成一个独立的表,把A1、B1、C1、…N1看作表的字段。
--建立连接对象实例ExeclConn
Set ExeclConn=Server.CreateObject(“ADODB.Connection”)
--利用Open 方法打开数据库
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath("xls文件名")
conn.Open StrConn
--建立数据集对象Rs并查询数据
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
具体例子:
1、建立一个表Sheet1(数据库名为Students)
StudentID | 姓 名 | 语 文 | 数 学 | 物 理 | 化 学 | 地 理 | |
1 | 李雪青 | 83 | 84 | 76 | 95 | 66 | |
2 | 冯江 | 87 | 96 | 82 | 100 | 81 | |
3 | 吴小霞 | 76 | 43 | 37 | 60 | 82 | |
4 | 邹亚汇 | 80 | 77 | 63 | 71 | 63 | |
5 | 蔡海飞 | 89 | 63 | 92 | 86 | 67 |
<%
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、运行结果
相关文章推荐
- 如何使用 ASP.NET、ADO.NET 和 Visual C# .NET 查询和显示 Excel 数据
- C# 对sharepoint 列表的一些基本操作,包括添加/删除/查询/上传文件给sharepoint list添加数据
- ASP.NET环境下,VB.NET语言,数据保存EXCEL模板操作
- ASP对Excel的基本操作
- ASP将查询数据导出EXCEL
- C# 对sharepoint 列表的一些基本操作,包括添加/删除/查询/上传文件给sharepoint list添加数据
- SQL基本操作---数据查询
- MySQL数据记录基本操作——多表查询、子查询和正则表达式查询
- 数据导入导出 、 表记录基本操作 、 查询及匹配条件 、 多表查询 、
- Asp操作Excel的一些基本实现
- 如何使用 ASP.NET查询和显示 Excel 数据
- ASP + mssql 与 查询分析器 之 使用存储过程 建,添,更,选,删 基本数据操作 By shawl.qiu
- PHP实现对文本数据库的数据显示、加入、修改、删除、查询五大基本操作的方法
- ASP.NET环境下,VB.NET语言,数据保存EXCEL模板操作
- C# 对sharepoint 列表的一些基本操作,包括添加/删除/查询/上传文件给sharepoint list添加数据
- ASP向Excel导数据(图片)终结版 ASP操作Excel
- asp如何动态的将查询数据生成excel
- ASP提示 无法从指定的数据表中删除 和 操作必须使用一个可更新的查询?
- jsp里对excel数据进行查询操作
- 如何使用 ASP.NET、ADO.NET 和 Visual C# .NET 查询和显示 Excel 数据