易语言数据库修改和删除

删除 () ' 在要删除的数据上做删除记号，在批量删除时好用 调用格式： 〈逻辑型〉 删除 （［条件语句型 记录范围］） - 系统核心支持库->数据库

英文名称：delete

标记删除当前数据库中的当前记录或者指定范围内的记录，当前记录指针位置保持不变。注意：此命令并不实际删除记录，仅仅只加上删除标记，记录依旧存在并可以读写。成功返回真，失败返回假。本命令为初级命令。

参数<1>的名称为“记录范围”，类型为“条件语句型（statment）”，可以被省略。如果本参数被省略，默认为删除或恢复删除当前记录，否则删除或恢复删除所有满足此条件的记录。如果欲删除或恢复删除全部记录，请直接将逻辑值“真”赋予本参数。 *** 作系统需求： Windows

彻底删除 () ' 这个才是真正意义上的删除 调用格式： 〈逻辑型〉 彻底删除 （） - 系统核心支持库->数据库

英文名称：pack

将当前数据库中所有被加上删除标记的记录从数据库中彻底清除，当前记录指针位置将被移动到数据库首记录。记录被彻底删除后将不复存在，并且无法恢复。注意执行本命令将重组数据库记录，因此速度比较慢。成功返回真，失败返回假。本命令为初级命令。 *** 作系统需求： Windows

就是SQL语句，利用数据库连接1和记录集就可以了

.版本 2

.支持库 eDB

.如果真 (数据库连接1.连接Access (取运行目录 () ＋ “\MDB.mdb”, “”) ＝ 假)

    信息框 (“连接数据库失败！”, 0, )

    返回 ()

.如果真结束

记录集1.置连接 (数据库连接1)

.版本 2

.支持库 eDB

sql ＝ “insert into 通讯表(姓名,电话,地址) values ('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “')”

.如果 (_启动窗口.数据库连接1.执行SQL (sql) ＝ 假)

    信息框 (“添加记录失败！”, 0, )

.版本 2

.支持库 iext

.支持库 eDB

临时 ＝ “update 通讯表 set 姓名='” ＋ 编辑框1.内容 ＋ “',电话='” ＋ 编辑框3.内容 ＋ “',地址='” ＋ 编辑框2.内容 ＋ “' where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

.如果 (_启动窗口.数据库连接1.执行SQL (临时) ＝ 假)

    信息框 (“更改数据失败”, 0, )

    编辑框2.内容 ＝ 临时

.版本 2

.支持库 iext

.支持库 eDB

SQL ＝ “delete from 通讯表 where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

.如果 (_启动窗口.数据库连接1.执行SQL (SQL) ＝ 假)

    信息框 (“删除数据失败！@”, 0, )

.否则

---