连接MYSQL数据库并读取所有表名及字段列表

连接MYSQL数据库并且读出该数据库中相应的表名和相应的字段。

MySql句柄 ＝ 连接MySql (MySql服务器地址编辑框.内容, 用户名编辑框.内容, 密码编辑框.内容, 库名编辑框.内容, 到数值 (密码编辑框.内容))
输出调试文本 (MySql句柄)
取表名列表 (MySql句柄)
记录集句柄 ＝ 取记录集 (MySql句柄)
表数量 ＝ 取记录集行数 (记录集句柄)
输出调试文本 (表数量)
重定义数组 (表名, 假, 表数量)
当前库表名标签.标题 ＝ “当前数据库有：” ＋ 到文本 (表数量) ＋ “个表”
信息列表框.清空 ()
.计次循环首 (取记录集行数 (记录集句柄), 计数)
读字段值 (记录集句柄, 0, 表名 [计数])
信息列表框.加入项目 (到文本 (表名 [计数]), )
到下一行 (记录集句柄)
处理事件 ()
.计次循环尾 ()
释放记录集 (记录集句柄)