将不同类型的ADO数据源导出到Excel(解决方案)

主 题：		将不同类型的ADO数据源导出到Excel(解决方案)
作 者：		sas_razor (散步的水)
等 级：
信 誉 分：		100
人 气：		154
所属社区：		C++ Builder 数据库及相关技术
问题点数：		0
回复次数：		0
发表时间：		2006-8-15 10:35:34

这个问题我在网上找了好久,也问了好多人,大家粘出了一些delphi的代码,但试验都没成功.今天从MSDN上看到一篇文章,"How To Transfer Data from ADO Data Source to Excel with ADO",出处:http://support.microsoft.com/kb/295646/EN-US/ 文章提供了三种方法导出,但经本人试验,只有第三种方法可以在BCB中运用.三种方法如下:
**复制
You can use the SELECT INTO statement to copy data from any data source that Jet can read into any data destination, creating a new table (or, in the case of Excel, a new worksheet) on the fly. Do not use the dollar sign syntax(不要使用$符标注工作薄), for example [Sheet1$], when you refer to a sheet name as your destination. The destination workbook can exist or not exist; however, the destination sheet must not yet exist.

There are three ways to write the copy command that copies the entire Customers table from the Microsoft Access Northwind database into a new sheet in an Excel workbook. Each syntax requires a single SQL statement and creates column headings in the first row of the destination worksheet.
---------------------------------------------------------
The following example uses the SELECT INTO syntax:Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
"/book1.xls].[Sheet1] FROM Customers"
cnSrc.Execute strSQL
------------------------------
The following example uses the SELECT INTO ... IN syntax: strSQL = "SELECT * INTO [Sheet1] IN '' [Excel 8.0;Database=" & App.Path & _
"/book1.xls] FROM Customers"

--------------------------------------
where the bracketed destination database information is preceded by an empty pair of single quotes for the type argument (the "Excel 8.0" portion), which is included within the brackets when you use this syntax.
• The following example uses the alternate syntax for the IN clause: strSQL = "SELECT * INTO [Sheet1] IN '" & App.Path & _
"/book1.xls' 'Excel 8.0;' FROM Customers"

------------------------------------------

不知道为什么前两种不行.

** 追加
How to Append
You can use the INSERT INTO ... IN statement to append data from any data source that Jet can read into any data destination. Both the destination workbook and worksheet must exist. Now that you are referring to an existing worksheet, you must use the standard dollar sign syntax(必须使用$符标注工作薄), for example, [Sheet1$], when you refer to a sheet name as your destination. In addition, the column headings must already be present; in other words, this statement can only be used to append to an existing table.

There are two ways to write the append command that copies the entire Customers table from the Northwind database into an existing Excel worksheet, which already has the appropriate column headings. • The following example uses the SELECT INTO ... IN syntax: strSQL = "INSERT INTO [Sheet1$] IN '' [Excel 8.0;Database=" & App.Path & _
"/book1.xls] SELECT * FROM Customers"

where the bracketed destination database information is again preceded by an empty pair of quotes for the type argument, which is now included within the brackets.
• The following example uses the alternate syntax for the IN clause:
strSQL = "INSERT INTO [Sheet1$] IN '" & App.Path & _
"/book1.xls' 'Excel 8.0;' SELECT * FROM Customers"
追加也是第二种才行.

总之问题解决了,与大家分享下.
能导出excel的话,dbf,txt的应该都没有问题了.