怎么用易语言写一个从excel中抽名字的程序
怎么导入excel,我没学过c语言什么的,赶着做。最好加一个flash特效再显示,程序希望可以美化下……现在会用源码做一个随机抽数字的程序,求源码和比较简单的制作方法,谢...
怎么导入excel,我没学过c语言什么的,赶着做。最好加一个flash特效再显示,程序希望可以美化下……现在会用源码做一个随机抽数字的程序,求源码和比较简单的制作方法,谢谢
展开
3个回答
展开全部
.版本 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])
记录集.到下一条 ()
.计次循环尾 ()
输出调试文本 (“读入并显示成功!”)
.否则
输出调试文本 (数据库连接.最后错误)
.如果结束
.支持库 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])
记录集.到下一条 ()
.计次循环尾 ()
输出调试文本 (“读入并显示成功!”)
.否则
输出调试文本 (数据库连接.最后错误)
.如果结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询