MDB文件的導出-使用DAO

2019-11-18 17:48:59

字體：大中小

來源：轉載

供稿：網友

在很多VB的MDB文件書籍中，都會很完整的提到：如何由其他種類的文件中將資料導入MDB文件，但是卻很少有書提到：如何將MDB文件中的資料，導出到各種不同的文件類型的文件中，連VB的Help中也是這樣！

或許是大家都認為MDB文件主題的重點是在MDB文件本身吧！

但是，在實際的MDB文件程式運用中，卻常常需要將MDB文件導出到各種不同的文件類型的文件中，這些文件可能是DBase文件、文本文件(.Txt)、Excel文件、Html文件、access文件或其他類型的MDB文件文件(ODBC)...等。

在本主題中，考慮到並不是每一個人都有Oracle或SQLServer的環境，為了讓大家都能夠實行，我們將以AccessMDB文件來作練習，而練習的文件也使用VB本身提供的Biblio.mdb(位于各版本VB的目錄下)。

預計要練習導出的文件類型有五種：DBase文件、文本文件(.Txt)、Html文件、Excel文件、Access文件。除了這五種之外，下面的命令可以將MDB文件導出到任一種VB支持的MDB文件或文件中。

在練習之前，要將導出文件的SQL命令先說明一下：

SELECTTable.FieldsINTO[dbmstype;DATABASE=path].[unqualifiedfilename]FROM[TableorTables]
SELECTTable.FieldsINTO[MDB文件種類;DATABASE=MDB文件路徑].[MDB文件文件名稱]FROM[TableorTables]

至于【MDB文件種類】及【MDB文件路徑】，視MDB文件或文件類型之不同而異，詳見【注一】。
如果上面說的都清楚了，那我們要開始這一個練習了！

在Form上放置一個CommandButton，加入MicrosoftDAO3.51ObjectLibrary，我們將使用Biblio.mdb的authorsTable，在Command1_Click中加入以下程序代碼：

DimdbAsDatabase
Setdb=Workspaces(0).OpenDatabase(App.Path&"/biblio.mdb")
'db.execute"SELECTTable.FieldsINTO[dbmstype;DATABASE=path].[unqualifiedfilename]FROM[TableorTables]"

在以上程式中，db.execute指令行之指令依MDB文件或文件的種類說明如下：

一、DBase文件

SQL命令：SELECT*INTO[dBaseIII;DATABASE=MDB文件路徑].[dbase文件名稱]FROM[authors]
db.Execute"SELECT*INTO[dBaseIII;DATABASE=C:/test].[authors.DBF]FROM[authors]"
注意事項：
1、authors.DBF事先不可存在，否則會產生錯誤！
2、若您沒有Dbase，您可以使用Access來連結這個Table，以便觀察結果！

二、文本文件(.Txt)

SQL命令：SELECT*INTO[Text;DATABASE=文本文件路徑].[文本文件名稱]FROM[authors]
db.Execute"SELECT*INTO[Text;DATABASE=C:/test].[authors.TXT]FROM[authors]"
注意事項：
1、authors.TXT事先不可存在，否則會產生錯誤！
2、此命令會產生的文件有二個，第一個就是文本文件authors.TXT，第二個是Schema.ini。
3、文本文件之格式為CSV之文件格式，以逗點分開，實際呈現方式如下：

　　"Au_ID","Author","YearBorn"
　　1,"Jacobs,Russell",1950
　　2,"Metzger,Phil
四、Excel文件

SQL命令：SELECT*INTO[Excel8.0;DATABASE=文件路徑檔名].[工作表名稱]FROM[authors]
db.Execute"SELECT*INTO[Excel8.0;DATABASE=C:/test/authors.XLS].[authors]FROM[authors]"
注意事項：
1、authors.XLS可事先存在，也可以不存在，會自動產生一個。
2、工作表authors事先不可存在，否則會產生錯誤！

五、Access文件

SQL命令：SELECT*INTO[新MDB文件路徑檔名][新表名稱]FROM[authors]
'導出到同一MDB文件(新Table為authors1)
'新Tableauthors1事先不可存在，否則會產生錯誤！
db.Execute"SELECT*INTO[authors1]FROM[authors]"
'導出到不同的MDB文件(新MDB文件為db1，新Table為authors)
'新MDB文件db1事先必須存在，否則會產生錯誤！
'但是其中新Tableauthors事先不可存在，否則會產生錯誤！
db.Execute"SELECT*INTO[C:/test/db1.mdb].[authors]FROM[authors]"

注一：各種可能的MDB文件種類Connect屬性設定方式：

MDB文件種類MDB文件宣告方式MDB文件路徑(或加上檔名)
MicrosoftJetDatabase[database];drive:/path/filename.mdb
dBASEIIIdBASEIII;drive:/path
dBASEIVdBASEIV;drive:/path
dBASE5dBASE5.0;drive:/path
Paradox3.xParadox3.x;drive:/path
Paradox4.xParadox4.x;drive:/path
Paradox5.xParadox5.x;drive:/path
MicrosoftFox PRo2.0FoxPro2.0;drive:/path
MicrosoftFoxPro2.5FoxPro2.5;drive:/path
MicrosoftFoxPro2.6->

上一篇：SQL的基本操作（1.數據類型）

下一篇：用VB6讀寫數據庫中的圖片