显示电子表格数据库

最新推荐文章于 2022-06-06 13:23:53 发布

ASP2014

最新推荐文章于 2022-06-06 13:23:53 发布

阅读量891

点赞数

分类专栏： ASP教程分享

ASP教程分享专栏收录该内容

69 篇文章 0 订阅

订阅专栏

电子表格可以当作数据库使用。它不是最快的也不是最好的。然而，对于服务器上的小数据出现显著同步的情况的时候是不会像电子表格能完成很多基本的能在数据库或者SQL服务器上实现的任务，而是在很小的范围之内。比如，我们已经在hank Greenberg的事业数据信息里面插入了自己的数据库，并且把它放置在电子表格的表单里面。我们也命名了它的数据范围，包括标题行的hamerin_hank。这不会和命名电子表格的一个表单相混淆的。你一定得突出你想查询的完整的元件范围。从电子表格工具栏选项插入-名称-定义-。命名元件范围（我想删除空间和特殊字符）然后点击确定。其他直接的查询电子表格驱动程序不是数据库数据，多数的情况是和显示数据库一样。
<html>
<title>www.ttasp.net(Display an Excel in ASP)</title>
<body bgcolor="#FFFFFF">


<%
特别是从adovbs.inc输入常量
adOpenStatic和adLockPessimistic
命名正显示的电子表格文件
exceldb="greenberg.xls"
创建一个服务器连接对象
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DBQ=" & Server.MapPath(exceldb) & ";" & _
"DRIVER={Microsoft Excel Driver (*.xls)};"

创建一个服务器记录设置对象
Set rs = Server.CreateObject("ADODB.Recordset")

查询针对运行的电子表格数据库
hamerin_hank是在电子表格定义下的元件范围名称
sql="select * from hammerin_hank;"

执行sql
rs.Open sql, cn, _
adOpenStatic, adLockPessimistic
%>
<table border=1 align=center>
<caption>Hank Greenberg Career Statistics</caption><%
For counter = 0 To rs.fields.count - 1 %>
<th>
<% ' Write out the field names
response.write rs.fields.item(counter).name %>
</th><%

移动到下个区域
next

移动第一个记录
rs.movefirst

写出记录设置
do while not rs.eof %>
<tr><%

循环所有计数区域= 0 to rs.fields.count - 1
%>
<td align=right>
<% ' Write out the field values
response.write rs.fields.item(counter).value %>
</td><%

移动到下个区域
next
%>
</tr><%

移动下个记录
rs.movenext
loop
%>
</table>

<%

删除记录设置
rs.close
Set rs = nothing

删除连接
cn.close
Set cn = nothing

人生最精彩的不是实现梦想的瞬间，而是坚持梦想的过程。胜利不是战胜敌人，而是提高自己。我们只要每天进步百分之一，那就是成功。您如果觉得此分享对你有用，那将是我们天天ASP家园对你成功路上的一点帮助！