易语言ACCESS数据库的读操作.pdf

易语言 ACCESS 数据库的读操作 最近正在学习易语言，开始觉得不伦不类不过习惯一下觉得对一些编程新手来说挺适合，下 面我把易语言对于数据库的连接，读写等做下说明，大家共同学习。 首先要在窗体上添加两个控件“数据库连接”和“记录集” 我刚刚开始用易语言 不知为什么我的窗口组建箱中只有基本组件而没有扩展组件和外部组 件？ 选择菜单栏的 工具-支持库配置-全选-确定 这样就行了 1.连接 数据库连接 1.连接 Access (取运行目录 () ＋ “\多用户库.mdb”, “”) [如果是 SQLServer 数据库可以用 数据库连接 1.连接 SQLServer (服务器 IP,数据库名 ,用户名 ,密码 )] 2.置连接 记录集 1.置连接 (数据库连接 1) 3.打开表 记录集 1.打开 (“表名”,#数据表名) 4.读数据 记录集 1.读文本 (“列名”, 存储变量名) 可以把存储变量名赋值给 控件 5.增删改 对于这步操作我习惯于用 SQL 语句来写因为比较熟悉，先定义个文本变量 “SQL语句”，然后赋值，举例：添加： SQL 语句 ＝ “insert into 多用户表(税号, 名称,类型,联系人,电话,到期时间) values (” ＋ 删全部空 (税号编辑框.内容) ＋ “,” ＋ 删全部空 (名称编辑框.内容) ＋ “,” ＋ 类型 ＋ “,” ＋ 删全部空 (联系人编辑框.内容) ＋ “,” ＋ 删全部空 (电话编辑框.内容) ＋ “,” ＋ 删全 部空 (日期编辑框.内容) ＋ “)” 删除： SQL 语句 ＝ “DELETE from 多用户表 where 编号 =” ＋ 编号 修改： SQL 语句 ＝ “update 多用户表 set 税号 =” ＋ 删全部空 (税号编辑框.内容) ＋ “,名称 =” ＋ 删全部空 (名称编辑框.内容) ＋ “,类型 =” ＋ 类型 ＋ “, 联系人 =” ＋ 删全部空 (联系人编辑框.内容) ＋ “,电话 =” ＋ 删全部空 (电话 编辑框.内容) ＋ “,到期时间 =” ＋ 删全部空 (日期编辑框.内容) ＋ “ where 编 号=” ＋ 编号标签.标题 然后执行语句命令数据库连接 1.执行 SQL (SQL 语句) ============================================================================ .版本 2 .支持库 eDB 服务器 ＝ 读配置项 (取运行目录 () ＋ “\Config.ini”, “配置”, “服务器”, ) 数据库 ＝ 读配置项 (取运行目录 () ＋ “\Config.ini”, “配置”, “数据库”, ) 用户名 ＝ 读配置项 (取运行目录 () ＋ “\Config.ini”, “配置”, “用户名”, ) 密码 ＝ 读配置项 (取运行目录 () ＋ “\Config.ini”, “配置”, “密码”, ) .如果 (数据库连接 1.连接 SQLServer (服务器, 数据库, 用户名, 密码) ＝ 假) 信息框 (“数据库连接失败”, 0, ) 返回 () .否则 记录集 1.置连接 (数据库连接 1) .如果结束 记录集 1.打开 (“用户表”, #数据表名) .计次循环首 (记录集 1.记录数量, ) 记录集 1.读文本 (“用户名”, 用户) 组合框 1.加入项目 (用户, ) 记录集 1.到下一条 () .计次循环尾 () 从 ACCESS 数据库读取数据是件非常简单的事，只需要几行代码就可以完成操作了。 我们先来修改一下程序的界面，因为这只是一个小例程而已，没有考虑到界面的 美观及实用性上的问题，所以我们只是粗略的做了几个编辑框用于显示数据，没问题吧，呵 呵！ 下面的是一个子程序，子程序的名字是“读出数据”，主要用于从数据库中读取所需 要的数据，这里有几个地方需要注意。 １、当前操作的是哪个记录集，可别搞错了。 ２、当前操作的是哪一条记录，也别搞错了，呵呵！由于具体是读取哪一条记录 是由记录集本身来决定的，所以这里可以暂时不考虑这个问题，但自己