易语言把excel当数据库
1. 易语言如何查询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. 易语言如何查询excel数据库
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.内容 = 外部数据库1.读 (记录集句柄1, loopnum) .变量循环尾 () 外部数据库1.到后一记录 (记录集句柄1) tempnum = tempnum + 1 tempnumtext = 到文本 (tempnum) .判断循环尾 () ' Excel工作簿1.保存 (取当前目录 () +“\” + 年级数 +“.xls”) ' Excel工作簿1.关闭 ()
3. 易语言中如何将excel直接转换成edb数据库
没有行代码可以直接转的
你可以自己写命令,把表格内容读入变量里