当前位置:编程学习 > asp >>

asp中如何将数据库的内容导出到word?

补充:我要用代码实现 asp。net 语言是vb 谢谢各位大虾了
答案:
这个我做过,用asp的话,效率很低,慢得要死~~~而且很容易脚本超时。 

后来我是用vb6.0写的dll,然后在asp中调用的。
不知道搂住的服务器可不可以安装dll???

下面是asp中的代码
=====================================================
Set rs2=Server.CreateObject("ADODB.recordset")
sql="select * from eq where eqbumen='"&dep&"' order by eqbumen desc"
rs2.open sql,conn,1,1
set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open(server.mappath("\test")&"\book1.xlt") '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
num=2 '从Excel的第2行开始
Do while not rs2.eof '循环直至数据集中的数据写完
strRange="b"&num&":k"&num '设定要填写内容的单元区域
sheetActive.range(strRange).font.size=10 '设定字体大小
sheetActive.range(strRange).WrapText=false '设定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小
sheetActive.range(strRange).value=array(rs2("zcid"),rs2("eqname"),rs2("eqchangjia"),rs2("eqxinghao"),rs2("eqnengli"),rs2("eqweizhi"),rs2("eqxianzhuang"),rs2("eqno"),rs2("eqbumen"),rs2("eqchejian")) '把数据集中的数据填写到相应的单元中
num=num+1
rs2.MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function
set myFs=createObject("scripting.FileSystemObject")
filePos=server.mappath("\test")&"\temp" '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
'myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename
objExcel.quit
set objExcel=Nothing
如果你使用的是 SQLSERVER 那么对着你的数据库点右键 有导出的选项 按照向导 操作 选择你导出的类型就ok了 
写一个js,我回去找一下
function AllAreaWord()
{
var oWD = new ActiveXObject("Word.Application");
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
//window.close();
}
到华军软件天地找找看
如果你使用的是 SQLSERVER 那么对着你的数据库点右键 有导出的选项 按照向导 操作 选择你导出的类型就ok了 
答案补充
如果你使用的是 SQLSERVER 那么对着你的数据库点右键 有导出的选项 按照向导 操作 选择你导出的类型就ok了

上一个:使用asp.net导出word的小问题
下一个:JSP与ASP相比哪个应用更广点

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,