易语言如何查询excel数据库拜托各位大神

版本 2 支持库 eExcel2000 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] ＋ tempnumtext Excel工作簿1尾单元格 ＝ 表列数组 [loopnum] ＋ tempnumtext Excel工作簿1内容格式 ＝“@” ' 这代表是文本型的数据本行可读可写,你可以先设置好格式,然后读一下,显示是什么,再设置 Excel工作簿1内容 ＝ 外部数据库1读 (记录集句柄1, loopnum) 变量循环尾 () 外部数据库1到后一记录 (记录集句柄1) tempnum ＝ tempnum ＋ 1 tempnumtext ＝ 到文本 (tempnum) 判断循环尾 () ' Excel工作簿1保存 (取当前目录 () ＋“\” ＋ 年级数 ＋“xls”) ' Excel工作簿1关闭 () ' Excel程序1退出 ()

版本 2
支持库 eExcel2000
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] ＋ tempnumtext
Excel工作簿1尾单元格 ＝ 表列数组 [loopnum] ＋ tempnumtext
Excel工作簿1内容格式 ＝ “@” ' 这代表是文本型的数据本行可读可写,你可以先设置好格式,然后读一下,显示是什么,再设置
Excel工作簿1内容 ＝ 外部数据库1读 (记录集句柄1, loopnum)
变量循环尾 ()
外部数据库1到后一记录 (记录集句柄1)
tempnum ＝ tempnum ＋ 1
tempnumtext ＝ 到文本 (tempnum)
判断循环尾 ()
' Excel工作簿1保存 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “xls”)
' Excel工作簿1关闭 ()
' Excel程序1退出 ()

版本 2
支持库 iext
子程序 中文取出名称
局部变量 当前日文, 文本型
局部变量 当前中文, 文本型
超级列表框1现行选中项 ＝ 超级列表框1查找表项 (编辑框1内容, , 假, 1)
超级列表框1获取焦点 ()
当前日文 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 0)
编辑框2内容 ＝ 当前日文
当前中文 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 1)
编辑框3内容 ＝ 当前中文

---