以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从后台筛选数据再选部分导出 到excel 中的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120272)

--  作者:yiningyl
--  发布时间:2018/6/11 16:46:00
--  从后台筛选数据再选部分导出 到excel 中的问题

我想从后台筛选数据导出 到excel 中,我只写出了 导出满足条件的全部数据,但是因为数据量大,要是筛选出的数据太多,一次性导出, 怕系统崩溃(100万+数据),所以想给两个文本框 ,比如让用户输入 从 a1  条 到a2 条,限制用户一次性导出的量, 这个代码应该怎么写啊? 老师们帮帮忙。

Dim Book As New XLS.Book(ProjectPath & "Attachments\\list.xls")
Dim fl As String = ProjectPath & "Reports\\信息列表.xls"
 
Dim a1,a2 As Integer
a1=CInt(e.Form.Controls("rows1").value )

a2=CInt(e.Form.Controls("rows2").value )


book.AddDataTable("xxb","xxb","S e l e c t * from xxb where " &  filter)    \'filter 是前面已经得到值的全局代码过滤条件

Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()


 


--  作者:有点甜
--  发布时间:2018/6/11 16:49:00
--  

回复楼上,你用的是sqlserver数据库吧?

 

分页的sql语句,参考这里 http://www.foxtable.com/webhelp/scr/2721.htm

 


--  作者:yiningyl
--  发布时间:2018/6/12 10:02:00
--  

是的,我用的是sql server 2008 ,我研究下老师给的链接,谢谢。


--  作者:有点甜
--  发布时间:2018/6/12 10:04:00
--  

在这里测试生成的sql语句 http://www.foxtable.com/webhelp/scr/1484.htm

 

如果报错,贴出出错提示。