Excel工作簿1置程序 (Excel程序1) ' 设置工作簿于excel程序领导之下Excel工作簿1打开 (取当前目录 () +“\” + 年级数 +“xls”) ' 本来可以加个文件名的,如果没有文件,则另存为吧Excel工作簿1表格序号 = 1 ' 设置第一张表为工作表Excel程序1显示 =真' 以下是把数据库中的查询结果放入excel程序里tempnum = 1 ' 第一条记录tempnumtext = 到文本 (tempnum)外部数据库1到首记录 (记录集句柄1)判断循环首 (外部数据库1尾记录后 (记录集句柄1) =假) ' 是不是已经到了尾记录了如果不是,继续变量循环首 (1, 33, 1, loopnum) ' 共有33个字段,每行显示33段,在excel表中表示列tempnum表示为行Excel工作簿1首单元格 = 表列数组 [loopnum] + tempnumtextExcel工作簿1尾单元格 = 表列数组 [loopnum] + tempnumtextExcel工作簿1内容 = 外部数据库1读 (记录集句柄1, loopnum)变量循环尾 ()外部数据库1到后一记录 (记录集句柄1)tempnum = tempnum + 1tempnumtext = 到文本 (tempnum)判断循环尾 ()' Excel工作簿1保存 (取当前目录 () +“\” + 年级数 +“xls”)' Excel工作簿1关闭 ()
到首记录()
计次循环首(取记录数(),)
如果真(读字段(“软件类型”,)=系统工具)
高级表格置数据()‘这部分你自己写
跳过()
计次循环尾()
版本 2
到首记录 ()
判断循环首 (真)
查找 (读 (1) ≥ 到时间 (编辑框1内容) 且 读 (1) ≤ 到时间 (编辑框2内容))
如果真 (尾记录后 () = 真)
跳出循环 ()
如果真结束
' 以下就写你找到数据后要进行的任务
判断循环尾 ()
你们都没注意到记录集的一个命令的用法,所以才有这样的疑问。关键命令:记录集1记录数量
版本 2
支持库 eDB
记录集1打开 (“select from QXB where 名称 like '%” + 编辑框_名称内容 + “%'”, 1, )
如果真 (记录集1记录数量 = 0)
信息框 (“经查询无相关数据”, 0, )
返回 ()'这样有数据的情况下就不会执行往下的命令了,也就不会清空数据了
如果真结束
' ---------下面才是查询到数据的情况下执行的命令
' 执行代码
以上就是关于易语言如何查询excel数据库全部的内容,包括:易语言如何查询excel数据库、易语言edb数据库查询某一字段内的数据、易语言 edb数据库 怎样查找等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)