Text 文件類型在很多軟件中都為一般應用程序與數據庫之間架起一座橋梁。你可以使用 Text ISAM 驅動程序和 SQL 來把 Text 文件轉換成 Access MDB 數據庫文件,首先,為文本文件創建一個 SCHEMA.INI 文件。然后,你可以使用下面的代碼來實現轉換: Dim db As Database, tbl as TableDef Set db = DBEngine.CreateDatabase(App.Path & "/mymdb.mdb", dbLangGeneral, dbVersion_0) Set tbl = db.CreateTableDef("Temp") tbl.Connect = "Text;database=c:\vbpj\data" tbl.SourceTableName = "Customer#txt" db.TableDefs.Append tbl db.Execute "Select Temp.* into NewTable from Temp" db.TableDefs.Delete tbl.Name db.Close Set tbl = Nothing Set db = Nothing
|