b/s。数据库数据导出数据到excel问题？

Question

bs数据库数据导出数据到excel问题？由于数据量很大。而且是多个数据源。比较耗费时间。想找个高效的方法。用isapi写个导出数据到excel文件。请各位大虾帮帮忙。谢谢只要解决问题，分数。我可以再开贴加。

Answer 1

Dim i As Integer
        Dim j As Integer
        Dim sqtjzhi As String = ""
        '权限判断
        If m01 = "7" Then '只有权限到社区的时候才提示要随访的人数
            sqtjzhi = "  and x.sq=" & m02 & " and jd='" + ljd + "'"
            'sql = "select  x.name,case x.H_bzid when 'wz_tjxx_zh_djb.aspx'  then 'tj/wz_tjxx_zh_djb.aspx' when '../hebeitj/hb_tjxx_djb.aspx' then 'hebeitj/hb_tjxx_djb.aspx' when '../wsbxm/tjxx_hch.aspx' then 'wsbxm/tjxx_hch.aspx' end as H_bzid,d.presj  ,d.nextsj,d.bz,d.jcid,d.Avgsbp,d.Avgdbp from ddsf d left  join xyjcb x on d.jcid=x.id where    d.nextsj<='" & Now.ToShortDateString.ToString & " '   and x.status=0  " & sqtjzhi & "  order by  d.nextsj"
            sql = "select  x.name,d.Avgsbp,d.Avgdbp,convert(varchar(10),d.presj,121) as presj  ,d.nextsj from ddsf d left  join xyjcb x on d.jcid=x.id where    d.nextsj<='" & Today.AddDays(14).ToString & " '   and x.status=0  " & sqtjzhi & " " + strssrq + "  order by  d.nextsj"            Dim adapter As New SqlDataAdapter(sql, con)
            Dim ds As New DataSet
            adapter.Fill(ds)
            mydatagrid.DataSource = ds.Tables(0)
            mydatagrid.DataBind()
            Response.ContentType = "application/vnd.ms-excel"
            Response.Charset = ""
            Me.EnableViewState = False            Dim objSW As New System.IO.StringWriter
            Dim objHTW As New System.Web.UI.HtmlTextWriter(objSW)
            mydatagrid.RenderControl(objHTW)
            Response.Write(objSW.ToString)
            Response.End()
            'Response.AddHeader("content-disposition", "attachment;filename=myfile.xls")           
        End If

Answer 2

    protected void Page_Load(object sender, EventArgs e)
    {
        string FileName = DateTime.Today.ToString("yyyyMMdd") + "_ExportData_" + System.Guid.NewGuid().ToString().Substring(0, 5)+".xls";
        if (Request.QueryString["id"] == null)
        {
            MyHelper.JavaScript.CloseCurrentForm();
            return;
        }        DataTable dt = MyHelper.StoredProcedure.FillDataTable("ExportListByID",
            new SqlParameter("@id", Request.QueryString["id"]));
        
        Response.Clear();
        Response.Buffer = true;        Response.Charset = "GB2312";
        Response.ContentType = "application/vnd.ms-excel";
        Response.ContentEncoding = Encoding.GetEncoding("gb2312");
        Response.AppendHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(FileName, Encoding.GetEncoding("gb2312")).ToString());
        this.EnableViewState = false;
        StringWriter sw = new StringWriter();
        HtmlTextWriter htw = new HtmlTextWriter(sw);
        GridView gv = new GridView();
        gv.DataSource = dt;
        gv.DataBind();
        gv.RenderControl(htw);
        Response.Write(sw.ToString());
        Response.End();
    }

Answer 3

最讨厌写html，客户打开会有提示
刚好帮我测试一下别人的开源代码，纯二进制操作Excel
http://myxls.in2bits.org/
我试过还不错，就看大数据量了
不设font时，打开的Excel会有小提示

Answer 4

xcx573哄小孩!您好
您能给我发一份吗？[email protected]

Answer 5

xcx573哄小孩!您好 
您说的这个执行效率可以吗？

Answer 6

http://sourceforge.net/project/showfiles.php?group_id=205384&package_id=245371

Answer 7

xcx573哄小孩!您好 
这个找不到合并列。