在實際的開發應用中，數據庫導入導出是經常碰到的問題，尤其是數據庫與Excel文件之間的導入導出，還存在數據類型不一致的問題。例如：數據庫的數字超長時會在Excel裡格式化成科學計數法的格式，或者記錄內容是數字和字符的混合內容會丟失內容等等。
將Access數據庫的內容直接導入到Excel則可以避免這些問題。
下面例子就是實現這個功能，例子中的數據庫使用《ASP.Net2.0應用開發技術》一書中自帶的數據庫為例子。
另外，需要注重：Excel文件有諸多限制，在假如數據庫記錄內容很多，還要計算每次導出的數量和Sheet數目，另外，對Sheet名字相同的監測也省略了，需要的讀者請根據情況自行添加上去。結合存儲過程的分頁功能實現起來比較好。
C#
<@PageLanguage="C#">
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xHtml1-transitional.dtd">
<scriptrunat="server">
protectedvoidButton1_Click(objectsender,EventArgse)
{
stringsql;
stringconnstr=@"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=|DataDirectory|ASPNET20Book.mdb;PersistSecurityInfo=True";
System.Data.OleDb.OleDbConnectioncn=newSystem.Data.OleDb.OleDbConnection(connstr);
System.Data.OleDb.OleDbCommandcmd;
cn.Open();
//先得到記錄數目：
sql="selectCount(*)FromPaging";
cmd=newSystem.Data.OleDb.OleDbCommand(sql,cn);
intRecordCount=(int)cmd.ExecuteScalar();
//TODO：計算Sheet數目，進行記錄分段，將不同的數據段導入到不同的Sheet（Sheet數目不知道有沒有限制：（）
//TODO：文件名，Sheet名字的存在檢測略
//每個Sheet只能最多保存65536條記錄。
sql=@"selecttop65535*into[Excel8.0;database=" Server.MapPath(".") @"ASPNET20Book.xls].[Sheet1]fromPaging";
cmd=newSystem.Data.OleDb.OleDbCommand(sql,cn);
cmd.ExecuteNonQuery();
cn.Close();
cn.Dispose();
cn=null;
}
</script>
<htmlXMLns="http://www.w3.org/1999/xHtml">
<headrunat="server">
<title>直接將Access數據庫導入到Excel文件</title>
</head>
<body>
<formrunat="server">
<ASP:Buttonrunat="server"Text="到處數據"/>
</form>
</body>
</Html>
VB.Net
ProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsEventArgs)
DimsqlAsString
DimconnstrAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=|DataDirectory|ASPNET20Book.mdb;PersistSecurityInfo=True"
DimcnAsSystem.Data.OleDb.OleDbConnection=NewSystem.Data.OleDb.OleDbConnection(connstr)
DimcmdAsSystem.Data.OleDb.OleDbCommand
cn.Open
sql="selectCount(*)FromPaging"
cmd=NewSystem.Data.OleDb.OleDbCommand(sql,cn)
DimRecordCountAsInteger=CType(cmd.ExecuteScalar,Integer)
sql="selecttop65535*into[Excel8.0;database=" Server.MapPath(".") "ASPNET20Book.xls].[Sheet1]fromPaging"
cmd=NewSystem.Data.OleDb.OleDbCommand(sql,cn)
cmd.ExecuteNonQuery
cn.Close
cn.Dispose
cn=Nothing
EndSub
