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

怎么导入excel，我没学过c语言什么的，赶着做。最好加一个flash特效再显示，程序希望可以美化下……现在会用源码做一个随机抽数字的程序，求源码和比较简单的制作方法，谢谢

.版本 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])
记录集.到下一条 ()
.计次循环尾 ()
输出调试文本 (“读入并显示成功！”)
.否则
输出调试文本 (数据库连接.最后错误)
.如果结束

热门标签

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

您可能感兴趣问答

Collapsible

热门标签

热点问答