ASP.NET 2.0中直接将Access数据库导入到Excel文件中
点击次数：28 次 发布日期：2008-11-26 11:51:05 作者：源代码网
|
源代码网推荐 源代码网推荐 下面例子就是实现这个功能，例子中的数据库使用《ASP.NET 2.0应用开发技术》一书中自带的数据库为例子。 源代码网推荐 源代码网推荐 另外，需要注意：Excel文件有诸多限制，在如果数据库记录内容很多，还要计算每次导出的数量和Sheet数目，另外，对Sheet名字相同的监测也省略了，需要的读者请根据情况自行添加上去。结合存储过程的分页功能实现起来比较好。 源代码网推荐 源代码网推荐 源代码网推荐 C#： 源代码网推荐 源代码网推荐 <%@ Page Language="C#" %> 源代码网推荐 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 源代码网推荐 <script runat="server"> 源代码网推荐 protected void Button1_Click(object sender, EventArgs e) 源代码网推荐 { 源代码网推荐 string sql; 源代码网推荐 string connstr = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|ASPNET20Book.mdb;Persist Security Info=True"; 源代码网推荐 System.Data.OleDb.OleDbConnection cn = new System.Data.OleDb.OleDbConnection(connstr); 源代码网推荐 System.Data.OleDb.OleDbCommand cmd; 源代码网推荐 cn.Open(); 源代码网推荐 源代码网推荐 //先得到记录数目： 源代码网推荐 sql = "select Count(*) From Paging"; 源代码网推荐 cmd = new System.Data.OleDb.OleDbCommand(sql, cn); 源代码网推荐 int RecordCount = (int)cmd.ExecuteScalar(); 源代码网推荐 源代码网推荐 // TODO：计算Sheet数目，进行记录分段，将不同的数据段导入到不同的Sheet（Sheet数目不知道有没有限制：（） 源代码网推荐 // TODO：文件名，Sheet名字的存在检测略 源代码网推荐 源代码网推荐 //每个Sheet只能最多保存65536条记录。 源代码网推荐 sql = @"select top 65535 * into [Excel 8.0;database=" + Server.MapPath(".") + @"ASPNET20Book.xls].[Sheet1] from Paging"; 源代码网推荐 cmd = new System.Data.OleDb.OleDbCommand(sql, cn); 源代码网推荐 cmd.ExecuteNonQuery(); 源代码网推荐 cn.Close(); 源代码网推荐 cn.Dispose(); 源代码网推荐 cn = null; 源代码网推荐 } 源代码网推荐 </script> 源代码网推荐 源代码网推荐 <html xmlns="http://www.w3.org/1999/xhtml"> 源代码网推荐 <head runat="server"> 源代码网推荐 <title>直接将Access数据库导入到Excel文件</title> 源代码网推荐 </head> 源代码网推荐 <body> 源代码网推荐 <form id="form1" runat="server"> 源代码网推荐 <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="到处数据" /> 源代码网推荐 </form> 源代码网推荐 </body> 源代码网推荐 </html> 源代码网推荐 VB.NET 源代码网推荐 源代码网推荐 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 源代码网推荐 Dim sql As String 源代码网推荐 Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|ASPNET20Book.mdb;Persist Security Info=True" 源代码网推荐 Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(connstr) 源代码网推荐 Dim cmd As System.Data.OleDb.OleDbCommand 源代码网推荐 cn.Open 源代码网推荐 sql = "select Count(*) From Paging" 源代码网推荐 cmd = New System.Data.OleDb.OleDbCommand(sql, cn) 源代码网推荐 Dim RecordCount As Integer = CType(cmd.ExecuteScalar, Integer) 源代码网推荐 sql = "select top 65535 * into [Excel 8.0;database=" + Server.MapPath(".") + "ASPNET20Book.xls].[Sheet1] from Paging" 源代码网推荐 cmd = New System.Data.OleDb.OleDbCommand(sql, cn) 源代码网推荐 cmd.ExecuteNonQuery 源代码网推荐 cn.Close 源代码网推荐 cn.Dispose 源代码网推荐 cn = Nothing 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
