Text文件类型在很多软件中都为一般应用程序与数据库之间架起一座桥梁。你可以使用TextISAM驱动程序和SQL来把Text文件转换成AccessMDB数据库文件,首先,为文本文件创建一个SCHEMA.INI文件。然后,你可以使用下面的代码来实现转换:
DimdbAsDatabase,tblasTableDef
Setdb=DBEngine.CreateDatabase(App.Path&"mymdb.mdb",dbLangGeneral,dbVersion_0)
Settbl=db.CreateTableDef("Temp")
tbl.Connect="Text;database=c:vbpjdata"
tbl.SourceTableName="Customer#txt"
db.TableDefs.Appendtbl
db.Execute"SelectTemp.*intoNewTablefromTemp"
db.TableDefs.Deletetbl.Name
db.Close
Settbl=Nothing
Setdb=Nothing->