在实际的开发应用中，数据库导入导出是经常遇到的问题，尤其是数据库与Excel文件之间的导入导出，还存在数据类型不一致的问题。例如：数据库的数字超长时会在Excel里格式化成科学计数法的格式，或者记录内容是数字和字符的混合内容会丢失内容等等。将Access数据库的内容直接导入到Excel则可以避免这些问题。
下面例子就是实现这个功能，例子中的数据库使用《ASP.NET 2.0应用开发技术》一书中自带的数据库为例子。
另外，需要注意：Excel文件有诸多限制，在如果数据库记录内容很多，还要计算每次导出的数量和Sheet数目，另外，对Sheet名字相同的监测也省略了，需要的读者请根据情况自行添加上去。结合存储过程的分页功能实现起来比较好。
C#：
<![CDATA[<FONT size=2><%@ Page Language="C#" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional</FONT>]]><![CDATA[<FONT size=2> //EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>直接将Access数据库导入到Excel文件</title>
</head>
<body>
<form id="form1" runat="server">
<XMP> OnClick="Button1_Click" Text="到处数据" />
</form>
</body>
</html></FONT>]]> |
VB.NET：
<![CDATA[<FONT size=2>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 </FONT>]]><![CDATA[<FONT size=2> Source=|DataDirectory|\ASPNET20Book.mdb;Persist Security Info=True"
Dim cn As System.Data.OleDb.OleDbConnection = </FONT>]]><![CDATA[<FONT size=2> 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=" + </FONT>]]><![CDATA[<FONT size=2> 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</FONT>]]> |
