据库连接1.连接Access (取运行目录 () + “数据库名称”, “没数据库密码时为空”)。
记录集1.置连接 (数据库连接1)。
记录集1.打开 (“SELECT * FROM 数据库表名”, #SQL语句, )。
记录集1.添加 ()。
记录集1.写文本 (“姓名”, 编辑框_姓名.内容)。
记录集1.写文本 (“身份z号”, 编辑框_身份z号.内容)。
记录集1.更新 ()。
记录集1.关闭 ()。
数据库连接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)
.默认
个人觉得表内的排序没有意义,在程序调用时执行order by ID 更直观.正向排序 “select * from 表名 order by ID asc”
反向排序 “select * from 表名 order by ID desc”
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)