• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

用ADO对Excel的数据查询_sqlserver

sqlserver 搞代码 3年前 (2018-06-16) 141次浏览 已收录 0个评论

ASP对Excel的基本操作之查询数据

 

Execl97/2000/xp是MS Office办公软件的成员之一。在企业级应用当中,我们往往需要对Execl进行操作,如读取Execl里面的数据、往Execl里插入数据等。

http://www.gaodaima.com/35517.html用ADO对Excel的数据查询_sqlserver

一、操作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

 

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、运行结果

欢迎大家阅读《用ADO对Excel的数据查询_sqlserver,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址