将数据库里面的内容生成EXCEL

2016-01-29 18:22 2 1 收藏

将数据库里面的内容生成EXCEL,将数据库里面的内容生成EXCEL

【 tulaoshi.com - ASP 】

  1、ASP文件:

<%@ LANGUAGE="VBSCRIPT" %
<%option explicit%
<%
'EXAMPLE AS:把数据库中一个每天24小时在线人数放到一个EXCEL文件中去
'AUTHOR    :钢铁工人
'EMAIL     :hello_hhb@21cn.com
'DATE      :2001-3-25
'TEST      :在NT4,SP6,SQL SERVER 7.0,EXCEL2000中测试通过
%
<HTML
<HEAD
<meta content="text/html; charset=gb2312" http-equiv="Content-Type"
<TITLE生成EXCEL文件</TITLE
</HEAD
<body
<a href="dbtoexcel.asp?act=make"生成在线人口的EXCEL</a
<hr size=1 align=left width=300px
<%
if Request("act") = "" then
else

  dim conn
  set conn=server.CreateObject("adodb.connection")
  conn.Open "test","sa",""
  'conn.Open Application("connstr")

  dim rs,sql,filename,fs,myfile,x,link
  
  Set fs = server.CreateObject("scripting.filesystemobject")
  '--假设你想让生成的EXCEL文件做如下的存放
  filename = "c:online.xls"
  '--如果原来的EXCEL文件存在的话删除它
  if fs.FileExists(filename) then
    fs.DeleteFile(filename)
  end if
  '--创建EXCEL文件
  set myfile = fs.CreateTextFile(filename,true)


  
  Set rs = Server.CreateObject("ADODB.Recordset")
  '--从数据库中把你想放到EXCEL中的数据查出来
  sql = "select population,hourpos,datepos from populationperhour order by datepos,hourpos asc"
  rs.Open sql,conn
  if rs.EOF and rs.BOF then
  
  else
  
    dim strLine,responsestr
    strLine=""
      For each x in rs.fields
        strLine= strLine & x.name & chr(9)
      Next
    
      '--将表的列名先写入EXCEL
      myfile.writeline strLine

      Do while Not rs.EOF
      strLine=""
     
      for each x in rs.Fields
        strLine= strLine & x.value & chr(9)
      next
      '--将表的数据写入EXCEL
      myfile.writeline strLine

      rs.MoveNext
      loop
      
  end if

rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing

link="<A HREF=" & filename & "Open The Excel File</a"
Response.write link
end if
%
</BODY
</HTML


2、数据库相关:

CREATE TABLE [populationperhour] (
    [population] [int] NOT NULL ,
    [hourpos] [int] NOT NULL ,
    [datepos] [datetime] NOT NULL
);
insert into populationperhour values('936','1','2001-1-11');
insert into populationperhour values('636','2','2001-1-11');
insert into populationperhour values('106','3','2001-1-11');
insert into populationperhour values('177','4','2001-1-11');
insert into populationperhour values('140','5','2001-1-11');
insert into populationperhour values('114','6','2001-1-11');
insert into populationperhour values('94','7','2001-1-11');
inse

来源:http://www.tulaoshi.com/n/20160129/1505527.html

延伸阅读
标签: 电脑入门
本篇关于介绍Excel数据库函数 1.DAVERAGE 参数:返回数据库或数据清单中满足指定条件的列中数值的平均值。 语法:DAVERAGE(database,field,criteria) 参数:Database构成列表或数据库的单元格区域。Field指定函数所使用的数据列。Criteria为一组包含给定条件的单元格区域。 2.DCOUNT 参数:返回数据库或数据清单的指定字段中,满足给定条件...
 Oracle数据库的自动导入与导出,在许多地方有广泛的应用.例如:一个Oracle数据库应用系统开发结束后,假如要将系统安装到客户计算机上,就需要将初始数据导入到用户的Oracle数据库中. 最近项目中也需要实现以上功能,花了点时间搜索实验,整理如下:   先把要安装的初始数据文件导出为initial.dmp,然后在客户计算上安装好oracle,接着...
    mysql数据库表sqltable 字段id,name,sex,email access数据库表accesstable id,name,sex,email ?      $connect = mysql_connect("localhost","","");      mysql_select_db("mydatabase");      $sql = "select * from sqltable;   ...
标签: ASP
  <% Function GetPage(url) dim Retrieval Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function Function BytesToBstr(body) dim objstream set objstream = Server.CreateObj...
标签: SQLServer
1、打开企业管理器,打开要导入数据的数据库,在表上按右键,所有任务--导入数据,弹出DTS导入/导出向导,按 下一步 , 2、选择数据源 Microsoft Excel 97-2000,文件名 选择要导入的xls文件,按 下一步 , 3、选择目的 用于SQL Server 的Microsoft OLE DB提供程序,服务器...

经验教程

402

收藏

69
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部