易语言mdb数据库加记录前判断是否存在怎么搞

Question

如题所述

Answer 1

.版本 2

.支持库 eDB

.子程序 添加数据

.参数 ID, 文本型

.参数 用户名, 文本型

.参数 命令2, 文本型

命令2 ＝ “要添加的数据 比如是 用户名”

数据库连接1.连接Access (取运行目录 () ＋ “/数据库.mdb”, “”)

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

记录集1.打开 (“用户”, #数据表名, #服务器端游标)

记录集1.到首记录 ()

.循环判断首 ()

    记录集1.读文本 (“ID”, ID)

    记录集1.读文本 (“用户名”, 用户名)

    .判断开始 (用户名 ＝ 命令2)

        信息框 (“已有这条记录”, 0, )

        跳出循环 ()

    .默认

    .判断结束

    记录集1.到下一条 ()

.循环判断尾 (ID ≠ “”)

.判断开始 (用户名 ＝ “”)

    记录集1.到尾记录 ()

    记录集1.添加 ()

    记录集1.写文本 (“用户名”, 命令2)

.默认

Answer 2

.版本 2

全局_sql ＝ “select * from 总数据库模块 where 批次号='” ＋ 编辑框1.内容 ＋ “'”

全局_数据库_句柄 ＝ 全局_数据库.查询 (全局_sql)

.如果真 (全局_数据库.首记录前 (全局_数据库_句柄) ＝ 假)

信息框 (“此批次在库存中!”, 64, , )

返回 ()