全面的Access数据库操作

.如果真 (寻找文本 (SQL编辑框.内容, “select”, 1, 假) ＞ 0)
记录集句柄 ＝ 外部数据库1.查询 (SQL编辑框.内容)
' select语句由“查询（）”命令执行
.如果 (记录集句柄 ≠ 0)
信息框 (“祝贺，您输入的SQL命令已被成功执行！” ＋ #换行符 ＋ “请使用‘查看前一记录’‘查看后一记录’‘首记录’‘尾记录’四个按钮浏览。” ＋ “也可以用Microsoft Access打开MSAccess.mdb数据库文件，以验证是否已改动到物理数据库。”, 0, “好样的！”)
外部数据库1.重新查询 (记录集句柄) ' 数据库被改动之后，需及时更新记录集。
' 上一行等同于：记录集句柄 ＝ 外部数据库1.查询 (“select * from books”)
' 查询或重新查询之后，当前记录指针指向表中第一个记录。
读取并显示当前记录 ()
.否则
信息框 (“执行失败！” ＋ #换行符 ＋ #换行符 ＋ “请检查是否已连接到数据库，SQL语句中是否有错误的语法、表名或字段名称。”, #错误图标, )
.如果结束
返回 ()
.如果真结束
.如果真 (寻找文本 (SQL编辑框.内容, “delete”, 1, 假) ＞ 0)
.如果真 (信息框 (“真的要删除记录吗？”, #询问图标 ＋ #确认取消钮, ) ＝ #取消钮)
返回 ()
.如果真结束

.如果真结束

.如果 (外部数据库1.执行 (SQL编辑框.内容) ＝ 假)
' 非select语言由“执行（）”命令执行
信息框 (“执行失败！” ＋ #换行符 ＋ #换行符 ＋ “请检查是否已连接到数据库，SQL语句中是否有错误的语法、表名或字段名称。”, #错误图标, , )
.否则
' 如果语句执行成功，则下面对于不同的语句给出不同的输出信息。
.如果 (寻找文本 (SQL编辑框.内容, “create”, 1, 假) ＞ 0 或 寻找文本 (SQL编辑框.内容, “drop”, 1, 假) ＞ 0 或 寻找文本 (SQL编辑框.内容, “elovers”, 1, 假) ＞ 0)
信息框 (“祝贺，您输入的SQL命令已被成功执行！” ＋ #换行符 ＋ “要查看本命令的执行结果，请用Microsoft Access打开MSAccess.mdb数据库文件，以验证是否已改动到物理数据库。”, 0, )
.否则
信息框 (“祝贺，您输入的SQL命令已被成功执行！” ＋ #换行符 ＋ “请使用‘查看前一记录’‘查看后一记录’‘首记录’‘尾记录’四个按钮浏览。” ＋ “也可以用Microsoft Access打开MSAccess.mdb数据库文件，以验证是否已改动到物理数据库。”, 0, “好样的！”)
外部数据库1.重新查询 (记录集句柄) ' 数据库被改动之后，需及时更新记录集。
' 查询或重新查询之后，当前记录指针指向表中第一个记录。
读取并显示当前记录 ()