2024年6月11日发(作者：)

如何给易语言数据库中添加或删除新字段呢?

首先, 我们在菜单栏选择中选择数据库. 然后向数据库中添加一些新字段.

添加的字段:

此时,我们的数据库已经新建好了,为了效果明显,我们在数据库中添加几条记录.

用于演示效果. 如图所示

下面,我们开始讲解添加字段的原理.

1. 我们先打开要添加字段的数据库,将其中的字段信息存入一个数组中, 数组类

型为字段信息.

.版本 2

.如果真 (打开 (编辑框路径.内容, “人员信息”, , , , , ) ＝ 假)

信息框 (“打开数据库失败”, 0, , )

返回 ()

.如果真结束

重定义数组 (原始字段信息, 假, 取字段数 () ＋ 1)

.计次循环首 (取字段数 (), i)

原始字段信息 [i].名称 ＝ 取字段名 (i)

原始字段信息 [i].类型 ＝ 取字段类型 (i)

原始字段信息 [i].最大文本长度 ＝ 取字段尺寸 (i)

.计次循环尾 ()

原始字段信息 [取字段数 () ＋ 1].名称 ＝ 编辑框字段.内容

原始字段信息 [取字段数 () ＋ 1].类型 ＝ #文本型

原始字段信息 [取字段数 () ＋ 1].最大文本长度 ＝ 20

关闭 (“人员信息”)

2. 我们再次以禁止读写的方式打开原始数据库. 并创建一个新的临时数据库.字

段信息为我们刚才读取的字段信息数组(包含要添加的新字段).

.版本 2

.如果真 (打开 (编辑框路径.内容, “人员信息”, , #禁止读写, , , ) ＝ 假)

信息框 (“打开数据库失败->” ＋ 取错误信息 (), 0, , )

返回 ()

.如果真结束

.如果真 (创建 (取运行目录 () ＋ “”, 原始字段信息) ＝ 假)

信息框 (“创建数据库失败->” ＋ 取错误信息 (), 0, , )

关闭 (“人员信息”)

返回 ()

.如果真结束

.如果真 (打开 (取运行目录 () ＋ “”, “Temp”, , #禁止读

写, , , ) ＝ 假)

信息框 (“打开数据库失败->” ＋ 取错误信息 (), 0, , )

关闭 (“人员信息”)

返回 ()

3. 打开新创建的临时数据库后,我们调用添加命令去向新建的临时数据库中添

加原始数据库中的所有记录. 并将2个数据库全部关闭.

.版本 2

.如果真 (添加 (“人员信息”, , ) ＝ 假)

信息框 (“添加数据失败->” ＋ 取错误信息 (), 0, , )

关闭 (“Temp”)

关闭 (“人员信息”)

返回 ()

.如果真结束

关闭 (“Temp”)

关闭 (“人员信息”)

4. 原始数据库的删除与替换.

.版本 2

.如果真 (删除文件 (编辑框路径.内容) ＝ 假)

信息框 (“删除文件失败”, 0, , )

返回 ()

.如果真结束

.如果真 (文件更名 (取运行目录 () ＋ “”, 编辑框路径.内容)

＝ 假)

信息框 (“文件更名失败”, 0, , )

返回 ()

.如果真结束

信息框 (“添加字段成功”, 0, , )

至此,我们向edb数据库中添加新字段的功能已经实现.下面是演示效果图.

删除字段原理与添加字段原理一样. 都是先读取要添加的字段信息->建临时数据

库->数据拷贝->文件更名替换.

经亲测, 这种添加/删除字段的方式,其百万条记录3秒之内即可添加完毕.