ASP网站:怎么实现从SQL数据库表中导出数据到Excel

ASP网站:如何实现从SQL数据库表中导出数据到Excel
我想做一个功能就是要隔一段时间把mysql数据表中的数据导出到一个Excel文件中.

要求:1.定时; 2.数据来自客户信息的数据表,经过处理后再保存到Excel文件中; 3.Excel文件必须是动态生成的,因为导出的数据是以周为分类的!
请同行不吝赐教~~不胜感激:) 有具体代码参考更好:)

[解决办法]
你要的功能可不是一句两句代码能够搞定的，你这个是什么项目啊
[解决办法]
1、定时需要是自己服务器，有管理权限，然后做几乎任务来执行一个程序，到处excel代码很简单的网上有例子的
[解决办法]
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("excel/服务满意度查询.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

server_type=request("server_type")
dDate1=request("dDate1")
dDate2=request("dDate2")
Dq=request("Dq")
EmpName=request("EmpName")

select case server_type
case "1"
server_name="安装单"
end select

set myfile = fs.CreateTextFile(filename,true)
strLine0=""&Dq&""&server_name&"结果"

myfile.writeline strLine0
strLine="服务单号"& chr(9)&"单位名称"& chr(9)&"服务日期"& chr(9)&"回访日期"& chr(9)&"服务地区"& chr(9)&"服务人员"& chr(9)&"服务满意状态"& chr(9)&"热线满意状态"& chr(9)&"意见和建议"
myfile.writeline strLine
'''''''''''''''''''''''收费单据查询''''''''''''''''''''''''''
set rs=server.createobject("adodb.recordset")
sql="exec ht_approve_report 'query','"+server_type+"','"+dDate1+"','"+dDate2+"','"+Dq+"','"+EmpName+"'"

rs.open sql,conn,1,3
if not rs.eof then
Do while Not rs.EOF

doc_number = rs("doc_number")
qymc = rs("qymc")
install_date = rs("install_date")
visit_date = rs("visit_date")
address = rs("address")
emp_name = rs("emp_name")
call_approve = rs("call_approve")
line_approve = rs("line_approve")
explain_thing = rs("explain_thing")

strLine1=doc_number&chr(9)&qymc&chr(9)&install_date&chr(9)&visit_date&chr(9)&address&chr(9)&emp_name&chr(9)&call_approve&chr(9)&line_approve&chr(9)&explain_thing&chr(9)

myfile.writeline strLine1
rs.MoveNext
loop

Response.Write "生成EXCEL文件成功，点击<a href='excel/文件名称.xls' target='_blank'>下载</a>！"

end if
rs.close
set rs=nothing
%>

[解决办法]
ASP实例代码，直接将数据库中的数据导出到EXCEL电子表中。


<%

dim s,sql,filename,fs,myfile,x

Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("users.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 * from Tb_Execl order by id desc"
'rs.Open sql,conn
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"

strSql = "select * from myeky_myusr "
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then

dim trLine,responsestr
strLine=""
For each x in rstData.fields
strLine = strLine & x.name & chr(9)
Next

'--将表的列名先写入EXCEL
myfile.writeline strLine

Do while Not rstData.EOF
strLine=""

for each x in rstData.Fields
strLine = strLine & x.value & chr(9)
next
myfile.writeline strLine

rstData.MoveNext
loop

end if

Response.Write "生成EXCEL文件成功，点击<a href=""users.xls"" target=""_blank"">下载</a>！"

rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>

ASP网站:怎么实现从SQL数据库表中导出

热点推荐