让我们编一个小程序实现上述功能，然后工程结束后把它抛弃.
首先可以用一个以逗号分隔的文本文件来储存表结构，如下面这个人员表。
lPersonID,Long,,personsID
sPersonFirstName,Text,20,personsfirstname
sPersonLastName,Text,20,personslastname
bIsAFunPerson,Boolean,,invitetoaparty?
iTypeOfJob,Integer,,0=None1=Manual2=Office3=programmeretc.
iAge,Integer,,personsage
该表有六列，每列独占一行。每行中用逗号分隔下列各项：字段名．字段类型．字段长度（如果不是字符型字段，就留空，仅用逗号分隔）及字段描述。如果你想在字段描述中使用逗号，你可以不用逗号分隔各项，
换成Tab分隔。
一个通用程序能读取这些文件并根据它们建立起数据库。这种方法，连同一些通用的导入／导出程序能大大加快程序开发的速度。举例来说，你不能在DM中删除一个表的一列，但通过删除CSV文件中对一列的定义，然后重新运行构建数据库的程序，你就能轻松做到这一点。
如果你想打印出数据库的结构，方法也很简单：用Excel读CSV文件，再将其粘贴到Word中，这样你就可以打印出整个数据库的结构了。
下面是程序代码：
SubCreateTable(sDatabaseNameAsString,sCSVFileNameAsString,
sTableNameAsString)
DimiTempAsInteger
将控制权交还给操作系统，使其在创建数据库的同时能运行其它程序－别让你的计算机闲着！
iTemp=DoEvents()
创建一个300X3数组
ReDimsTables(300,3)AsString
DimsDataTypeLineAsString
读取CSV文件，并将字段定义保存在数组中
CallReadTableDefinition(sCSVFileName,sTables())
DimtblAsNewTableDef
DimfldAsField
打开数据库
DimdbPersonsAsdatabase
SetdbPersons=OpenDatabase(sDatabaseName&".MDB",True)
记录下新的表单名
tbl.Name=sTableName
增添第一个字段
Setfld=NewField
fld.Name=sTables(1,1)
fld.Type=GetFieldType((sTables(1,2)))
fld.Size=Val(sTables(1,3))
tbl.Fields.Appendfld
dbPersons.TableDefs.Appendtbl
增加其它的字段
DimiNextColAsInteger
iNextCol=1
DoWhileTrue
Setfld=NewField
iNextCol=iNextCol 1
到了表定义的底部则退出
IfsTables(iNextCol,1)="***END***"Then
ExitDo
EndIf
fld.Name=s->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
