知识大全 ASP.NET中数据库数据导入Excel并打印

Posted

篇首语:天下之事常成于困约,而败于奢靡。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 ASP.NET中数据库数据导入Excel并打印相关的知识,希望对你有一定的参考价值。

ASP.NET中数据库数据导入Excel并打印  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

  众所周知 WEB上的打印是比较困难的 常见的WEB上打印的方法大概有三种      直接利用IE的打印功能 一般来说 这种方法可以做些扩展 而不是单单的调用javascript:print()这样简单 比如 可以使用如下代码     <OBJECT  id=WebBrowser classid=CLSID: F A D A B C FD A height= width= >  </OBJECT>  <input  type=button value=打印 onclick=document all WebBrowser ExecWB( )>  <input  type=button value=直接打印 onclick=document all WebBrowser ExecWB( )>  <input  type=button value=页面设置 onclick=document all WebBrowser ExecWB( )>  <input  type=button value=打印预览 onclick=document all WebBrowser ExecWB( )>    这种方法可以适用于简单的数据打印 对系统要求不高 但不足之处在于可以控制的能力比较差 比如处理分页等问题      利用水晶报表或其他第三方工具 如微软的Reporting service 水晶报表或其他第三方控件的打印 一般是导出到Excel WORD PDF等再进行打印的 效果比较好 但编程比较复杂 控制起来也不大方便 而且这些工具都是要收费的      将数据库的数据或要打印的内容导出到Excel Word中去打印 使用这种方法 可以在服务端或者客户端进行 在服务端使用的话 要求服务端要安装Word Excel 在客户端使用的话 要求客户端在IE的安全设置上有一定要求 使用这种方法 可适应性比较强 控制较好 本文将以在ASP NET中使用Excel为例子 介绍如何将数据导出到Excel的几种方法     首先 先介绍在服务端使用Excel的方法 要在服务器端使用Excel 必须要求服务器端安装Excel 并且要求一定的访问权限 比如 需要添加<identity impersonate= true />到nfig中 在本文中 要给予WEB目录可写的权限     接下来 使用VS NET 新建一个VB NET的工程 并添加引用 由于我们要使用的是Excel 所以添加一个关于的应用 这里添加的是Microsoft Excel Object Library 之后 添加的代码如下     Imports System Runtime InteropServices Marshal  Imports Office  Private Sub Page_Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load   以方式处理Excel  Dim oExcel As New Excel Application  Dim oBooks As Excel Workbooks oBook As Excel Workbook  Dim oSheets As Excel Sheets oSheet As Excel Worksheet  Dim oCells As Excel Range  Dim sFile As String sTemplate As String   定义一个datatable  Dim dt As DataTable = CType(Application Item( MyDataTable ) DataTable)    sFile = Server MapPath(Request ApplicationPath) & \\MyExcel xls    定义模版文件  sTemplate = Server MapPath(Request ApplicationPath) & \\MyTemplate xls   oExcel Visible = False  oExcel DisplayAlerts = False   定义一个新的工作簿  oBooks = oExcel Workbooks  oBooks Open(Server MapPath(Request ApplicationPath) & \\MyTemplate xls ) oBook = oBooks Item( )  oSheets = oBook Worksheets  oSheet = CType(oSheets Item( ) Excel Worksheet)     命名该sheet  oSheet Name = First Sheet   oCells = oSheet Cells   调用dumpdata过程 将数据导入到Excel中去  DumpData(dt oCells)   保存  oSheet SaveAs(sFile)  oBook Close()     退出Excel 并且释放调用的资源  oExcel Quit()  ReleaseComObject(oCells) : ReleaseComObject(oSheet)  ReleaseComObject(oSheets) : ReleaseComObject(oBook)  ReleaseComObject(oBooks) : ReleaseComObject(oExcel)  oExcel = Nothing : oBooks = Nothing : oBook = Nothing  oSheets = Nothing : oSheet = Nothing : oCells = Nothing  System GC Collect()  Response Redirect(sFile)  End Sub     将DATATABLE的内容导出到Excel的单元格中去  Private Function DumpData(ByVal dt As DataTable ByVal oCells As Excel Range) As String  Dim dr As DataRow ary() As Object  Dim iRow As Integer iCol As Integer     输出列标题  For iCol = To dt Columns Count   oCells( iCol + ) = dt Columns(iCol) ToString  Next     将数据导出到相应的单元格  For iRow = To dt Rows Count   dr = dt Rows Item(iRow)  ary = dr ItemArray  For iCol = To UBound(ary)  oCells(iRow + iCol + ) = ary(iCol) ToString  Response Write(ary(iCol) ToString & vbTab)  Next  Next  End Function  End Class    在上面的代码中 首先 先定义了一些关于Excel的对象 如application workbook sheets sheet等 这些都是在使用Excel的对象时 必不可少的 之后 我们事先先定义了一个Excel的模版文件 并且用Excel先打开这个模版文件 再调用一个自定义的过程dumpdata 在这个自定义的过程中 将datatable中的数据 逐一导入到Excel的单元格中去 读者自己可以慢慢体会下 上面的代码中 是如何将datatable中的数据导出到Excel中去的 程序运行后 可以在当前的工作目录下 生成名为myExcel xls的Excel文件 如下图      大家可能觉得上面的代码比较复杂 因为上面对于对打印要求比较高的应用 是十分有效的 如果只是单单对数据进行导出 还可以使用简单的格式 比如使用以下的代码     Private Sub Page_Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load  Dim dt As DataTable = CType(Application Item( MyDataTable ) DataTable)    Response ContentType = application/ms Excel     Response AddHeader( Content Disposition inline;filename=test xls )    Response Write(ConvertDtToTDF(dt))  End Sub    Private Function ConvertDtToTDF(ByVal dt As DataTable) As String  Dim dr As DataRow ary() As Object i As Integer  Dim iCol As Integer     输出列标题  For iCol = To dt Columns Count   Response Write(dt Columns(iCol) ToString & vbTab)  Next  Response Write(vbCrLf)     输出数据  For Each dr In dt Rows  ary = dr ItemArray  For i = To UBound(ary)  Response Write(ary(i) ToString & vbTab)  Next  Response Write(vbCrLf)  Next  End Function  End Class    在上面的代码中 首先将浏览器的输出类型设置为application/ms Excel 并设置Excel的输出类型是在浏览器中输出 默认的名字为test xls 之后 将调用自定义的过程 该自定义的过程将一个datatable里的数据以字符串流的形式输出 其中每个datatable里的数据之间以TAB制表符分隔 最后再输出到浏览器 输出效果如下图      上面的这种方法 表现的形式比较简单 但也可以满足数据导出的基本要求 那如果要进一步修饰一下的话 要如何做呢?这里提供一个方法 可以将要导出的数据先绑定到datagrid 然后再打印该datagrid 这时就可以对要打印出来的datagrid进行格式化 设置datagrid的format等属性 代码如下     Protected Overrides Sub Render(ByVal writer As System Web UI HtmlTextWriter)  Dim dt As DataTable = CType(Application Item( MyDataTable ) DataTable)    Response ContentType = application/ms Excel     Response AddHeader( Content Disposition inline;filename=test xls )    DataGrid DataSource = dt  DataGrid DataBind()  DataGrid RenderControl(writer)  End Sub    打印出来的效果如下图     如果要转到Word里面打印的话 也同样可以用上面的方法 只需要将其中的代码改成     Response ContentType = application/ms word   Response AddHeader( Content Disposition inline;filename=test doc )    最后 来看一下 如何调用客户端的Excel进行打印 就是让客户一点击 打印 的按钮 就可以自动打开客户端的Excel 将要打印的内容导入 要实现这样的效果 必须要求客户端的IE浏览器设置中 在其中的 安全 本地Intranet 自定义级别中 将 下载未签名ACTIVX 中设置为启动或提示 代码如下     <script language= vbscript >  Sub exportbutton_onclick  Dim sHTML oExcel oBook  SHTML = em( DataGrid ) outer  Set oExcel = CreateObject( Excel Application )  Set oBook = oExcel Workbooks Add  oBook HTMLProject HTMLProjectItems( Sheet ) Text = sHTML  oBook HTMLProject cha138/Article/program/net/201311/13741

相关参考

知识大全 ASP.NET实现类似Excel的数据透视表

ASP.NET实现类似Excel的数据透视表  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  数据

知识大全 ASP.NET导出数据到Excel的实现方法

ASP.NET导出数据到Excel的实现方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!在做as

知识大全 asp.net导入excel转为datatable

  前台代码  <asp:FileUploadrunat=serverID=fupFilesWidth=px/>excel表名<asp:TextBoxID=txtSheetrunat

知识大全 导入Excel电子表格数据到SQL Sever数据库的方法

导入Excel电子表格数据到SQLSever数据库的方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下

知识大全 用POI将Mysql数据导入到Excel中去

用POI将Mysql数据导入到Excel中去  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  在我

知识大全 设计模

  近段要实现一个上传excel文件到服务器并把excel文件的数据导入到数据库表中的功能   excel文件有两种格式对应数据库两张表我先实现了其中一种excel格式式

知识大全 oracle数据库如何导出并重新导入

oracle数据库导出并重新导入 一导出数据库?将数据库TEST完全导出用户名scott密码tiger导出到D:\\testDBdmp中[plain]expscott/tiger@TESTf

知识大全 ASP.NET中上传文件到数据库

ASP.NET中上传文件到数据库  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  一介绍  为什么

知识大全 如何根据excel中指定条件自动生成另一个工作表

如何根据excel中指定条件自动生成另一个工作表表一做成数据基础表,表二等于表一的数据加上公式,这样你在表一写数据表二就能跳出数据了。用VB写还可以实现导入功能,直接导入数据表,然后生成表二。在exc

知识大全 ASP.NET中防止Access数据库下载

ASP.NET中防止Access数据库下载  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  如何防