Temptation

寻道之路 , 与您同行 !
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  319 随笔 :: 0 文章 :: 170 评论 :: 3 Trackbacks
【转】 asp.net数据导出EXCEL
/**//*--数据导出EXCEL
导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件
如果文件不存在,将自动创建文件
如果表不存在,将自动创建表
基于通用性考虑,仅支持导出标准数据类型
--邹建 2003.10(引用请保留此信息)--*/
/**//*--调用示例
p_exporttb @sqlstr='select * from 地区资料'
   ,@path='c:',@fname='aa.xls',@sheetname='地区资料'
--*/
create proc p_exporttb
@sqlstr varchar(8000),   --查询语句,如果查询语句中使用了order by ,请加上top 100 percent
@path nvarchar(1000),   --文件存放目录
@fname nvarchar(250),   --文件名
@sheetname varchar(250)=''  --要创建的工作表名,默认为文件名
as 
declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int
declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)

--参数检测
if isnull(@fname,'')='' set @fname='temp.xls'
if isnull(@sheetname,'')='' set @sheetname=replace(@fname,'.','#')

--检查文件是否已经存在
if right(@path,1)<>'' set @path=@path+''
create table #tb(a bit,b bit,c bit)
set @sql=@path+@fname
insert into #tb exec master..xp_fileexist @sql

--数据库创建语句
set @sql=@path+@fname
if exists(select 1 from #tb where a=1)
set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'
       +';CREATE_DB="'+@sql+'";DBQ='+@sql
else
set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES'
    +';DATABASE='+@sql+'"'

--连接数据库
exec @err=sp_oacreate 'adodb.connection',@obj out
if @err<>0 goto lberr

exec @err=sp_oamethod @obj,'open',null,@constr
if @err<>0 goto lberr

--创建表的SQL
declare @tbname sysname
set @tbname='##tmp_'+convert(varchar(38),newid())
set @sql='select * into ['+@tbname+'] from('+@sqlstr+') a'
exec(@sql)

select @sql='',@fdlist=''
select @fdlist=@fdlist+',['+a.name+']'
,@sql=@sql+',['+a.name+'] '
  +case 
    when b.name like '%char' 
    then case when a.length>255 then 'memo'
    else 'text('+cast(a.length as varchar)+')' end
    when b.name like '%int' or b.name='bit' then 'int'
    when b.name like '%datetime' then 'datetime'
    when b.name like '%money' then 'money'
    when b.name like '%text' then 'memo'
   else b.name end
FROM tempdb..syscolumns a left join tempdb..systypes b on a.xtype=b.xusertype
where b.name not in('image','uniqueidentifier','sql_variant','varbinary','binary','timestamp')
and a.id=(select id from tempdb..sysobjects where name=@tbname)

if @@rowcount=0 return

select @sql='create table ['+@sheetname
+']('+substring(@sql,2,8000)+')'
,@fdlist=substring(@fdlist,2,8000)

exec @err=sp_oamethod @obj,'execute',@out out,@sql
if @err<>0 goto lberr

exec @err=sp_oadestroy @obj

--导入数据
set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES
    ;DATABASE='+@path+@fname+''',['+@sheetname+'$])'

exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from ['+@tbname+']')

set @sql='drop table ['+@tbname+']'
exec(@sql)
return

lberr:
exec sp_oageterrorinfo 0,@src out,@desc out
lbexit:
select cast(@err as varbinary(4)) as 错误号
   ,@src as 错误源,@desc as 错误描述
select @sql,@constr,@fdlist
go

4.--在.net中导出到Excel的简单实例.
(1).添加引用Microsoft Excel 11.0 Object Library (在COM中)
(2).在web.config的上<system.web>里加
<identity impersonate="true"/> 
//此句为了使用户能在本地打开文档，identify属性规定了身份验证的模式，一般情况下为false，这样安全性较高
(3).在Text.aspx上加Button1控件
(4).在cs页面添加 using Microsoft.Office.Interop.Excel;
(5).添加单击事件,在这里处理将数据库中的数据导入excel,代码如下: 
//定义方法GetData(),返回一个数据表 
private System.Data.DataTable GetData() 
{ 
    SqlConnection conn= new SqlConnection(@"Server=XJIE;Initial Catalog=Northwind;Uid=sa;Pwd=xjie;"); 
    SqlDataAdapter adapter= new SqlDataAdapter("select   CompanyName 用户名,ContactTitle 联系主题,Address 住宅地址,ContactName 联系人,Phone 电话,City 城市 from Customers order by CustomerID desc",conn); 
    DataSet ds= new DataSet(); 
    
    try
    {
        adapter.Fill(ds,"Customer"); 
    }
    catch(Exception ex) 
    {
        MessageBox.Show(ex.ToString()); 
    }
    return ds.Tables[0]; 
}

private void Button1_Click(object sender, System.EventArgs e) 
{
    Application excel= new Application(); 
    int rowIndex=1; 
    int colIndex=0; 
    
    excel.Application.Workbooks.Add(true); 
    
    DataTable table=GetData(); 

    //将所得到的表的列名,赋值给单元格 
    foreach(DataColumn col in table.Columns)
    {
        colIndex++;
        excel.Cells[1,colIndex]=col.ColumnName;
    }
    
    //同样方法处理数据 
    foreach(DataRow row in table.Rows) 
    { 
        rowIndex++; 
        colIndex=0; 
           foreach(DataColumn col in table.Columns) 
        {
            colIndex++; 
            excel.Cells[rowIndex,colIndex]=row[col.ColumnName].ToString(); 
        }
    } 
    //不可见,即后台处理 
    excel.Visible=true; 
}
posted on 2008-04-09 17:02 temptation 阅读(179) 评论(0)  编辑 收藏 所属分类: ASP.Net 开发(C#)

标题  
姓名  
主页
Email (只有博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
 
另存  打印
最新IT新闻:
· 腾讯CEO马化腾:中国互联网业准备再过冬
· F8 Keynote Speech[多图]
· 奥运核心资源被分食 搜狐央视网谁忽悠谁？
· 微软推新型搜索技术"BrowseRank"挑战谷歌
· 2008年7月26日IT博客精选
博客园新闻频道  博客园首页  社区