建立、改变及重构Access数据库

vb提供的Datamanager对于开发者来说并不是一个强大的工具。对于那些没有安装access数据库的人来说，在开发过程中构建、更改或重建数据库以及加载/重新加载表单是很痛苦的。另外，datamanager不能让我们打印数据库的结构。

我们先编个小程序实现以上功能，等项目做完再丢弃。

首先，您可以使用逗号分隔的文本文件来存储表结构，例如下面的人员表。

lpersonid，long，，人的id
spersonfirstname，text，20，人的名字
spersonlastname，text，20，人的姓氏
bisafunperson，boolean，，邀请参加聚会？
itypeofjob，integer，，0 =无1 =手动2 = office 3 =程序员等。
iage，integer，，人的年龄

该表有六列，每行一行。在每一行中，以下项目由逗号分隔:字段名称、字段类型、字段长度(如果不是字符字段，请保留空，仅由逗号分隔)和字段描述。如果希望在字段描述中使用逗号，可以使用制表符而不是逗号来分隔各项
。

通用程序可以读取这些文件，并基于它们建立数据库。这种方法和一些通用的导入导出程序一起使用，可以大大加快程序的开发速度。例如，您不能在dm中删除一个表的列，但是您可以通过删除csv文件中的列定义，然后重新运行构建数据库的程序来轻松地做到这一点。

如果想打印出数据库的结构，方法也很简单:用excel读取csv文件，粘贴到word中，这样就可以打印出整个数据库的结构。

下面是程序代码:

Create table (s database name为string，scsvfilename为string，
stable name为string)
dim itemp为integer
'将控制权交还给操作系统，以便它可以在创建数据库的同时运行其他程序——不要让您的计算机闲置！
itemp = doevents()
'创建300x3数组
redimstables (300，3)as string
dimsdatatypeline as string。

读取csv文件并将字段定义保存在数组中
调用ReadTableDefinition(scsvfilename，tables())

dim TBL as new tabledef
dim fld as field

打开数据库
dim db persons as database
set db persons = open database(sdatabasename &"。MDB”，真)

记下新的表单名称
tbl.name = stablename。

添加第一个字段
set fld = new field
fld . name = tables(1，1)
fld . type = get field type((tables(1，2)))
fld . size = val(stables(1，3))
TBL . fields . append fld
db persons . tabledefs . append TBL

添加其他字段
diminextcol作为整数
Inextcol = 1
do while true
set fld = new field
Inextcol = Inextcol+1
' Exit
iftables(Inextcol，1) = "* * * end * * * "然后
Exit do
end if
fld . name