数据库学习之学生成绩读写无模块

.如果真 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data.mdb”, , , , ))
记录集句柄 ＝ 外部数据库1.查询 (“select * from 学生资料表 ”)
.如果 (记录集句柄 ＝ 0)
信息框 (“查询好友资料失败！”, 0, )
.否则
外部数据库1.到首记录 (记录集句柄)
.如果 (数据库连接1.连接Access (取运行目录 () ＋ “\data.mdb”, “”) ＝ 真)
.如果 (记录集1.置连接 (数据库连接1) ＝ 真)
记录集1.打开 (“学生资料表”, #数据表名)
记录集1.到首记录 ()
信息框 (“数据库连接成功！”, 0, )
.否则
信息框 (“记录集连接失败！”, 0, )
.如果结束
返回 ()
.否则

.如果结束

.如果结束

.如果真结束
信息框 (“数据库连接失败！”, 0, )