外部数据库的名称为:外部数据库1
.版本 2
.局部变量 索引, 整数型
外部数据库1.打开MDB数据库 (取运行目录 () + “\123.mdb”, , , , )
索引 = 外部数据库1.查询 (“select user from 123”)
.如果 (索引 ≠ 0)
外部数据库1.到首记录 (索引)
.判断循环首 (外部数据库1.尾记录后 (索引) = 假)
.如果真 (到文本 (外部数据库1.读 (索引, 1)) = “123456”)
信息框 (“用户存在”, 0, )
返回 ()
.如果真结束
外部数据库1.到后一记录 (索引)
.判断循环尾 ()
.否则
信息框 (“查询失败”, 0, )
返回 ()
.如果结束
信息框 (“用户不存在”, 0, )
能行就给分吧!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)