标题：[分享]回复pc_doctor：access导出为excel的sql命令

select * into [Excel 8.0;database=导出Excel文件].Excel中的工作簿 from 导出表

说明：
导出Excel文件: 例：c:\documents\xldata.xls 可是绝对或相对路径

Excel中的工作簿：sheet1

谢谢哦！

本sQL语言能实现access导出为excel,只要灵活运用编程，即可动态导出数据，

请各星友实践，

大家可比较公司新出的构件，其实完全可以达到同样效果；

个人认为，只要对搭建编程有一定基础，同时基本掌握SQL语言，

即可应对多数数据库应用项目；建议各位到Access的相关论坛看看，可解决很多问题！！！！！！！！

同时轻松一大半

我一直使用SQL来导出数据为EXCEL文件,有了单独的构件应该方便一些了.不过许多功能使用SQL可以更灵活的实现.

这是我查询了很多资料才找到的，你或者论坛中很早就有人知道，可没人愿意发表出来，真的很悲哀，

如果人人都这样，星和者怎么能进步？

可否说明怎样压缩修复access数据库，用SQL语言

如果搭建之星能够让用户自己填加构件(即使像者那样作为公用件使用)肯定会得到更大的发展!

以下内容含脚本,或可能导致页面不正常的代码
<FONT size=+1><STRONG>如何使用 ADO 來压缩或修复 MS Access 文件？(jro的使用)</STRONG></FONT> [code]&lt;SCRIPT language=javascript&gt; function addtitle(){ var straddtitle = "如何使用 ADO 來压缩或修复 MS Access 文件？(jro的使用)"; if (straddtitle.length!==0){ document.title=document.title + "《" + straddtitle + "》；专题号：71FAB71E"; } } </SCRIPT> 作者：cg1 摘自：<a href="http://access911.net/" target="_blank" >access911.net</A> <a href="http://access911.net/admin/article_edit.asp?recordid=71FAB71E" target="_blank" >编</A><a href="http://access911.net/index.asp?u1=bbs&amp;u2=71FAB61E" target="_blank" >辑</A>：cg1 更新日期：2002-11-19 浏览人次： 2126 <TABLE> <TR> <TD> <H1>专题地址：</H1> <FONT style="FONT-SIZE: 10pt; COLOR: black">http://access911.net/?kbid;71FAB71E</FONT> </TD></TR> <TR> <TD> <DIV class=div1> <H1>简述：</H1>如何使用 ADO 來压缩或修复 MS Access 文件？(jro的使用)《其他》 </DIV> <DIV class=div1> <H1>阅读前需掌握：</H1></DIV> <DIV class=div1> <H1>难度等级：</H1> <SCRIPT language=javascript src="/rewrite.asp?mode=writelevel&amp;l=0"> &lt;/script&gt;[/code] 等级未评定</DIV> </TD></TR></TABLE> <TABLE> <TR> <TD width="100%"> <FONT style="FONT-WEIGHT: bolder; FONT-SIZE: 10pt; COLOR: black">问题：</FONT> <DIV> <TABLE width="100%"> <TR> <TD width=22></TD> <TD width=*>如何使用 ADO 來压缩或修复 Microsoft Access 文件？</TD></TR></TABLE></DIV> <FONT style="FONT-WEIGHT: bolder; FONT-SIZE: 10pt; COLOR: black">回答：</FONT> <DIV> <TABLE width="100%"> <TR> <TD width=22></TD> <TD width=*> 以前使用 DAO 时，Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件，RepairDatabase Method 來修复损坏的 Microsoft Access 文件，。可是自从 ADO 出来之后，好像忘了提供相对的压缩及修复 Microsoft Access 文件的功能。 现在 Microsoft 发现了这个问题了，也提供了解决方法，不过有版本上的限制！限制说明如下： <FONT style="COLOR: red">ActiveX Data Objects (ADO), version 2.1 Microsoft OLE DB Provider for Jet, version 4.0</FONT> 这是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and Replication Objects (JRO) 这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！ 这些必要的 DLL 文件在您安裝了 MDAC 2.1 之后就有了，您可以在以下的网页中下载 MDAC 的最新版本！ Universal Data Access Web Site 在下载之前先到 VBE 界面中检查一下，【引用】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！ 在您安裝了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 来压缩或修复 Microsoft Access 文件，下面的步骤告诉您如何使用 CompactDatabase Method 来压缩 Microsoft Access 文件： 1、新建一个新表单，选择 VBE 中【引用】。 2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。 3、在适当的地方加入以下的程序代码，记得要修改 data source 的內容及目地文件的路径： <TABLE 100%" cellSpacing=1 cellPadding=5> <TR> <TD #81a9e8 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #81a9e8 1px solid; MARGIN-TOP: 0px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; BORDER-LEFT: #81a9e8 1px solid; COLOR: #00284d; PADDING-TOP: 10px; BORDER-BOTTOM: #81a9e8 1px solid; BACKGROUND-COLOR: #f2f2f2; TEXT-DECORATION: none" width="100%">Dim jro As jro.JetEngine Set jro = New jro.JetEngine Dim strS as String dim strT as String strS="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb" strT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4" jro.CompactDatabase strS,strT '第一个参数是源文件，第二个是目的文件，另外，请注意type的版本</TD></TR></TABLE> 在 DAO 3.60 之后，RepairDatabase Method 已经无法使用了，以上的程序代码显示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 时的 RepairDatabase method！ 如果你的数据库加过密码，只需要更改 strS strT 这两个 JET DB 的连接字串即可。以下文章详细叙述了各种加密方式下的连接字串： 关于jet db的连接字串，以及加密后的字串《ADO/DAO/ADO.NET》 <a href="http://access911.net/index.asp?u1=a&amp;u2=72FABF1E10DC" target="_blank" >http://access911.net/index.asp?u1=a&amp;u2=72FABF1E10DC</A> </TD></TR></TABLE></DIV> <FONT style="FONT-WEIGHT: bolder; FONT-SIZE: 10pt; COLOR: black">附注：</FONT> <DIV> <TABLE width="100%"> <TR> <TD width=22></TD> <TD width=*> 1、出现错误提示（不能执行这项操作；在低版本的数据库中该版本的特性不可用。）是因为版本号与你的数据库格式不符，请看下面的对照表 引擎版本号 Jet OLEDB:Engine Type -&gt; Jet x.x Format MDB Files 1 -&gt; JET10 2 -&gt; JET11 3 -&gt; JET2X 4 -&gt; JET3X 5 -&gt; JET4X 2、其他的压缩修复数据库的对象以及方法： <a href="http://support.microsoft.com/default.aspx?scid=kb;zh-cn;240434" target="_blank" >http://support.microsoft.com/default.aspx?scid=kb;zh-cn;240434</A> 虽然有时可以成功地打开某些损坏的数据库，但由于索引或表行已损坏，因此数据访问速度要慢很多。可以运行 Microsoft Access 开发环境中的“修复和压缩数据库”实用程序来修复损坏的数据库。编程时，您可以使用 Jet and Replication Objects (JRO) 的CompactDatabase 方法、Jet OLE DB 提供程序的IJetCompact::Compact 方法，或 Data Access Objects (DAO) 的CDaoDatabase::CompactDatabase 方法，来实现此目的。 </TD></TR></TABLE></DIV> <FONT style="FONT-WEIGHT: bolder; FONT-SIZE: 10pt; COLOR: black">方法二：</FONT> <DIV> <TABLE width="100%"> <TR> <TD width=22></TD> <TD width=*>Delphi代码(未验证) <TABLE 100%" cellSpacing=1 cellPadding=5> <TR> <TD #81a9e8 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #81a9e8 1px solid; MARGIN-TOP: 0px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; BORDER-LEFT: #81a9e8 1px solid; COLOR: #00284d; PADDING-TOP: 10px; BORDER-BOTTOM: #81a9e8 1px solid; BACKGROUND-COLOR: #f2f2f2; TEXT-DECORATION: none" width="100%">//uses ComObj,ActiveX const SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database Password=%s;'; function GetTempPathFileName():string; var SPath,SFile:array [0..254] of char; begin GetTempPath(254,SPath); GetTempFileName(SPath,'~SM',0,SFile); result:=SFile; DeleteFile(result); end; function CompactDatabase(AFileName,APassWord:string):boolean; //压缩与修复数据库,覆盖源文件 var STempFileName:string; vJE:OleVariant; begin STempFileName:=GetTempPathFileName; try vJE:=CreateOleObject('JRO.JetEngine'); vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]), format(SConnectionString,[STempFileName,APassWord])); result:=CopyFile(PChar(STempFileName),PChar(AFileName),false); DeleteFile(STempFileName); except result:=false; end; end; </TD></TR></TABLE> </TD></TR></TABLE></DIV> <FONT style="FONT-WEIGHT: bolder; FONT-SIZE: 10pt; COLOR: black">方法三：</FONT> <DIV> <TABLE width="100%"> <TR> <TD width=22></TD> <TD width=*> VC请参考： <a href="http://support.microsoft.com/default.aspx?scid=kb;EN-US;230496" target="_blank" >http://support.microsoft.com/default.aspx?scid=kb;EN-US;230496</A> <a href="http://support.microsoft.com/?id=230501" target="_blank" >http://support.microsoft.com/?id=230501</A> </TD></TR></TABLE></DIV> </TD></TR></TABLE>
说明：上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.

希望公司能够参考相关资料,开发出压缩功能构件.