易语言取数据库
⑴ 易语言如何查询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
.支持库 iext
.子程序 _主窗口_创建完毕
.如果 (文件是否存在 (取运行目录 () + “\data\” + “特种设备台账.edb”) = 假)
信息框 (“数据表不存在!”, 16, “提示”)
.否则
打开 (取运行目录 () + “\data\” + “特种设备台账.edb”, , , 4, , “”, )
.如果结束
_监控时钟_周期事件 ()
读取行 ()
透明标签1.左边 = 主窗口.宽度 - 透明标签1.宽度 - (选择夹1.宽度 - 透明标签1.宽度) ÷ 2
当前时间.时钟周期 = 1000
.版本 2
.支持库 eGrid
.子程序 读取行
.局部变量 变量1, 整数型
高级表格.置列宽 (0, 0)
高级表格.置列宽 (1, 20)
高级表格.置数据 (0, 1, 1, “序号”)
高级表格.置列宽 (2, 100)
高级表格.置数据 (0, 2, 1, “设备名称”)
高级表格.置列宽 (3, 100)
高级表格.置数据 (0, 3, 1, “单位内编码”)
高级表格.置列宽 (4, 100)
高级表格.置数据 (0, 4, 1, “规格型号”)
高级表格.置列宽 (5, 100)
高级表格.置数据 (0, 5, 1, “安装部位”)
高级表格.置列宽 (6, 100)
高级表格.置数据 (0, 6, 1, “使用证编号”)
高级表格.置列宽 (7, 100)
高级表格.置数据 (0, 7, 1, “年度检验日期”)
高级表格.置列宽 (8, 100)
高级表格.置数据 (0, 8, 1, “年度检验有效期”)
高级表格.置列宽 (9, 100)
高级表格.置数据 (0, 9, 1, “定期检验日期”)
高级表格.置列宽 (10, 100)
高级表格.置数据 (0, 10, 1, “定期检验有效期”)
高级表格.置列宽 (11, 100)
高级表格.置数据 (0, 11, 1, “安装就位日期”)
高级表格.置列宽 (12, 100)
高级表格.置数据 (0, 12, 1, “报废停用日期”)
高级表格.置列宽 (13, 100)
高级表格.置数据 (0, 13, 1, “重大维修日期”)
.计次循环首 (取记录数 (), 变量1)
跳到 (变量1)
高级表格.插入行 (“”, 高级表格.行数)
高级表格.置数据 (高级表格.行数 - 1, 1, 1, 读 (1))
高级表格.置数据 (高级表格.行数 - 1, 2, 1, 读 (2))
高级表格.置数据 (高级表格.行数 - 1, 3, 1, 读 (3))
高级表格.置数据 (高级表格.行数 - 1, 4, 1, 读 (4))
高级表格.置数据 (高级表格.行数 - 1, 5, 1, 读 (5))
高级表格.置数据 (高级表格.行数 - 1, 6, 1, 读 (6))
高级表格.置数据 (高级表格.行数 - 1, 7, 1, 读 (7))
高级表格.置数据 (高级表格.行数 - 1, 8, 1, 读 (8))
高级表格.置数据 (高级表格.行数 - 1, 9, 1, 读 (9))
高级表格.置数据 (高级表格.行数 - 1, 10, 1, 读 (10))
高级表格.置数据 (高级表格.行数 - 1, 11, 1, 读 (11))
高级表格.置数据 (高级表格.行数 - 1, 12, 1, 读 (12))
高级表格.置数据 (高级表格.行数 - 1, 13, 1, 读 (13))
.计次循环尾 ()
编号排序 ()
⑶ 易语言支持库和数据库是什么如何调用
1、易语言支持库,支持库是扩展易语言系统的主要方式之一,也是最有效的方式之一。通过使用其它编程语言为易语言开发支持库,易语言系统的功能可以得到无限扩展。通过支持库这一途径,易语言可以充分整合其它编程语言和操作系统的各种资源。
2、易语言数据库,易语言的数据库功能大部分基于XBASE 方式,所以您如果曾经接触过XBASE数据库系统中的任何一款,如:DBASE、FOXBASE、FOXPRO 等等,就能够相当快地了解并应用易语言的数据库。
3、数据库的调用必须是由专门的程序语言来进行数据库的存储过程,打开指定数据库,请使用“打开”命令。可以同时打开多个数据库(其数目仅受Windows 操作系统限制)。
(3)易语言取数据库扩展阅读
易语言特点
1、超强的程序编辑器
2、多媒体功能支持强大
3、完善的网络、端口通讯和互联网功能支持
4、支持调用API底层函数
5、支持标准外部OCX组件
6、可由易语言支持库无限扩充其功能
7、模块化开发
⑷ 易语言里怎么读取数据库里的数据到树形框
‘不用外部数据库,添加一个数据库连接1控件:
’假设库文件名为“产品数据库.mdb”,库中的表名为“产品表”,产品字段名“类别”
全局变量:a文本型
如果真(数据库连接1.连接Access(取运行目录()+“产品数据库.mdb”,“”)=假)
信息框(“连接数据库失败!”,0,)
返回()
’添加一个记录集控件;
记录集1.置连接(数据库连接1)
‘上面我们已经打开并且连接好了MDB数据库,接下来我们做读取和显示;
记录集1.打开(“select*from产品表”,#SQL语句,#服务器端游标)
记录集1.到首记录()
判断循环首(记录集1.尾记录后=假)
记录集1.读文本(“类别”,a)
如果真(a=“日用品”)
树型框1.加入项目(0,a,,,,,)
如果真(a=“洗化用品”)
树型框1.加入项目(1,a,,,,,)
如果真(a=“洗发水”或a=“洗衣粉”)
树型框1.加入项目(2,a,,,,,)
记录集1.到下一条()
判断循环尾()
记录集1.关闭()
⑸ 易语言如何调用数据库
打开(“填写你数据库的路径”)
计次循环首(取记录数(),i)
跳到(i)
列表框.加入项目(读(“玩家”))
我手打的,不知道可以不。
⑹ 易语言如何读取Access数据库中多个字段、表名、条件。
【1】.连接Access数据库代码!.版本
2
.支持库
eDB
.如果
(数据库连接.连接Access
(MDB数据库,
“”)
=
真)
记录集.置连接
(数据库连接)
排序条件
=
“字段,表名,条件”
.如果
(记录集.打开并排序
(MDB数据表,
排序条件)
=
真)
.否则
销毁
()
【2】.填充树形框字段到父项目代码!.版本
2
.支持库
eDB
.支持库
iext.局部变量
分类变量,
文本型
.局部变量
树项目总数,
整数型
.局部变量
树循环循环,
整数型
.局部变量
临时项目文本,
文本型
.局部变量
是否存在重复,
整数型
记录集.到首记录
()
.判断循环首
(记录集.尾记录后
=
假)
记录集.读文本
(“字段”,
分类变量)
树项目总数
=
树型框.取项目数
()
.如果
(树项目总数
=
0)
树型框.加入项目
(,
分类变量,
,
,
)
.否则
.计次循环首
(树项目总数,
树循环循环)
临时项目文本
=
树型框.取项目文本
(树循环循环
-
1)
.如果
(临时项目文本
=
分类变量)
是否存在重复
=
1
跳出循环
()
.否则
是否存在重复
=
0
.如果结束
树循环循环
=
树循环循环
+
1
.计次循环尾
()
.如果真
(是否存在重复
=
0)
树型框.加入项目
(,
分类变量,
,
,
)
.如果真结束
.如果结束
记录集.到下一条
()
.判断循环尾
()
【3】.填充表名到树形框子项目并过滤树形框存在的重复项!.版本
2
.支持库
iext
.支持库
eDB.局部变量
原项目变量,
整数型
.局部变量
原项目循环,
整数型
.局部变量
项目数组,
文本型,
,
"0"
.局部变量
原项目文本,
文本型
.局部变量
新项目变量,
整数型
.局部变量
新项目循环,
整数型
.局部变量
新项目文本,
文本型
.局部变量
新项目标题,
文本型
.局部变量
过滤语句,
文本型
.局部变量
文本数组,
文本型,
,
"0"
.局部变量
文本变量,
文本型
.局部变量
数组成员,
整数型
.局部变量
数组循环,
整数型
.局部变量
次数数量,
整数型
.局部变量
项目变量,
整数型
.局部变量
循环变量,
整数型
.局部变量
次数循环,
整数型
原项目变量
=
树型框.取项目数
()
原项目循环
=
1
.计次循环首
(原项目变量,
原项目循环)
加入成员
(项目数组,
树型框.取项目文本
(原项目循环
-
1))
.计次循环尾
()
数组成员
=
取数组成员数
(项目数组)原项目文本
=
项目数组
[数组循环]
过滤语句
=
“字段”
+
“=”
+
“'”
+
原项目文本
+
“'”
.如果
(记录集.过滤记录
(过滤语句)
=
真)
次数数量
=
记录集.记录数量
清除数组
(文本数组)
.计次循环首
(次数数量,
次数循环)
记录集.读文本
(“表名称”,
文本变量)
加入成员
(文本数组,
文本变量)
次数循环
=
次数循环
+
1
记录集.到下一条
()
.计次循环尾
()
项目变量
=
树型框.取项目数
()
.计次循环首
(项目变量,
循环变量)
树型框.置项目数值
(循环变量
-
1,
循环变量)
.计次循环尾
().否则