Text转换为AccessMDB
2006-02-27 11:46:15 来源:WEB开发网核心提示:Text文件类型在很多软件中都为一般应用程序与数据库之间架起一座桥梁,你可以使用TextISAM驱动程序和SQL来把Text文件转换成accessMDB数据库文件,Text转换为AccessMDB,首先,为文本文件创建一个SCHEMA.INI文件
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:\vbpj\data"
tbl.SourceTableName="Customer#txt"
db.TableDefs.Appendtbl
db.Execute"SelectTemp.*intoNewTablefromTemp"
db.TableDefs.Deletetbl.Name
db.Close
Settbl=Nothing
Setdb=Nothing->
DimdbAsDatabase,tblasTableDef
Setdb=DBEngine.CreateDatabase(App.Path&"\mymdb.mdb",dbLangGeneral,dbVersion_0)
Settbl=db.CreateTableDef("Temp")
tbl.Connect="Text;database=c:\vbpj\data"
tbl.SourceTableName="Customer#txt"
db.TableDefs.Appendtbl
db.Execute"SelectTemp.*intoNewTablefromTemp"
db.TableDefs.Deletetbl.Name
db.Close
Settbl=Nothing
Setdb=Nothing->
更多精彩
赞助商链接