VB 资料导出

在很多 VB 的资料库书籍中，都会很完整的提到：如何由其他种类的文件中将资料导入资料库，但是却很少有书提到：如何将资料库中的资料，导出到各种不同的文件类型的文件中，连 VB 的 Help 中也是这样！
或许是大家都认为资料库主题的重点是在资料库本身吧！
但是，在实际的资料库程序运用中，却常常需要将资料库导出到各种不同的文件类型的文件中，这些文件可能是 DBase文件、文字文件 (.Txt)、Excel 文件、Html 文件、Access 文件或其他类型的资料库文件 (ODBC)...等。
在本专题中，考虑到并不是每一个人都有 Oracle 或 SQL Server 的环境，为了让大家都能够实作，我们将以 Access 资料库来作练习，而练习的文件也使用 VB 本身提供的 Biblio.mdb (位于各版本 VB 的目录下)。
预计要练习导出的文件类型有五种：DBase文件、文字文件 (.Txt)、Html 文件、Excel 文件、Access 文件。除了这五种之外，下面的语法可以将资料库之资料导出到任一种 VB 支援的资料库或文件中。
在练习之前，要将导出文件的 SQL 语法先说明一下：
SELECT Table.Fields INTO [dbms type;DATABASE=path].[unqualified filename] from [Table or Tables]
SELECT Table.Fields INTO [资料库种类;DATABASE=资料库路径].[资料库文件名称] from [Table or Tables]
至于【资料库种类】及【资料库路径】，视资料库或文件类型之不同而异，详见【注一】。
如果上面说的都清楚了，那我们要开始这一个练习了！
在 Form 上放置一个 CommandButton，在【专案】【设定引用项目】中加入 Microsoft DAO 3.51
Object Library，我们将使用 Biblio.mdb 的 authors Table，在 Command1_Click
中加入以下程序码：
Dim db As Database
Set db = Workspaces(0).OpenDatabase(App.Path & "\biblio.mdb")
'db.execute "SELECT Table.Fields INTO [dbms type;DATABASE=path].[unqualified filename] from [Table or Tables]"
在以上程序中，db.execute 指令行之指令依资料库或文件的种类说明如下：
一、DBase文件
SQL 语法：SELECT * INTO [dBase III;DATABASE=资料库路径].[dbase文件名称] from [authors]
db.Execute "SELECT * INTO [dBase III;DATABASE=C:\test].[authors.DBF] from [authors]"
注意事项：
1、authors.DBF 事先不可存在，否则会产生错误！
2、若您没有 Dbase，您可以使用 Access 来连结这个 Table，以便观察结果！
二、文本文件