发信人: unishine()
整理人: cobe(2000-02-12 23:59:55), 站内信件
|
Text 转换为 Access MDB
Text 文件类型在很多软件中都为一般应用程序与数据库之间架起一座桥梁。你可
以使用 Text ISAM 驱动程序和 SQL 来把 Text 文件转换成 Access MDB 数据库
文件，首先，为文本文件创建一个 SCHEMA.INI 文件。然后，你可以使用下面的
代码来实现转换：
Dim db As Database, tbl as TableDef
Set db = DBEngine.CreateDatabase(App.Path & "\mymdb.mdb", dbLangGenera
l, 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
--
黑夜给了我一双黑色的眼睛
我却用它来寻找光明
残冬给了我一身残缺的翅膀
我却用它来追求完美
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.133.195]
|
|