怎么用易语言写一个从excel中抽名字的程序

.版本 2
.支持库 eDB
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 整数型

置随机数种子 ()
a ＝ 取随机数 (1, 记录集.记录数量)
调试输出 (a)
编辑框1.内容 ＝ 名字文本 [a]

.子程序 __启动窗口_创建完毕
.局部变量 连接文本, 文本型
.局部变量 文件地址, 文本型
.局部变量 SQL语句, 文本型
.局部变量 循环次数, 整数型

文件地址 ＝ 取运行目录 () ＋ “\名字.xls”

.如果 (数据库连接.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 文件地址 ＋ “;DefaultDir=” ＋ 文件地址 ＋ “;”) ＝ 真)
输出调试文本 (“链接成功！”)
.如果真 (记录集.置连接 (数据库连接) ＝ 假)
返回 ()
.如果真结束
SQL语句 ＝ “select * from [Sheet1$]”
记录集.打开 (SQL语句, #SQL语句)
循环次数 ＝ 记录集.记录数量
重定义数组 (文本变量, 假, 记录集.记录数量)
.计次循环首 (循环次数, )
记录集.读文本 (0, 文本变量 [1])
加入成员 (名字文本, 文本变量 [1])
记录集.到下一条 ()
.计次循环尾 ()
输出调试文本 (“读入并显示成功！”)
.否则
输出调试文本 (数据库连接.最后错误)
.如果结束