&易语言Access数据库添加至组合框源码例程程序结合易语言数据库操作支持库实现将Access数据库里的数据添加至组合框。
易语言源码例程属于易语言初级教程。
点评：易语言Access数据库添加至组合框源码加上组合框的联动就更好了。
下载地址 （请使用浏览器下载）
CopyRight & &版权所有热门划词：
您现在的位置： >>
ACCESS数据库全操作
时间： 18:04:59 点击： 【
　　核心提示：一、使用“数据库连接”和“记录集”两个组件来操作mdb数据库：1、连接数据库数据库连接1.连接Access (取运行目录 () ＋ “\MDB.mdb”, “”)记录集1.置连接 (数据库连接1)2、查询查询全部记录：记录集1.打开 (“select * from 通讯表”, #SQL语句)查询电话...一、使用“数据库连接”和“记录集”两个组件来操作mdb数据库：
1、连接数据库
数据库连接1.连接Access (取运行目录 () ＋ “\MDB.mdb”, “”)
记录集1.置连接 (数据库连接1)
查询全部记录：记录集1.打开 (“select * from 通讯表”, #SQL语句)
查询电话包括记录：(使用like必须用%而不是*这点很重要，包括日期型也必须使用%)
记录集1.打开 (“SELECT * FROM 通讯表 WHERE 电话 like '%” ＋ 2.内容＋ “%'”, #SQL语句)
然后填充超级列表框：
.子程序 刷新结果
.局部变量 刘嘉玲, 文本型
超级列表框1.全部删除 () ‘以下代码其实可以精简
_启动.记录集1.到首记录 ()
.判断循环首 (_启动.记录集1.尾记录后 ＝ 假)
&&& 超级列表框1.插入表项 (, , , , , )
&&& _启动.记录集1.读文本 (“编号”, 刘嘉玲)& ' 编号是整数型的，这里用文本接收也正常
&&& 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 刘嘉玲)
&&& _启动.记录集1.读文本 (“姓名”, 刘嘉玲)
&&& 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 刘嘉玲)
&&& _启动.记录集1.读文本 (“电话”, 刘嘉玲)
&&& 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 刘嘉玲)
&&& _启动.记录集1.读文本 (“地址”, 刘嘉玲)
&&& 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 刘嘉玲)
&&& _启动.记录集1.到下一条 ()
.判断循环尾 ()
_启动.记录集1.关闭 ()
3、添加记录
sql ＝ “insert into 通讯表(姓名,电话,地址) values ('” ＋ 1.内容 ＋ “','” ＋ 3.内容＋ “','” ＋ 2.内容 ＋ “')”
数据库连接1.执行SQL (sql)
4、修改记录
sql ＝ “update 通讯表 set 姓名='” ＋ 1.内容＋ “',电话='” ＋ 3.内容 ＋ “',地址='” ＋ 2.内容 ＋ “' where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
数据库连接1.执行SQL (临时)
5、删除记录
SQL ＝ “delete from 通讯表 where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
数据库连接1.执行SQL (SQL)
二、使用“外部数据库”组件来操作mdb数据库：
1、连接数据库
外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data\xs.mdb”, , , , )
查询并填充全部记录：
记录 ＝ 外部数据库1.查询 (“select * from 表1 order by 日期 desc”) ‘按日期排序
超级列表框1.全部删除 ()
外部数据库1.到首记录 (记录)
.判断循环首 (外部数据库1.尾记录后 (记录) ＝假)
&&& 超级列表框1.插入表项 (0, , , , , )
&&& 超级列表框1.置标题 (0, 0, 外部数据库1.读 (记录, 2))
&&& 超级列表框1.置标题 (0, 1, 外部数据库1.读 (记录, 3))
&&& 超级列表框1.置标题 (0, 2, 到文本 (外部数据库1.读 (记录, 4)))
&&& 超级列表框1.置标题 (0, 3, 到文本 (数值到格式文本 (外部数据库1.读 (记录, 5), 2, 假)))
&&& 外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录)
记录 ＝ 外部数据库1.查询 (“select distinct 单位名称 from 表2 ”) ‘对单位进行分类汇总
对日期进行查询：
开始 ＝ “#” ＋ 格式化日期 (日期框1.今天, “%y-%m-%d”) ＋ “#” ‘看看是否可以简化
①.记录 ＝ 外部数据库1.查询 (“select * from 表1 where 日期 BETWEEN ” ＋ 开始＋ “ and ” ＋ 结束 ＋ “and 单位名称='” ＋ 组合框1.内容 ＋ “'order by 日期 desc”)
②.记录 ＝ 外部数据库1.查询 (“select * from 表1 where 日期 &= ” ＋ 开始＋ “ and 日期 &= ” ＋ 结束 ＋ “and 单位名称='” ＋ 组合框2.内容＋ “'order by 日期 desc”) ‘注意①②的区别
3、添加记录
外部数据库1.执行 (“INSERT INTO 表1 (单位编号,单位名称,日期,金额) values ('” ＋ 取文本左边 (组合框1.内容, 4) ＋ “','” ＋ 1.内容 ＋ “','” ＋ 到文本 (取日期 (日期框1.今天)) ＋ “','” ＋ 2.内容 ＋ “')”, )
4、修改记录
sql ＝ “update 通讯表 set 姓名='” ＋ 1.内容＋ “',电话='” ＋ 3.内容 ＋ “',地址='” ＋ 2.内容 ＋ “' where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
外部数据库.执行(sql,)
5、删除记录
SQL ＝ “delete from 通讯表 where 编号=” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
外部数据库.执行(SQL,)
三、修改ACCESS数据库密码：
.子程序 修改Access数据库密码, , ,
.参数 Access数据库名, 文本型
.参数 原密码, 文本型
.参数 新密码, 文本型
.局部变量 adodb对象, 对象
.局部变量 ConnectionString, 文本型
.局部变量 CommandText, 文本型
adodb对象.创建 (“ADODB.Connection”, )
.如果真 (adodb对象.是否为空 () ＝ 真)
&&& 信息框 (“创建ADODB.Connection对象失败”, #错误图标, )
&&& 返回 ()
.如果真结束
ConnectionString ＝ “Provider=Microsoft.Jet.OLEDB.4.0;User ID=AData Source=” ＋ 取运行目录 () ＋ “\” ＋ Access数据库名 ＋ “;Jet OLEDB:DataBase Password=” ＋ 原密码 ＋ “;Mode=Share Deny Read|Share Deny Write”
adodb对象.方法 (“Open”, ConnectionString)
输出调试文本 (adodb对象.取错误 ())
.如果真 (adodb对象.取错误 () ≠ “”)
&&& 信息框 (“打开Access数据库失败，可能是数据库名 或 Access原密码 错误”, #错误图标, )
&&& 返回 ()
.如果真结束
CommandText ＝ “ALTER&& DATABASE&& PASSWORD&& [” ＋ 新密码 ＋ “]&& [” ＋ 原密码 ＋ “]”
adodb对象.对象型方法 (“Execute”, CommandText)
输出调试文本 (adodb对象.取错误 ())
.如果 (adodb对象.取错误 () ≠ “”)
&&& 信息框 (“修改Access密码失败”, #错误图标, )
&&& 信息框 (“修改Access密码成功”, #信息图标, )
四、近2万条记录快速显示(利用分页读取原理)：
.支持库 iext ‘实质就是利用新添加的纵向滚动条来读取数据库中的内容，分页显示，不是一次全部显示
.支持库 eDB& ‘思路值得借鉴，因为如果全部显示也没必要啊。
.子程序 超级列表框资料显示
.参数 SQL, 文本型, , “select * from 地名”
.局部变量 L, 整数型
.局部变量 T, 文本型
超级表框.全部删除 ()
库.连接Access (取运行目录 () ＋ “\” ＋ “地名.mdb”, “”)
集.置连接 (库)
集.打开 (SQL, #SQL语句)
纵滚.最大位置 ＝ 集.记录数量
_启动.标题 ＝ “记录数共有：” ＋ 到文本 (集.记录数量) ＋ “ 条”
集.移到 (纵滚.位置 － 1)
.计次循环首 (10, L)
&&& 超级表框.插入表项 (, , , , , )
&&& ' 资料框.插入表项 (, 到文本 (集.当前位置 ＋ 1), , , , )
&&& .计次循环首 (集.字段数量, L)
&&&&&&& T ＝ “T” ＋ 到文本 (L － 1)
&&&&&&& 集.读文本 (L － 1, T)
&&&&&&& 超级表框.置标题 (超级表框.取表项数 () － 1, L, 删全部空 (T))
&&& .计次循环尾 ()
&&& 集.到下一条 ()
.计次循环尾 ()
SQL ＝ “”
集.关闭 ()
库.关闭 ()
超级表框.获取焦点 ()
超级表框.现行选中项 ＝ 0
1.标题 ＝ “第 ” ＋ 到文本 (纵滚.位置 ＋ 超级表框.现行选中项) ＋ “ 条”
作者：Admin　来源：工程师
上一篇：下一篇：
其他网友还浏览过：
网络工程师() & 2013 版权所有 All Rights Reserved.
Email:een_ 站长QQ:
Powered by易语言access数据库sql问题_百度知道
易语言access数据库sql问题
” ＋ 商家名称, 0;;.内容 ≠ “” 且 收款方式.内容 ≠ “” 且 是否回款.如果 (_启动窗口,&#39, 0.版本 2.内容 ≠ “” 且 是否收款;;” ＋ 刷单模式.内容 ≠ “” 且 QQ.内容 ＋ “#&#39,商家名称.否则
信息框 (“添加拍单成功”,拍单旺旺号.内容 ＋ “&#39.内容 ＋ “'.内容 ＋ “&#39,是否收款,&#39,” ＋ QQ.否则
信息框 (“不能为空！”, )
, 0,QQ,店铺名字,本金,利润;#” ＋ 日期,” ＋ 是否收款.内容 ＋ “.内容 ＋ “&#39.内容 ＋ “;” ＋ 店铺名字！”;” ＋ 是否回款.内容 ≠ “” 且 店铺名字,&#39,&#39,收货备注.内容 ≠ “”)
sql ＝ “insert into 拍单(日期.支持库 eDB;.内容 ≠ “” 且 利润.内容 ＋ “;;)”.内容 ≠ “” 且 拍单旺旺号.执行SQL (sql) ＝ 假)
信息框 (“添加拍单失败.内容 ＋ “&#39,” ＋ 利润.内容 ＋ “&#39.内容 ＋ “&#39.支持库 spec, 文本型.如果结束,收款方式, )
.内容 ＋ “'” ＋ 收款方式,&#39,” ＋ 本金,刷单模式) values
(&#39,&#39.如果 (日期, ),” ＋ 收货备注,是否回款;” ＋ 拍单旺旺号.数据库连接1.内容 ≠ “” 且 商家名称.内容 ≠ “” 且 刷单模式.内容 ≠ “” 且 本金;.如果结束调试输出 (sql)哪里错 .局部变量 sql
店铺名字，先看你SQL语句输出是否正确,” ＋ QQ，即;！看了一下你的SQL语句少了两个地方的单引号.内容 ＋ “',收货备注,” ＋ 利润.内容 ＋ “&#39.内容 ＋ “.内容 ＋ “;：数据库连接1;” ＋ 收货备注.连接SQLServer 我做过很多易语言操作SQL的了,&#39.内容 ＋ “&#39.内容 ＋ “'.内容 ＋ “'” ＋ 是否回款,&#39,&#39没看你具体的程序,'#” ＋ 日期.内容 ＋ “#&#39,&#39,'” ＋ 拍单旺旺号：sql ＝ “insert into 拍单(日期,QQ.内容 ＋ “;,';” ＋ 刷单模式;” ＋ 是否收款,” ＋ 本金,是否收款;.内容 ＋ “&#39,商家名称,'” ＋ 收款方式,本金，另外还有你数据库各字段的属性，其次检查一下你的数据库是否连接成功;” ＋ 商家名称.内容 ＋ “&#39：改为.内容 ＋ “',收款方式,利润,是否回款;” ＋ 店铺名字,拍单旺旺号,刷单模式) values
(&#39，有什么多交流
其他类似问题
access数据库的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁