-
本版专家分：221结帖率 100% -
在ASP中设置一些查询条件，查询出所要的数据并在WEB页面上以<table>显示出来
再从所显示的记录中用选择一些记录，通过点击按钮显示一个下载页面，可以自由选择保存路径。
各们高手，请帮帮忙了
![]()
-
本版专家分：0 -
关注中
-
本版专家分：272
-
很简单，一个FSO就OK了。
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("order.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 survery_custom "
search=request("search")
'set rs=server.createobject("adodb.recordset")
strSql="select * from survery_custom"
if search=1 then
strSql=strSql & " where type like '%"&Trim(request("txtitle"))&"%'"
ElseIf search=2 then
strSql=strSql & " where nfrom like '%"&Trim(request("txtitle"))&"%'"
end If
strSql=strSql & " order by id desc"
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=""order.xls"" target=""_blank""><font color=blue>下载</a></a>！"
rstData.Close
set rstData = Nothing
sql=strSql
%>
-
本版专家分：112
-
- GitHub 绑定GitHub第三方账户获取
-
-
<%
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename = 用户信息.xls"
%>
制作一个页面，页面的内容是你要导出来的信息，页面可以动态的（里面有代码），然后在页面前部加上这个导出代码。。。。就可以导出了
-
本版专家分：2713 -
FSO很多服务器禁用的，还是网上找个组件试试吧
-
本版专家分：15390
-
本版专家分：15390
-
本版专家分：125
-
大家所说的只是将ASP查询结果导出至excel，这个很简单，代码不超4行就可以实现。关键是楼主说的，报表生成后在查询结果中选择所需的数据，点击按钮导出，这个如何实现？
-
本版专家分：4158
-
-
黄花
2009年4月 .NET技术大版内专家分月排行榜第二
2009年3月 .NET技术大版内专家分月排行榜第二
-
- 蓝花 2009年5月 .NET技术大版内专家分月排行榜第三
-
-
http://hi.baidu.com/xtalon/blog/item/3cac94ee1c4b39292cf53429.html
-
本版专家分：4158
-
-
黄花
2009年4月 .NET技术大版内专家分月排行榜第二
2009年3月 .NET技术大版内专家分月排行榜第二
-
- 蓝花 2009年5月 .NET技术大版内专家分月排行榜第三
-
-
asp导出到excel
--------------------------------------------------------------------------------
在开头加上这一句
Response.ContentType = "application/vnd.ms-excel"
如果导出结果为空白的，那就去掉它
一下是导出Excel代码
--------------------------------------------------------------------------------
<%
set rs=server.createobject("adodb.recordset")
sql="select * from provinceinfo where 1=1"
rs.open sql,objconn,1,1
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"
ExcelBook.WorkSheets(1).cells(2,1).value = "用户编号"
ExcelBook.WorkSheets(1).cells(2,2).value = "登陆名"
ExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名"
ExcelBook.WorkSheets(1).cells(2,4).value = "密码"
cnt =3
do while not rs.eof
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province")
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag")
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
rs.movenext
cnt = cint(cnt) + 1
loop
Excelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
%>
这是读取Excel表中数据例子
--------------------------------------------------------------------------------
sConn1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..")&"\temp\"&sNewFileName & ";Extended Properties=""Excel 8.0;HDR=NO;"""
oxls.Open "SELECT * FROM [sheet1$]",sConn1,1,3
oxls.movenext
oxls("f11")="1月"
oxls.update
...
oxls.Close
Set oxls=nothing
-
本版专家分：4158
-
-
黄花
2009年4月 .NET技术大版内专家分月排行榜第二
2009年3月 .NET技术大版内专家分月排行榜第二
-
- 蓝花 2009年5月 .NET技术大版内专家分月排行榜第三
-
-
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("order.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 ljphs200 "
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="/"order.xls"" target=""_blank"">下载</a>！"
rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>![]()
-
本版专家分：221
-
楼上的方法都不错，只是我要的结果是，报表生成后在查询结果中选择所需的数据，点击导出按钮，弹出一个下载对话框，而不是一个页面。sql查询结果导出到excel文件保存 利用jdbc、poi把mysql查询的数据保存在本地的excel文件中，excel文件默认使用07版格式，支持数百万超大数据量的处理保存，内存占用极低，效率非常高，不会出现oom异常。代码已封装为java函数，mysql和poi相关jar包请自行百度下载，只需要传入sql、path、fileName即可执行，调用示例： String path="E:\\\\\\\\\\\\\\\\111\\\\\\\\\\\\\\\\； String fileName="test"; String sql="select * from table"; exportData(sql,path,fileName);
-
本版专家分：57
-
看来每一行前头要加一个选择按钮了，设计起来不能说困难，只是太繁琐。asp导出到excel 需求：将表格内的数据导出到excelrn[code=VBScript]rn<%rndim case_id,tel_peoplerncase_id=trim(request.Form("case_id"))rntel_people=trim(request.Form("tel_people"))rn sql = "select tel_number,area_code,bts_code,count(1) bb,(select case_name from case_info where case_id='"&case_id&"') as cc,'"&tel_people&"' as dd from ChinaMobile_TelList where case_id='"&case_id&"' and tel_number=(select tel_number from tel_people where tel_people='"&tel_people&"' and case_id='"&case_id&"') group by tel_number,area_code,bts_code order by bb desc"rnset gtrs=server.createobject("adodb.recordset")rngtrs.open sql,conn,1,1rn%>rn rn rn 手机号码rn rn 机主姓名 rn 相关名称rn rn 通话所在地rn 通话次数rn 基站名称rn rn <%do while not gtrs.eofrn dim bs_code,bs_code1,bs_code2rn bs_code1=HcD(gtrs("area_code"))rn bs_code2=HcD(gtrs("bts_code"))rn bs_code=bs_code1&"_"&bs_code2rn bs_codes=gtrs("area_code")&"_">rs("bts_code")rn sql1 = "select * from bs_info_chinamobile where rnp='"&bs_code&"'"rn set gtrs1=server.createobject("adodb.recordset")rn gtrs1.open sql1,conn,1,1rn rn %>rn rn <%=gtrs("tel_number")%>rn <%=gtrs("dd")%>rn <%=gtrs("cc")%>rn rn <%rn if gtrs1("CellNameCN")="" thenrn if bs_codes="FFFF_FFFF" thenrn response.Write "无条件呼叫转移"rn elsern response.Write bs_codesrn end ifrn else rn response.Write gtrs1("CellNameCN")rn end ifrn %>rn rn <%=gtrs("bb")%>次rn <%rn if gtrs1("CellName")="" thenrn if bs_codes="FFFF_FFFF" thenrn response.Write "无条件呼叫转移"rn elsern response.Write bs_codesrn end ifrn else rn response.Write gtrs1("CellName")rn end ifrn %>rn rn <%rn gtrs.movenextrn looprn gtrs.closern set gtrs=nothingrn %>rn rn rn rn rn rn [/code]rnrnrn网上有很多方法，是通过查询一个sql记录集，把查询出来的数据导出到excelrn但是现实中需要把table的值导出到excelrnrnrn需要excel打开能实现以下的格式：rnrn---------------------------------------------------------------------rnrn手机号码 机主姓名 相关名称 通话所在地 通话次数 基站名称rn15121234711 刘晓林 刘晓林123 同仁堂1 22次 CSCLAOZHAN_1 rn15121234712 王晓林 刘晓林123 同仁堂2 32次 CSCLAOZHAN_2 rn15121234713 张晓林 刘晓林123 同仁堂3 42次 CSCLAOZHAN_3 rn.......rnrn---------------------------------------------------------------------rn因为没做过对excel的相关操作rn所以请教下大家了，呵呵
-
本版专家分：178
-
建议用个隐藏域，用虚表来实现！查询结果导出到excel问题，求教 EXEC master..xp_cmdshell 'bcp rn"select rn商品编码=款号,品名规格=品名,颜色,年份,季节,主题='',计量单位='',调拨出库单日期=出入日期,调拨出库单号=单据编号,调出仓库=发货店仓,rn原单数量='',rn与原单差异数='',rn终止数量='',出库确认时期=出入日期,调入店仓=收货店仓,在途数量=调拨在途量,出入库差异数=''rnfrom tb_diaobo" queryout "rne:\test.xls" /c -/S"test" /U"sa" -P"sa"'rnrn执行结果 没有生成excel文件rn[img=https://img-bbs.csdn.net/upload/201309/26/1380185604_560881.png][/img]
-
本版专家分：3440
-
HTML code<%Response.Buffer=TRUEResponse.ContentType="application/vnd.ms-excel"Response.AddHeader"content-disposition","inline; filename = 用户信息.xls"%>
制作一个页面，页面的内容是你要导出来的信息，页面可以动态的（里面有代码），然后在页面前部加上这个导出代码。。。。就可以导出了
-
本版专家分：1530 -
我的思路是用一个专门的EXCEL文件生成类,这个类只需要提供标准查询语句就可以生成表,然后你把显示的记录前面加一个复选框,选中值为每条记录的ID,选中后提交就根据这些ID值生成查询SQL语句,在用EXCEL文件生成类生成EXCEL文件,我附一个EXCEL文件生成类给你:
AspToExcel.Class.asp
<%
'类开始
Class Cls_Excel
'声明常量、变量
Private objRs
Private objExcelApp
Private objExcelBook
Private Conn
Private Sql
Private Title
Private FieldName
Private FieldValue
Private FilePath
Private FileName
Private Col
Private Row
'Class_Initialize 类的初始化
Private Sub Class_Initialize()
Row = 1 '设定生成的Excel默认起始行
Col = 1 '设定生成的Excel默认起始列
End Sub
'ReportConn得到数据库连接对象
Public Property Let ReportConn(ByVal objConn)
Set Conn = objConn
End Property
'ReportSql得到SQL字符串
Public Property Let ReportSql(ByVal strSql)
Sql = strSql
End Property
'ReportTitle得到所要生成报表的标题
Public Property Let ReportTitle(ByVal strTitle)
Title = strTitle
End Property
'RsFieldName得到所要生成报表的列名称
Public Property Let RsFieldName(ByVal strName)
FieldName = Split(strName,"||")
End Property
'RsFieldValue得到所要生成报表的列值的数据库标识字段
Public Property Let RsFieldValue(ByVal strValue)
FieldValue = Split(strValue,"||")
End Property
'SaveFilePath得到Excel报表的保存路径
Public Property Let SaveFilePath(ByVal strFilePath)
FilePath = strFilePath
End Property
'SaveFileName得到Excel报表的保存文件名
Public Property Let SaveFileName(ByVal strFileName)
FileName = strFileName
End Property
'ColumnOffset得到Excel报表默认起始列
Public Property Let ColumnOffset(ByVal ColOff)
If ColOff > 0 then
Col = ColOff
Else
Col = 1
End If
End Property
'RowOffset得到Excel报表默认起始行
Public Property Let RowOffset(ByVal RowOff)
If RowOff > 0 then
Row = RowOff
Else
Row = 1
End If
End Property
'生成报表
Sub Worksheet()
Dim iCol,iRow,Num
iCol = Col
iRow = Row
Num = 1
Call DBRs()
Call ExcelApp()
Set objExcelBook = objExcelApp.Workbooks.Add
'写Excel标题
'--------------------------------------------------------
objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = Title
'--------------------------------------------------------
'写Excel各列名
'--------------------------------------------------------
iRow = Row + 1
objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = "序号"
iCol = iCol + 1
For i = 0 to Ubound(FieldName)
objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = FieldName(i)
iCol = iCol + 1
Next
'--------------------------------------------------------
'写Excel各列值
'--------------------------------------------------------
iRow = Row + 2
Do While Not objRS.EOF
iCol = Col
objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = Num
iCol = iCol + 1
For i = 0 to Ubound(FieldValue)
If IsNull(objRS(FieldValue(i))) then
objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = ""
Else
objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = objRS(FieldValue(i))
End If
iCol = iCol + 1
Next
objRS.MoveNext
iRow = iRow + 1
Num = Num + 1
Loop
'--------------------------------------------------------
Call SaveWorksheet()
End Sub
'创建Adodb.Recordset对象
Sub DBRs()
If IsObject(objRs) = True Then Exit Sub
Set objRs = Server.CreateObject("Adodb.Recordset")
objRs.Open Sql,Conn,1,1
If Err.Number > 0 Then
Response.End
End If
End Sub
'创建Excel.Application对象
Sub ExcelApp()
If IsObject(objExcelApp) = True Then Exit Sub
Set objExcelApp = Server.CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=false '不显示警告
objExcelApp.Application.Visible=false '不显示界面
If Err.Number > 0 Then
Response.End
End If
End Sub
'保存Excel报表
Sub SaveWorksheet()
objExcelbook.SaveAs Server.MapPath(FilePath) & "\" & FileName & ".xls"
If Err.Number = 0 Then
Call Message("导出数据成功!")
Else
Call Message("导出数据失败!")
End If
End Sub
'信息提示
Sub Message(msg)
Response.Write("<script language='JavaScript'>")
Response.Write("alert('"&msg&"');")
Response.Write("</script>")
Response.Write("<a href='" & FilePath &"/" & FileName & ".xls'>")
Response.Write("点击下载文件</a>")
Response.End
End Sub
'Class_Terminate 类注销
Private Sub Class_Terminate()
objExcelApp.Application.Quit
Set objExcelBook = Nothing
Set objExcelApp = Nothing
objRs.Close
Set objRs = Nothing
End Sub
'类结束
End Class
%>
![]()
-
本版专家分：1530
-
现附上一个使用示例:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!--#include file="sub.asp" -->
<!--#include file="config/AspToExcel.Class.asp" -->
<html>
<head>
<title>导出Excel</title>
</head>
<body>
<%
'---获取页面参数---
TypeNum=int(Request("TypeNum"))
'---页面参数判断---
select case TypeNum
case 1 '请款资料导出
'---获取参数---
ClientID=Request("ClientID") '结账客户ID
ClientName=Request("ClientName") '结账客户名称
GatherMonth=Request("GatherMonth") '结账月份
OutProductCodeStr=Request("OutProductCodeStr") '结账出货单ID
if ClientID="" or ClientName="" or GatherMonth="" or OutProductCodeStr="" then response.Redirect("Wrong.asp") '判断关键参数不能为空
FolderName="UploadFile\请款资料\"&ClientName '导出文件路径
AutoCreateFolder(FolderName) '检查文件路径是否存在,不存在则创建
FileName=ClientName&GatherMonth&"请款资料" '导出文件名
sql="select 客户订号,日期,出货单号,产品名称,规格,单位,单价,数量,金额,备注 from 出货单库 where ID in ("&OutProductCodeStr&") and 终止=false order by 日期" '数据查询语句
'---Excel文件生成---
Set MyExcel = new Cls_Excel
With MyExcel
.ReportConn = conn
.ReportSql = sql
.ReportTitle = FileName
.RsFieldName = "订购单号||送货日期||送货单号||产品名称||规格||单位||单价||数量||金额||备注"
.RsFieldValue = "客户订号||日期||出货单号||产品名称||规格||单位||单价||数量||金额||备注"
.SaveFilePath = FolderName
.SaveFileName = FileName
.ColumnOffset = 1
.RowOffset = 1
End With
MyExcel.Worksheet()
MyExcel = Null
Set MyExcel = Nothing
end select
%>
</body>
</html>
<% closeDatabase %>
-
本版专家分：221
-
16楼的楼主：
<!--#include file="sub.asp" -->是一个什么样的文件，我试行的时候为什么提示没有这样的文件呢？
还有TypeNum=int(Request("TypeNum"))是从页面传递过来的什么参数？
急回，谢谢！！！
-
本版专家分：1530
-
晕,我说楼主,你总不能现搬我的东西吧,那些是我自己的东西,没有改,你只是看一下那个类的用法就行了吧,没理由不读代码就照搬我的东西,与其这样,你还不如叫我直接写个给你得了!
- DATAGRIP查询结果,导出到EXCEL的问题?
- 从DATAGRIP<em>查询</em>的<em>结果</em>有时很多.都在一页上显示很不好看.我就加入了分页.但是这样的话.导出成EXCEL就不行了.那位朋友遇到过这种问题!要怎么解决呢?rn或者谁有通用一些的源代码?谢谢!
- ****将查询结果导出到Excel问题****
- 功能实现：rn1。将<em>数据</em>库中<em>查询</em>的<em>数据</em>导<em>出到</em>Excel中rn2。如果在导出时发现Excel文件已存在，则删除重建，或删除其中的内容，然后将新的<em>数据</em>倒入rn3。导出时，指定每一列的中文名字，rnrn---------------------------------rn目前只知道下面这点导出方法rninsert opendatasource('Microsoft.Jet.OLEDB.4.0','Data Source="d:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...sheet1$(SlotName) rnselect A,B,C,D from Trn测试时发现前两行是空白行，不知为什么。rnrnrn谢谢
- 将查询结果导出到EXCEL
- 语句：rnEXEC master..xp_cmdshell 'bcp "SELECT * FROM TableName" queryout d:\aaa.xls -c -S"zyp" -U"sa" -P"asdasd"'rn为什么不对啊？错在那里了？rn请问只有表名可以吗？是不是也得把<em>数据</em>库名写上呢？该怎么写呢？谢谢
- 求助asp查询结果导出到excel问题？
- <em>数据</em>库<em>sql</em>2005rn<em>asp</em><em>查询</em><em>结果</em>有分页（10条为一页），activex已全部启用，可信站点也已设置完成。问题：<em>查询</em>出来的<em>数据</em>大概40条左右可成功导<em>出到</em><em>excel</em>，40条以上页面左下角出现：已完毕，但网页上有错误！查看详情错误：未结束字符串常量rnrnjs导出代码如下：rnrnrn
- asp+access 导出Excel
- <em>asp</em>+access 导出Excel <em>数据</em>库里有一个 bm 的表 里面的字段有 id，name（姓名），data（时间） 如何导出所有的信息，或者按时间段导出呢
- ASP导出Excel数据的四种方法
- 一、使用OWC 什么是OWC？ OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种...
- ASP.NET Core 导入导出Excel.xlsx文件实例
- ASP.NET Core 使用EPPlus.Core导入导出Excel xlsx 文件，EPPlus.Core支持Excel 2007/2010 xlsx文件导入导出，可以运行在Windows, Linux和Mac。EPPlus.Core 是基于EPPlus 更改而来，在Linux 下需要安装libgdiplus 。EPPlus：http://epplus.codeplex.com/EPPlus....
- asp把查询结果导出到excel表里
- [code=JScript]rn function AllAreaExcel() rn rn var oXL = new ActiveXObject( "Excel.Application "); rn var oWB = oXL.Workbooks.Add(); rn var oSheet = oWB.ActiveSheet; rn var sel=document.body.createTextRange(); rn //PrintA是table的id rn sel.moveToElementText(PrintA); rn sel.select(); rn sel.execCommand( "Copy "); rn oSheet.Paste(); rn oXL.Visible = true; rn rn[/code]rn[code=HTML]rn rn rn 以下为的各项服务费用说明：rn rn rn 序号) 服务内容rn 开始时间rn 到期时间rn 消费（元）rn 状态rn 应付余额(元)rn rn rnrn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rnrn rn 总共消费：（元） 还欠费：（元） rnrnrn[/code]rn我想用上面那段JS把下面的页面上所显示的<em>查询</em><em>结果</em>导入到execel表中，可是却不能成功！请问大家，那段JS哪里有错误，应该怎么修改，大家有没有别的好的办法呢？
- sql导出到excel
- 用rnselect * into [sheet1] from [odbc;drive='<em>sql</em> server',server='me';database='customs';uid='sa';pwd=''].product;rn这个方法可以把<em>数据</em>库的product表的所有<em>数据</em>导出来rn但是如果带个条件怎么办呢?rnrnselect * into [sheet1] from [odbc;drive='<em>sql</em> server',server='me';database='customs';uid='sa';pwd=''].product where a=arn不行rnselect * into [sheet1] from [odbc;drive='<em>sql</em> server',server='me';database='customs';uid='sa';pwd=''].product where [odbc;drive='<em>sql</em> server',server='me';database='customs';uid='sa';pwd=''].product.a=arn也不行
- SQL导出到EXCEL
- 使用了皱老大 的导出方法后问题初步解决了，但是 在 EXEC p_exporttb @<em>sql</em>str=SQL语句，@path=‘C：\’ @fname ='UFO.XLS' @sheetname='UFO1' 中变量@<em>sql</em>str 必须是T—SQL 语句，现在小弟的问题是 复杂的SQL语句我已经写在存储过程里了 如何去执行这个得到<em>数据</em>的存储过程？请老大些解决rn
- 查询结果导出到access?
- 如题.
- 如何将SQL2005数据库内的查询结果导出到EXCEL？
- <em>查询</em>语句是：rnselect * from dbo.蓝海考勤$ where 星期=值日 and cast(刷卡时间 as datetime)>'8:10' and cast(刷卡时间 as datetime)rnrn我想将它的<em>查询</em><em>结果</em>导<em>出到</em>EXCEL，怎么做啊？
- ASP 导出 Excel 数据的四种方法
- ASP 导出 Excel <em>数据</em>的四种方法在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下，客户端工作站将在整个任务中分担很大的比重。〈%Option ExplicitClass ExcelGenPrivate objSpreadsheet
- ASP导出为Word或Excel的最简单方法
- 我在做一项目时，客户要求要将从<em>数据</em>库中获取<em>数据</em>后的ASP页面导出成EXCEL或WORD文档。经本人试验后找出了最简单的方法：在ASP文件的最开头位置加入下面的代码就可以了，非常简单。 EXCEL &lt;% Response.ContentType ="application/vnd.ms-<em>excel</em>" Response.AddHeader "Content-Disposition", "...
- 快要崩溃了！！ASP导出EXCEL问题
- 我找了一段ASP的代码，说是可以将网页<em>结果</em>保存成EXCEL下载。部分代码如下： <!DOCTYPE html PUBLIC "-//W3C//DTD html 4.0 Transitional//EN
- asp导出excel
- 前面是导出按钮： ,
- 【译】Asp.Net 导出 Excel 数据的9种方案
- 简介 Excel 的强大之处在于它不仅仅只能打开Excel格式的文档，它还能打开CSV格式、Tab格式、website table 等多钟格式的文档。它具备自动识别行号，字符，格式化数字等功能，例如：如果你在Excel 单元格中输入数字 "123456789012" 会自动转化为"1.23457E+11"。 背景介绍 正因为Excel的强大和易用，大家都喜欢将<em>数据</em>导出为 Excel 备用。这...
- java--把sql查询出来的结果导出到excel中
- java--把<em>sql</em><em>查询</em>出来的<em>结果</em>导<em>出到</em><em>excel</em>中，导出功能，<em>excel</em>导出
- ASP 导出到EXCEL 20万数据
- 有什么方法可以导出20多万条<em>数据</em>到<em>excel</em>中？rnrn网上几种方法尝试了 都是内存不足
- java查询sql导出到excel方法
- 1、首先，我们需要知道的是：可以直接使用<em>sql</em>语句（命令行）<em>查询</em>之后导<em>出到</em><em>excel</em>my<em>sql</em> -uroot -ppassword -e"select * from XXX " tase_db &gt; /home/A.xls准备篇：2、实验室的需求，需要每天执行一次<em>查询</em>语句，并且输<em>出到</em><em>excel</em>中，因此有两个变量，第一个是每次调用都需要的前一天的unix时间戳，第二个是<em>excel</em>名必须为2018...
- asp 怎么导出到EXCEL
- 想通过一个按钮把<em>数据</em>库的内容导<em>出到</em>EXCEL 怎么实现
- asp导出到excel的问题？
- 机器环境win2003+<em>sql</em>2005rnrn在本机上（服务器）将ie的ActiveX都设为启用后，测试可以正常导<em>出到</em><em>excel</em>。但在客户机上同样设置，却不能导<em>出到</em><em>excel</em>，左下角总是出现“网页上有错误”。rnrn代码见下面：rnrn rnrn请前辈给看看，谢谢！
- C# asp.net 实现导出Excel
- 转自http://www.cnblogs.com/zhangjd/p/5673950.html 两个方法 一、实现DataTable<em>数据</em>导<em>出到</em>本地，需要自己传进去导出的路径。 /// <summary> /// DataTable导<em>出到</em>Excel /// </summary> /// <param name="table">DataTabl...
- ASP导出excel文件的代码（自己试验成功并且一直在使用的哟）
- dim conn,strconn strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test" set conn=server.CreateObject("adodb.connection") conn.Open strconn dim s,<em>sql</em>,filename,fs,myfile,x Set
- 将ASP生成的报表导出到EXCEL文件
- ASP导出Excel<em>数据</em>的四种方法 来源： <em>asp</em>sky 作者： tonny 一、使用OWC 什么是OWC？ OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2
- asp导出数据到Excel的几个问题
- 要做一个用<em>asp</em>从<em>sql</em> server导出<em>数据</em>到Excel的功能，网上主要有这两种方法： 方法一：用<em>excel</em>组件 < % set rs=server.createobject("adodb.reco
- asp.net生成Excel并导出下载五种实现方法
- http://www.jb51.net/article/33728.htm 有关Excel下载的文章网上想必有很多，利用闲暇时间整理了一些有Excel下载方法的文章，接下来介绍五种实现Excel下载的方法，感兴趣的朋友可以了解下，或许对你学习Excel下载有所帮助 方法一 通过GridView(简评：方法比较简单，但是只适合生成格式简单的Excel，且无法保留VBA代码),页面
- asp导出到excel问题！
- 我用这种方法导<em>出到</em><em>excel</em>，可是有些机子显示正常，有些机子显示一片空白，什么都没有，一片空白。rn为什么？？？
- 导出到EXCEL的数据的乱码?
- <em>数据</em>库里的文字的繁体，导<em>出到</em>EXCEL后，是乱码。我的程序如下：rnrn
- 数据窗口导出到Excel
- DW 导<em>出到</em>EXCEL的源码。 具体的使用方式在压缩文档里面， 该源码是PB9.0的。
- 导出到数据到Excel的问题
- 我通过下面循环将<em>数据</em>倒<em>出到</em>EXCEL中：rn rnfor(row=0; row
- 数据窗口导出到excel
- 我用saveas() 将<em>数据</em>窗口导<em>出到</em><em>excel</em>。rn因为<em>数据</em>窗口中有的字段是dropdowndw的形式，dropdowndw设置为displaycolom为“名称”，datacolom为“代码”。rn这样导出<em>excel</em>后，<em>excel</em>显示的为“代码”，我想导出<em>excel</em>显示的是“名称”，请问该怎么做？rnrn我表达能力太差，不知道大家有没有明白？rn谢谢关注！rnrn
- ASP导出Excel数据的四种方法
- 一、使用OWC 什么是OWC？ OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下，
- asp数据导出到excel
- <em>asp</em>代码，将<em>数据</em>导<em>出到</em><em>excel</em>中
- ASP程序快速生成Excel文件
- ASP程序快速生成Excel文件 在一个web项目中，要求将<em>数据</em>生成Excel文件保存到本地，最早使用的方法是直接使用Microsoft的Office Web组件，但是总体感觉是慢（微软的通病）。然后使用SQL SERVER语句直接生成<em>excel</em>文件，速度是快了，但是标题等信息还需要再打开一次生成的文件进行修改，还有一个更重要问题就是当<em>查询</em>比较复杂的时候，就很难处理。后来又想用csv格式，但是存...
- asp生成Excel最简单的方法
- CreateExcelaction=trim(request("action")) if action="create" then Response.ContentType = "application/ms-download" Response.AddHeader "content-disposition", "attachment; filename=Table" & date()
- asp导出查询数据至excel实例
- 近日在用ASP把Access<em>数据</em>库的<em>查询</em><em>结果</em>导出为Excel文件时，出现一点问题，因为有一个字段是身份证号码，在导出的Excel文件中，所有身份证号后3位全部变成0了！真是郁闷啊！网上查了一下才知道是
- SQL导出到EXCEL，急
- 1。我把<em>数据</em>库里面<em>查询</em>的表格到EXCEL表rn可是程序没有报错，但是在C盘找不到导出的文件rn各位大侠帮忙看看，是什么原因啊，rn<em>sql</em>.Add('exec master..xp_cmdshell ''bcp "select top * from hld..car where car_number="浙D50888"" queryout c:\Temp.xls -c -q -S"IBM" -U"" -P""''' );rn2。还原<em>数据</em>库程序也没有报错，可是好像还原没有效果，求助，放分100rnADOquery1.ConnectionString:=ADOConnection1.ConnectionString;rnADOConnection1.Connected:=false;rnADOQuery1.SQL.Clear;rnADOQuery1.SQL.Add('use master');rnADOQuery1.SQL.Add('restore database hld from disk='''+edit2.text+'''');rnADOQuery1.ExecSQL;rnADOConnection1.Connected:=True;
- sql备份文件导出到excel
- 需求背景： 公司内部由于开发的维护的网站及工具使用的<em>数据</em>库，由于时间比较悠久，架构比较旧，当开发人及维护员离职后，一旦服务崩溃后新的员工没法恢复服务使用了，在只有遗留<em>数据</em>库备份文件的情况下，有需要<em>查询</em>旧的<em>数据</em>资源。 造成的原因： 开发及运维人员没有完整的开发和部署文档，旧的技术或者架构早已经被弃用，年轻人对于比较老旧的技术了解的不多。解决方案 1. 重新开发新的网站，并且使用旧的<em>数据</em>库
- SQL导出到Excel的问题.
- 如题:从SQL导<em>出到</em>Excel,有时候成功,有时不成功.自己做了一个日志文件,发现错误信息如下:rn2006-11-08 01:56:50rnSystem.IO.IOException: 该进程无法访问文件“d:\temp_base.xls”，因为该文件正由另一进程使用。rn at System.IO.__Error.WinIOError(Int32 errorCode, String str)rn at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, Boolean useAsync, String msgPath, Boolean bFromProxy)rn at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share)rn at System.Web.HttpResponse.WriteFile(String filename, Boolean readIntoMemory)rn at System.Web.HttpResponse.WriteFile(String filename)rn at HouseMS.Web.js.jsShow.btnExport_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\housems\web\js\jsshow.<em>asp</em>x.cs:line 730rn各位高手帮看看,马上就要交活了.(文件temp_base.xls并没有打开)
- sql server导出到excel
- ADOConnection1.ConnectionString:=rn'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mysmallexe\<em>excel</em>2<em>sql</em>\yp.xls;'rn+'Extended Properties=<em>excel</em> 8.0;Persist Security Info=False';rnADOConnection1.Execute('select * into [Abc] from drug_yk IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=kcsoft58;Server=127.0.0.1;DataBase=kcsoft_his]');rn//把一个MSSQL的<em>数据</em>库表及<em>数据</em>导<em>出到</em><em>excel</em>中,abc为<em>excel</em>中不存在的表名，drug_yk为MSSQL里的表, sa为用户, kcsoft58为密码 , 127.0.0.1为服务大地址 ，kcsoft_his是<em>数据</em>库名称rnADOConnection1.Execute('insert into [abc] select * from drug_yk in [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=kcsoft58;Server=127.0.0.1;DataBase=kcsoft_his]');rn//把一个MSSQL的<em>数据</em>库表的记录增加到到<em>excel</em>中，执行以后相当于两倍量的<em>数据</em>，一次是导入，一次是insertrnrn导出的<em>结果</em>是每列标题都是字段的名字，我想修改这个列标题，怎么写？还有修改sheet的标题怎么写？rn另外又没有更好的方法？rn
- 查询结果输出到EXCEL
- <em>数据</em>库结构----paradoxrnrn请问怎么样把显示在dbgrid内的<em>查询</em>的<em>结果</em>，导<em>出到</em><em>excel</em>中去
- asp 导出到excel 方法
- <em>asp</em> 导<em>出到</em><em>excel</em> 方法Response.Buffer = trueResponse.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition","attachment; filename=member.csv" Response.CharSet = "UTF-8" %>set
- ASP导出数据到excel
- 最近做一个用<em>asp</em>做的网站后台的<em>数据</em>导出功能时,google,baidu了很多,但是多数都是转载,代码大概都一样,但是就是报错,最后有人说通过设置MIME类型和建立模板,最后整理,测试问题终于解决.关键的地方有以下几点:1):MIME类型要设置正确,如要把DB中表(或表中指定字段)的<em>数据</em>导出成exel格式时,头部的MEMI类型的设置是:Response.Expires = 0Response.
- 在ASP.NET中GridView导出Excel的快速方法
- 此方法最有效，所以贴出来与大家分享 protected void btnOutExcel_Click(object sender, EventArgs e) { if (GridView1.Rows.Count > 0) { //调用导出方法 Ex
- asp导出excel表格的所有方法评点
- 1.js 创建<em>excel</em>对象。 因为考虑到安全性所以在客户端浏览器默认是几乎是无法直接执行的，得做好多设置，你能让每个用户按照你的要求来设置internet选项吗？ 2.导出csv文件的方式。但是csv文件是文本格式的，用户修改内容格式后再保存会有询问窗口弹出提示格式不能保存什么的，比较不妥，但是这个适用于报表之类的无需人工二次修改的。 3.导出制表符间隔的xls文件。尽管后缀名是
- asp导出到excel
- <em>asp</em>导<em>出到</em><em>excel</em> 方法一：--------------------------------------------------------------------------------在开头加上这一句Response.ContentType = "application/vnd.ms-<em>excel</em>"如果导出<em>结果</em>为空白的，那就去掉它一下是导出Excel代码---------
- 查询结果输出到excel
- rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn 序号rn 编号 rn 单位rn rn rn
- ASP 导数据到EXCEL
- ASP 查出20万条<em>数据</em>，处理完成后要导<em>出到</em>EXCEL中，总是报内存不足rnrn不知道有什么好的方法？rnrnrn用<em>excel</em>的OFFICE的组件貌似都不行
- 查询的结果，导成excel
- 我需要把<em>查询</em><em>结果</em>rn显示导网页上面rn再加一个按钮，导出<em>excel</em>rn可是我现在导补出来阿，帮我看看阿rnrn能否给我一个简单的例子
- 导出到Word和导出到Excel的问题
- public partial class printlist : System.Web.UI.Pagern rnrn protected void Page_Load(object sender, System.EventArgs e)rn rn if (Session["SQL"] == null || Session["SQL"].ToString() == "")rn rn Response.Write("打印报表失败,没有指定SQL");rn rn if (Request["TITLE"] != null)rn rn LB_Title.Text = Request["TITLE"].ToString();rn rnrn DBHelper helper = new DBHelper();rn IDataReader Reader = helper.ExecuteReader(Session["SQL"].ToString());rn DataGrid1.DataSource = Reader;rn DataGrid1.DataBind();rn Reader.Close(); Reader.Dispose();rn rnrn private void ToExcel(System.Web.UI.Control ctl)rn rn Response.Charset = "GB2312";rn Response.AppendHeader("Content-Disposition", "attachment;filename=Excel.xls");rn Response.ContentEncoding = System.Text.Encoding.UTF8;rn Response.ContentType = "application/ms-<em>excel</em>";rnrn ctl.Page.EnableViewState = false;rn System.IO.StringWriter tw = new System.IO.StringWriter();rn System.Web.UI.HtmlTextWriter hw = new HtmlTextWriter(tw);rnrn ctl.RenderControl(hw);rnrn Response.Write(tw.ToString());rn Response.End();rn hw.Close();rn tw.Close();rn rn private void ToWord(System.Web.UI.Control ctl)rn rn Response.Charset = "GB2312";rn Response.AppendHeader("Content-Disposition", "attachment;filename=word.doc");rn Response.ContentEncoding = System.Text.Encoding.UTF8;rn Response.ContentType = "application/ms-word";rnrn ctl.Page.EnableViewState = false;rn System.IO.StringWriter tw = new System.IO.StringWriter();rn System.Web.UI.HtmlTextWriter hw = new HtmlTextWriter(tw);rnrn ctl.RenderControl(hw);rnrn Response.Write(tw.ToString());rn Response.End();rn hw.Close();rn tw.Close();rn rnrn #region Web 窗体设计器生成的代码rn override protected void OnInit(EventArgs e)rn rn //rn // CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。rn //rn InitializeComponent();rn base.OnInit(e);rn rnrn /// rn /// 设计器支持所需的方法 - 不要使用代码编辑器修改rn /// 此方法的内容。rn /// rn private void InitializeComponent()rn rnrn rn #endregionrnrn protected void BT_ToExcel_Click(object sender, System.EventArgs e)rn rn ToExcel(DataGrid1);rn rnrn protected void BT_ToWord_Click(object sender, System.EventArgs e)rn rn ToWord(DataGrid1);rn rn rn明明可以打印但是为什么点按钮的时候会跳出rnIDataReader Reader = helper.ExecuteReader(Session["SQL"].ToString());rn未将对象引用设置到对象的实例。rnrn
- delphi 数据库查询的结果 如何 导出到excel
- 各位好。我是小白。从来没有用过delphi，但是有特别想做一个傻瓜式的<em>数据</em>库<em>查询</em>软件。用了delphi， 现在学了一天，能够执行<em>查询</em>了。但是，我现在需要的是将这些<em>查询</em>到<em>数据</em>导<em>出到</em> EXCEL表中，我是小白，完全不懂。所以希望能详细点说，如果能够图文教程最好，谢谢大家。rnrnrnrnrn这个我是已经做好的图，能够连接到<em>数据</em>库，并且点击<em>查询</em>还能够<em>查询</em>到<em>数据</em>。rn现在唯一的问题就是，想实现 点击 导<em>出到</em>EXCEL的功能实现，把<em>查询</em>到<em>数据</em>直接导<em>出到</em>EXCEL表中。请问，如何实现呢？rn我是小白，完全没有学过这个语言。 rn[img=https://img-bbs.csdn.net/upload/201705/09/1494291571_912281.jpg][/img]rnrnrn然后我在其他地方下载了一个uExportXls.pas 文件。但是却完全不知道怎么rn用，在网上也找不到对应的视频，教程，所以只有跑这里来问问大家了。再次感谢！！rn[code=delphi] 背景：今天要把DataSet导入Excel，<em>查询</em>以前的贴子，一部分用Ole，速度太慢，rn 一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来，rn 欢迎大家指教、改进。rn 功能：将<em>数据</em>集的<em>数据</em>导入Excel;rn 用法：With ExportXls.Create(TDataSet(ADOQuery1)) dorn Tryrn Save2File(SaveDialog1.FileName, True);rn finallyrn Free;rn end;rn 作者：Caidao (核心代码来自Ehlib)rn 时间：2003-04-09rn 地点：汕头rnrnrnunit uExportXls;rnrninterfacernrnusesrn DB, Classes;rnrnvarrn CXlsBof: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);rn CXlsEof: array[0..1] of Word = ($0A, 00);rn CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);rn CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);rn CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0);rn CXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17);rnrntypern TFldRec = recordrn Title: string;rn Width: Integer;rn end;rnrn ExportXls = class(TObject)rn privatern FCol: word;rn FRow: word;rn FDataSet: TDataSet;rn Stream: TStream;rn FWillWriteHead: boolean;rn FBookMark: TBookmark;rn procedure IncColRow;rn procedure WriteBlankCell;rn procedure WriteFloatCell(const AValue: Double);rn procedure WriteIntegerCell(const AValue: Integer);rn procedure WriteStringCell(const AValue: string);rn procedure WritePrefix;rn procedure WriteSuffix;rn procedure WriteTitle;rn procedure WriteDataCell;rnrn procedure Save2Stream(aStream: TStream);rn publicrn procedure Save2File(FileName: string; WillWriteHead: Boolean);rn constructor Create(aDataSet: TDataSet);rn end;rnfunction ExportToXLS(const FileName: string; DataSet: TDataSet): Boolean;rnimplementationrnrnuses SysUtils;rnrnfunction ExportToXLS(const FileName: string; DataSet: TDataSet): Boolean;rnbeginrn Result := False;rn with ExportXls.Create(DataSet) do tryrn Save2File(FileName, True);rn Result := True;rn finallyrn Free;rn end;rnend;rnrnconstructor ExportXls.Create(aDataSet: TDataSet);rnbeginrn inherited Create;rn FDataSet := aDataSet;rnend;rnrnprocedure ExportXls.IncColRow;rnbeginrn if FCol = FDataSet.FieldCount - 1 then beginrn Inc(FRow);rn FCol := 0;rn endrn elsern Inc(FCol);rnend;rnrnprocedure ExportXls.WriteBlankCell;rnbeginrn CXlsBlank[2] := FRow;rn CXlsBlank[3] := FCol;rn Stream.WriteBuffer(CXlsBlank, SizeOf(CXlsBlank));rn IncColRow;rnend;rnrnprocedure ExportXls.WriteFloatCell(const AValue: Double);rnbeginrn CXlsNumber[2] := FRow;rn CXlsNumber[3] := FCol;rn Stream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber));rn Stream.WriteBuffer(AValue, 8);rn IncColRow;rnend;rnrnprocedure ExportXls.WriteIntegerCell(const AValue: Integer);rnvarrn V: Integer;rnbeginrn CXlsRk[2] := FRow;rn CXlsRk[3] := FCol;rn Stream.WriteBuffer(CXlsRk, SizeOf(CXlsRk));rn V := (AValue shl 2) or 2;rn Stream.WriteBuffer(V, 4);rn IncColRow;rnend;rnrnprocedure ExportXls.WriteStringCell(const AValue: string);rnvarrn L: Word;rnbeginrn L := Length(AValue);rn CXlsLabel[1] := 8 + L;rn CXlsLabel[2] := FRow;rn CXlsLabel[3] := FCol;rn CXlsLabel[5] := L;rn Stream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));rn Stream.WriteBuffer(Pointer(AValue)^, L);rn IncColRow;rnend;rnrnprocedure ExportXls.WritePrefix;rnbeginrn Stream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));rnend;rnrnprocedure ExportXls.WriteSuffix;rnbeginrn Stream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));rnend;rnrnprocedure ExportXls.WriteTitle;rnvarrn n: word;rnbeginrn for n := 0 to FDataSet.FieldCount - 1 dorn WriteStringCell(FDataSet.Fields[n].DisplayLabel); //显示标签名rnend;rnrnprocedure ExportXls.WriteDataCell;rnvarrn Idx: word;rnbeginrn WritePrefix;rn if FWillWriteHead then WriteTitle;rn FDataSet.DisableControls;rn FBookMark := FDataSet.GetBookmark;rn FDataSet.First;rn while not FDataSet.Eof do beginrn for Idx := 0 to FDataSet.FieldCount - 1 do beginrn if FDataSet.Fields[Idx].IsNull thenrn WriteBlankCellrn else beginrn case FDataSet.Fields[Idx].DataType ofrn ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:rn WriteIntegerCell(FDataSet.Fields[Idx].AsInteger);rn ftFloat, ftCurrency, ftBCD:rn WriteFloatCell(FDataSet.Fields[Idx].AsFloat);rn elsern if Assigned(FDataSet.Fields[Idx].OnGetText) thenrn WriteStringCell(FDataSet.Fields[Idx].Text)rn elsern WriteStringCell(FDataSet.Fields[Idx].AsString);rn end;rn end;rn end;rn FDataSet.Next;rn end;rn WriteSuffix;rn if FDataSet.BookmarkValid(FBookMark) then FDataSet.GotoBookmark(FBookMark);rn FDataSet.EnableControls;rnend;rnrnprocedure ExportXls.Save2Stream(aStream: TStream);rnbeginrn FCol := 0;rn FRow := 0;rn Stream := aStream;rn WriteDataCell;rnend;rnrnprocedure ExportXls.Save2File(FileName: string; WillWriteHead: Boolean);rnvarrn aFileStream: TFileStream;rnbeginrn FWillWriteHead := WillWriteHead;rn if FileExists(FileName) then DeleteFile(FileName);rn aFileStream := TFileStream.Create(FileName, fmCreate);rn tryrn Save2Stream(aFileStream);rn finallyrn aFileStream.Free;rn end;rnend;rnrnend.[/code]
- asp中把数据导出为excel的2种方法
- 我们在做项目的时候经常要将<em>数据</em>库的<em>数据</em>导<em>出到</em><em>excel</em>中，很多<em>asp</em>用户并不知道怎么写。 这里明凯总结了两种方法来导出<em>excel</em>，希望能帮到大家。 方法一：用<em>excel</em>组件 < % set rs=server.createobject("adodb.recordset") <em>sql</em>="select * from mkusers" rs.open <em>sql</em>,objconn,1,1 Set Exce...
- html 表格导出到Excel
- <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title></title> <link href="https://cdn.staticfile.org/twitter-bootstrap/3.3.7/css/bootstrap.min.css"...
- 将查询的集合导出为Excel文件
- 第一个是前台的script的代码，第二个是servlet中控制xml下载的代码 这里直接复制黏贴拿来修改一下就好了，可以设置一个按钮访问这个servlet，method=exportXls就可以啦 function exportXls(){ var empId=$("#empId").val(); var deptNo=$("...
- ASP.NET导出EXCEL超高兼容
- 网上的代码基本都是不能兼容的,一旦在EXCEL2007打开,就会提示扩张名不一致问题,自己研究了好久,封装了一套,希望能帮到有需要的人,绝对能用
- ASP.NET实现excel导入数据库
- 1：说明：此方法建立在已经实现<em>数据</em>库的插入功能上2：注解：2.1：新建一个文件夹存放<em>excel</em>文件（见example.<em>asp</em>x.cs的GetExcel()方法） 2.2：控件 2.3：<em>excel</em>表格式（<em>excel</em>表头与<em>数据</em>库表字段对应） 2.4：修改<em>数据</em>库插入方法（...
- 将sqlplus查询结果导出到文件
- NULL 博文链接：https://ginaduxuefang.iteye.com/blog/1092945
- 如何将查询结果导出到文本文件？
- 请问：如何将<em>查询</em><em>结果</em>导<em>出到</em>文本文件？
- 把查询结果快速导出到文本文件！
- 有下面语句<em>查询</em>到大约100万条记录（日后会更多）rnselect * from a, b where a.RsCount > 1000 and a.id=b.id and a.id=c.idrn怎么把这些<em>结果</em>快速的导<em>出到</em>文本文件中呢？rnrn用while not ado.Eof do rn 这种逐条记录循环输<em>出到</em>文本中是非常耗时间的，rn哪位大侠有什么快速的方法呢？rn
- 查询结果导出到DBF问题？？
- 有很多条<em>查询</em><em>结果</em>，根据选择把<em>查询</em><em>结果</em>导<em>出到</em>DBF表格式，DBF表是还没有建好的。用什么方法实现好，怎么实现？？？rn我用的是VB编程，已经根据选择构造了<em>查询</em>语句，但不知道怎么实现上述问题，对FOXPRO不熟悉。rnrn还有个小问题，DBF表格的字段名称内容只有10位吗？怎么我输入5个中文就不能再输入了。rnrn请各位帮帮忙，俺在加班赶任务呢，先谢谢了！
- asp实现sql2000数据库查询结果导出到
- 在<em>asp</em>页面中点击按钮，就可以把<em>sql</em>2000<em>数据</em>库<em>查询</em><em>结果</em>导<em>出到</em><em>excel</em>表并下载到客户端，这如何实现，请给出实例，万分感谢
- ASP.NET数据导出到Excel
- 《ASP.NET<em>数据</em>导<em>出到</em>Excel》 开发工具与关键技术：Visual Studio / .NET 作者：肖春庆 撰写时间：2019年04月03日 在使用软件过程中，我们会将自己需要用的<em>数据</em>，以Excel工作表的形式进行<em>数据</em>导出，以便<em>数据</em>的使用或者光看。 引用NPOI插件，把NPOI添加在项目中，并引用进来（图1）。 选择项目路径，找到NPOI.dll确定引用，引用成功时，在资源管理器中的引用中...
- ASP.NET导出到EXCEL（控件式样）
- 导<em>出到</em><em>excel</em>
- ASP.NET中Excel的导入和导出
- 导入 导出 导入导出功能一般是安装第三方组件实现的。 安装微软的Office太不友好就不考虑了，简单说下一般方法。 导入 导入的话可以使用组件。使用NPOI组件是一个不错的选择。NPOI官网教程http://npoi.codeplex.com/SourceControl/latest 导出 导出分两种情况：本地Excel文件导出的话直接导出就ok了，但是一般是从<em>数据</em>库读取数
- 如何把图片导出到excel文件中的疑问??对于导出操作哪种更好?
- 最近遇到个问题..导出Excel的问题向大家请教. 有2个问题: 第1: 目前把<em>数据</em>导出Excel,据我所知.大致可以分为2种吧. 第1种:使用微软提供的组件. 第2种:用流方式画一个table的格式
- asp直接生成excel文件
- <em>asp</em>直接生成<em>excel</em>文件,文件不存放在服务器上
- oracle中如何把查询结果导出到excel里面？
- 如题 请高手指点
- 将查询结果导出到EXCEL文件中
- 各位高人,有劳请教:rnrn已知条件: C#+SQL2005rnrn通过执行 select * from tttmp,rn得到<em>结果</em>并生成 dataset,rn那么如何将dataset中的记录导<em>出到</em>EXCEL文件中去?rn注意字段个数是可变的,不能用模板.rnrn谢谢rn
- Repeater查询结果导出到Excel文件遇到的问题
- 正常<em>查询</em>出<em>结果</em>导出Excel没有问题，但是加一个过滤条件再导出，<em>结果</em>导出的文件里还是所有记录。。怎么才能导出按条件<em>查询</em>的<em>结果</em>到Excel文件中去呢？rnrnRepeater绑定代码rnrn[code=csharp]rnrn protected void btnSearch_Click(object sender, EventArgs e)rn rn var result = from threads in context.tb_threadinfo select threads;rnrn if (!string.IsNullOrEmpty(txtTitle.Text.Trim()))rn rn result = result.Where(p => p.Title.Contains(txtTitle.Text.Trim()));rn rnrn rptList.DataSource = result;rn rptList.DataBind(); rn rn[/code]
- 怎么样将query查询结果导出到EXCEL里
- 本人做了一个小应用程序,想把query的<em>查询</em><em>结果</em>导入<em>excel</em>进行打印输出.rn请哪位好心人指导一下,应如何导<em>出到</em>EXCEL里.rn 急待回应.
- 将查询结果导出到excel中的方法？
- 各位大哥、大姐帮帮小弟，我要实现将不同的<em>查询</em><em>结果</em>导<em>出到</em><em>excel</em>中的方法？要求在同一个工作簿中，将<em>查询</em><em>结果</em>顺序放到工作簿中。
- 用ASP将数据读数导出EXCEL文件的四种方法
- 本文摘自http://www.new<em>asp</em>.net/tech/<em>asp</em>/17421.html作者序：这类知识点，在网上有很多，在此本人只是做一个总结。 一、用OWC 什么是OWC？ OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供 了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在
- asp生成excel
- <em>asp</em>当中利用程序将<em>数据</em>生成<em>excel</em>文件xls。
- Asp将查询结果导出到excel里
- 是Office的OWC版本问题。2000，2002XP，2003各不相同，加入Office的版本检查即可，完整代码如下： function exportExcel(atblData,dirPath){ //alert(dirPath);if (typeof(atblData)=="undefined"||typeof(atblData)=="unknow") { ale
- ASP网站:如何实现从SQL数据库表中导出数据到Excel
- 我想做一个功能就是要隔一段时间把my<em>sql</em><em>数据</em>表中的<em>数据</em>导<em>出到</em>一个Excel文件中. 要求:1.定时; 2.<em>数据</em>来自客户信息的<em>数据</em>表,经过处理后再保存到Excel文件中; 3.Excel文件必须是动态
- asp导出Excel,导入Excel到MSSQL
- 使用ASP调用方法和MSSQL过程,导入导出EXCEL
- MySQL查询结果导出到文件
- 选择某些行作为需要的<em>数据</em> SELECT id,dbname FROM `index` into outfile "d://aaa.txt"; 一般大家都会用 “SELECT INTO OUTFIL”将<em>查询</em><em>结果</em>导<em>出到</em>文件，但是这种方法不能覆盖或者添加到已经创建的文件，下文为您介绍的这种方法则很好地解决了此问题。 一般大家都会用 “SELECT INTO OUTFIL”将<em>查询</em>...
- Linux下简单GDB调试教程下载
- •file 装入想要调试的可执行文件. •kill 终止正在调试的程序. •list 列出产生执行文件的源代码的一部分. •next 执行一行源代码但不进入函数内部. •step 执行一行源代码而且进入函数内部. •run 执行当前被调试的程序 •break 在代码里设置断点, 这将使程序执行到这里时被挂起. •c 继续运行程序 •quit 终止gdb •watch 使你能监视一个变量的值而不管它何时被改变. •print 查看变量的值 •shell 使你能不离开gdb就执行UNIX shell 命令 相关下载链接：[url=//download.csdn.net/download/yuanxingyang/3577947?utm_source=bbsseo]//download.csdn.net/download/yuanxingyang/3577947?utm_source=bbsseo[/url]
- librariandb 图书管理下载
- 基于php+mysql 图书管理web系统 需在ubuntu下管理 图书管理web系统 相关下载链接：[url=//download.csdn.net/download/u010017303/5176336?utm_source=bbsseo]//download.csdn.net/download/u010017303/5176336?utm_source=bbsseo[/url]
- VC++计算器下载
- 该资源使用VC++的MFC进行开发，实现了计算器的连加、练减、连乘、连除，以及开放运算，并对错误的数据输入有屏蔽功能。 相关下载链接：[url=//download.csdn.net/download/jisuanjitiancai/6770551?utm_source=bbsseo]//download.csdn.net/download/jisuanjitiancai/6770551?utm_source=bbsseo[/url]
我们是很有底线的