Text转换为AccessMDB
图老师设计创意栏目是一个分享最好最实用的教程的社区,我们拥有最用心的各种教程,今天就给大家分享Text转换为AccessMDB的教程,热爱PS的朋友们快点看过来吧!
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->