Access数据库完全操作-新手傻瓜-级学习例程

KD飞飞

接这个贴：易语言写一个数据库功能demo的详情 - 匠迹众包
已经发给他本人，本人同意发出来
全程手搓，无模块

功能例子举例+备注全写，所有行全部写注释涵盖教学总计八大类
创建数据库本身
创建数据库内单表
插入指定表内新字段
插入一行内单独字段单独行内容
插入一行内所有内容
cha询指定表指定行指定内容
cha询本表所有内容
删除选中行内容
更改指定行内容

能看懂看源码
看不懂下源码对了，里面还涵盖了一套易语言自带的教学例子，我没删，我也是参考着写的~
属于沾前人的光，感谢

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

连接数据库子程序 ()
说明子程序 ()

子程序名	返回值类型	公开	备 注
连接数据库子程序

如果 (数据库连接1.连接Access (取运行目录 () ＋ “\” ＋ 编辑框16.内容, #PassWord ) ＝ 假)
信息框 (“连接数据库失败！”, 0, )
返回 ()



信息框 (“连接成功”, 0, , )
记录集1.置连接 (数据库连接1)

子程序名	返回值类型	公开	备 注
_按钮1_被单击			启动一个子程序

创建数据库 ()  ' 启动这个子程序
连接数据库子程序 ()  ' 再次连接数据库

子程序名	返回值类型	公开	备 注
创建数据库

变量名	类 型	静态	数组	备 注
创建Access	对象			激活对象变量方便操作
数据库路径	文本型			存储位置用的
数据库名称	文本型

数据库名称 ＝ “dataaaa.mdb”
数据库路径 ＝ 取运行目录 () ＋ “\” ＋ 数据库名称
' 取文件夹路径
' 下面这段你不用思考无脑用就行，反正你也看不懂
' #PassWord 是密码在常量表里
创建Access.创建 (“ADOX.Catalog”, )
创建Access.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 数据库路径 ＋ 选择 ( #PassWord ＝ “”, “”, “;Jet OLEDB:Database Password=” ＋ #PassWord ))
创建Access.清除 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
sql	文本型			语句存储

sql ＝ “CREATE TABLE ” ＋ 编辑框5.内容 ＋ “ (” ＋ 编辑框1.内容 ＋ “ AUTOINCREMENT PRIMARY KEY, ” ＋ 编辑框2.内容 ＋ “ TEXT(255), ” ＋ 编辑框3.内容 ＋ “ INTEGER, ” ＋ 编辑框4.内容 ＋ “ TEXT(255));”
' 编辑框在启动窗口有标签备注，对着找就可以了
记录集1.打开 (sql, 1, )
' ↑执行SQL语句的意思
记录集1.关闭 ()
' 执行完关闭，每次操作完就结束
' TEXT代表文本型字段，长度是255，类似就是后面的 INTEGER是整数型数据 你可以创建多种类型的数据格式下面是原始sql语句
' 单行简化版
' CREATE TABLE data (id AUTOINCREMENT PRIMARY KEY, name TEXT(255), age INTEGER, email TEXT(255));
' 原始复杂版
' CREATE TABLE data (
' id COUNTER PRIMARY KEY,
' name TEXT(255),
' age INTEGER,
' email TEXT(255),
' created_date DATETIME DEFAULT CURRENT_TIMESTAMP
' );

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
sql2	文本型			语句存储

sql2 ＝ “ALTER TABLE ” ＋ 编辑框5.内容 ＋ “ ADD ” ＋ 编辑框6.内容 ＋ “ TEXT(255);”
记录集1.打开 (sql2, 1, )
' ↑执行SQL语句的意思
记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮4_被单击

变量名	类 型	静态	数组	备 注
sql3	文本型			语句存储

' ____需要注意data2是表名↓
sql3 ＝ “INSERT INTO data2 (” ＋ 编辑框7.内容 ＋ “) VALUES ('” ＋ 编辑框8.内容 ＋ “');”
' 只插入一行的一个固定字段内容
' 原始语句：
' INSERT INTO data2 (name) VALUES ('张三');
记录集1.打开 (sql3, 1, )
' ↑执行SQL语句的意思
记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮5_被单击

变量名	类 型	静态	数组	备 注
sql4	文本型			语句存储

' ____需要注意data2是表名↓
sql4 ＝ “INSERT INTO data2 (” ＋ 编辑框2.内容 ＋ “, ” ＋ 编辑框3.内容 ＋ “, ” ＋ 编辑框4.内容 ＋ “) VALUES ('” ＋ 编辑框10.内容 ＋ “', ” ＋ 编辑框11.内容 ＋ “, '” ＋ 编辑框12.内容 ＋ “');”
' 只插入一行的更多字段内容
' 原始语句：
' INSERT INTO data2 (name, age, agel, 新字段测试) VALUES ('张三', 30, '青年', '你好世界');
调试输出 (记录集1.打开 (sql4, 1, ))
' ↑执行SQL语句的意思
记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮6_被单击

变量名	类 型	静态	数组	备 注
sql5	文本型			语句存储
年龄	文本型

' ____    需要注意data2是表名↓
sql5 ＝ “SELECT ” ＋ 编辑框15.内容 ＋ “ FROM data2 WHERE ” ＋ 编辑框9.内容 ＋ “ = '” ＋ 编辑框13.内容 ＋ “';”
' 使用一个已知信息，cha询该行的其他字段信息
' 原始语句：
' SELECT age FROM data2 WHERE name = '图图';
记录集1.打开 (sql5, 1, )
' ↑执行SQL语句的意思
记录集1.到首记录 ()
' 回到我获取的系列数据的第一条
记录集1.读文本 (编辑框15.内容, 年龄)
' 取出指定字段的值
编辑框14.内容 ＝ 年龄
' 写出结果
记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮7_被单击

变量名	类 型	静态	数组	备 注
sql6	文本型			语句存储
临时存储	文本型
索引	整数型
临时存储2	文本型
临时存储3	文本型
临时存储4	文本型
临时存储5	文本型

' ____需要注意data2是表名↓
sql6 ＝ “SELECT * FROM data2;”  ' 定义sql语句
记录集1.打开 (sql6, 1, )  ' 执行语句
记录集1.到首记录 ()  ' 去到第一行
超级列表框1.全部删除 ()  ' 清空列表内容防止二次点击溢出
判断循环首 (记录集1.尾记录后 ＝ 假)  ' 判断当前是否在最后一条
索引 ＝ 超级列表框1.插入表项 (, , , , , )  ' 凭空插入一行记录内容为空
记录集1.读文本 (“name”, 临时存储)  ' 读入name字段的内容，填入变量中 已下都一样
记录集1.读文本 (“id”, 临时存储2)
记录集1.读文本 (“age”, 临时存储3)
记录集1.读文本 (“agel”, 临时存储4)
记录集1.读文本 (“新字段测试”, 临时存储5)
' ↓将上面读到的内容在一个循环内加入到刚才插入的新行的指定位置
超级列表框1.置标题 (索引, 1, 临时存储)
超级列表框1.置标题 (索引, 0, 临时存储2)
超级列表框1.置标题 (索引, 2, 临时存储3)
超级列表框1.置标题 (索引, 3, 临时存储4)
超级列表框1.置标题 (索引, 4, 临时存储5)
' ↓插入结束后下一行
_启动窗口.记录集1.到下一条 ()
判断循环尾 ()
记录集1.关闭 ()

子程序名	返回值类型	公开	备 注
_按钮8_被单击

变量名	类 型	静态	数组	备 注
SQL	文本型

如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＝ “-1” 或 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＝ “”)  ' 防止其没有选择行就点删除
返回 ()  ' 如果没有选择行就什么也不执行返回
' 如果选择了行就向下执行
' ___需要注意data2是表名↓
SQL ＝ “DELETE FROM data2 WHERE ID = ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “;”  ' sql语句 使用ID作为搜索依据，删除想删除的行内容
如果 (_启动窗口.数据库连接1.执行SQL (SQL, ) ＝ 假)  ' 执行该语句后的结果判定
信息框 (“删除数据失败！@”, 0, , )



信息框 (“删除数据成功”, 0, , )
_按钮7_被单击 ()  ' 刷新超级列表

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

编辑框17.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
编辑框18.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
编辑框19.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
编辑框20.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)
编辑框21.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 4)
' ↑点击表项取出表项内容放在下面的编辑框里

子程序名	返回值类型	公开	备 注
_按钮9_被单击

变量名	类 型	静态	数组	备 注
sql9	文本型

' 需要注意data2是表名↓
sql9 ＝ “UPDATE data2 SET name = '” ＋ 编辑框18.内容 ＋ “', age = ” ＋ 编辑框19.内容 ＋ “, agel = '” ＋ 编辑框20.内容 ＋ “', 新字段测试 = '” ＋ 编辑框21.内容 ＋ “' WHERE ID = ” ＋ 编辑框17.内容 ＋ “;”
如果 (_启动窗口.数据库连接1.执行SQL (sql9, ) ＝ 假)
信息框 (“更改数据失败”, 0, , )



信息框 (“更改数据成功！”, 0, )
_按钮7_被单击 ()  ' 刷新超级列表

' 单个值原始语句：
' UPDATE data2 SET name = '新值' WHERE ID = 特定的ID值;
' 多个值原始语句：
' UPDATE data2 SET name = '图图', age = 20, agel = '青年', 新字段测试 = '你好世界' WHERE ID = 10;

子程序名	返回值类型	公开	备 注
说明子程序

' 例程制作人：精易论坛KD飞飞
' QQ843814779
' 如需写软件可联系我，免费或少量收费均支持，主打人情世故

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 连接数据库子程序 ()<br /> 说明子程序 ()<br /> <br /> <br /> .子程序 连接数据库子程序<br /> <br /> .如果 (数据库连接1.连接Access (取运行目录 () ＋ “\” ＋ 编辑框16.内容, #PassWord) ＝ 假)<br />     信息框 (“连接数据库失败！”, 0, )<br />     返回 ()<br /> <br /> .否则<br /> <br />     信息框 (“连接成功”, 0, , )<br />     记录集1.置连接 (数据库连接1)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击, , , 启动一个子程序<br /> <br /> 创建数据库 ()  ' 启动这个子程序<br /> 连接数据库子程序 ()  ' 再次连接数据库<br /> <br /> .子程序 创建数据库<br /> .局部变量 创建Access, 对象, , , 激活对象变量方便操作<br /> .局部变量 数据库路径, 文本型, , , 存储位置用的<br /> .局部变量 数据库名称, 文本型<br /> <br /> 数据库名称 ＝ “dataaaa.mdb”<br /> 数据库路径 ＝ 取运行目录 () ＋ “\” ＋ 数据库名称<br /> ' 取文件夹路径<br /> ' 下面这段你不用思考无脑用就行，反正你也看不懂<br /> ' #PassWord 是密码在常量表里<br /> 创建Access.创建 (“ADOX.Catalog”, )<br /> 创建Access.通用方法 (“Create”, “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 数据库路径 ＋ 选择 (#PassWord ＝ “”, “”, “;Jet OLEDB:Database Password=” ＋ #PassWord))<br /> 创建Access.清除 ()<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 sql, 文本型, , , 语句存储<br /> <br /> sql ＝ “CREATE TABLE ” ＋ 编辑框5.内容 ＋ “ (” ＋ 编辑框1.内容 ＋ “ AUTOINCREMENT PRIMARY KEY, ” ＋ 编辑框2.内容 ＋ “ TEXT(255), ” ＋ 编辑框3.内容 ＋ “ INTEGER, ” ＋ 编辑框4.内容 ＋ “ TEXT(255));”<br /> <br /> ' 编辑框在启动窗口有标签备注，对着找就可以了<br /> 记录集1.打开 (sql, 1, )<br /> ' ↑执行SQL语句的意思<br /> 记录集1.关闭 ()<br /> ' 执行完关闭，每次操作完就结束<br /> <br /> <br /> ' TEXT代表文本型字段，长度是255，类似就是后面的 INTEGER是整数型数据 你可以创建多种类型的数据格式下面是原始sql语句<br /> <br /> ' 单行简化版<br /> ' CREATE TABLE data (id AUTOINCREMENT PRIMARY KEY, name TEXT(255), age INTEGER, email TEXT(255));<br /> <br /> ' 原始复杂版<br /> ' CREATE TABLE data (<br /> ' id COUNTER PRIMARY KEY,<br /> ' name TEXT(255),<br /> ' age INTEGER,<br /> ' email TEXT(255),<br /> ' created_date DATETIME DEFAULT CURRENT_TIMESTAMP<br /> ' );<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 sql2, 文本型, , , 语句存储<br /> <br /> sql2 ＝ “ALTER TABLE ” ＋ 编辑框5.内容 ＋ “ ADD ” ＋ 编辑框6.内容 ＋ “ TEXT(255);”<br /> 记录集1.打开 (sql2, 1, )<br /> ' ↑执行SQL语句的意思<br /> 记录集1.关闭 ()<br /> <br /> .子程序 _按钮4_被单击<br /> .局部变量 sql3, 文本型, , , 语句存储<br /> <br /> ' ____需要注意data2是表名↓<br /> sql3 ＝ “INSERT INTO data2 (” ＋ 编辑框7.内容 ＋ “) VALUES ('” ＋ 编辑框8.内容 ＋ “');”<br /> ' 只插入一行的一个固定字段内容<br /> <br /> ' 原始语句：<br /> ' INSERT INTO data2 (name) VALUES ('张三');<br /> <br /> 记录集1.打开 (sql3, 1, )<br /> ' ↑执行SQL语句的意思<br /> 记录集1.关闭 ()<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 sql4, 文本型, , , 语句存储<br /> <br /> ' ____需要注意data2是表名↓<br /> sql4 ＝ “INSERT INTO data2 (” ＋ 编辑框2.内容 ＋ “, ” ＋ 编辑框3.内容 ＋ “, ” ＋ 编辑框4.内容 ＋ “) VALUES ('” ＋ 编辑框10.内容 ＋ “', ” ＋ 编辑框11.内容 ＋ “, '” ＋ 编辑框12.内容 ＋ “');”<br /> ' 只插入一行的更多字段内容<br /> <br /> ' 原始语句：<br /> ' INSERT INTO data2 (name, age, agel, 新字段测试) VALUES ('张三', 30, '青年', '你好世界');<br /> <br /> 调试输出 (记录集1.打开 (sql4, 1, ))<br /> <br /> ' ↑执行SQL语句的意思<br /> 记录集1.关闭 ()<br /> <br /> <br /> .子程序 _按钮6_被单击<br /> .局部变量 sql5, 文本型, , , 语句存储<br /> .局部变量 年龄, 文本型<br /> <br /> ' ____    需要注意data2是表名↓<br /> sql5 ＝ “SELECT ” ＋ 编辑框15.内容 ＋ “ FROM data2 WHERE ” ＋ 编辑框9.内容 ＋ “ = '” ＋ 编辑框13.内容 ＋ “';”<br /> <br /> ' 使用一个已知信息，cha询该行的其他字段信息<br /> ' 原始语句：<br /> ' SELECT age FROM data2 WHERE name = '图图';<br /> <br /> 记录集1.打开 (sql5, 1, )<br /> ' ↑执行SQL语句的意思<br /> 记录集1.到首记录 ()<br /> ' 回到我获取的系列数据的第一条<br /> 记录集1.读文本 (编辑框15.内容, 年龄)<br /> ' 取出指定字段的值<br /> 编辑框14.内容 ＝ 年龄<br /> ' 写出结果<br /> 记录集1.关闭 ()<br /> <br /> .子程序 _按钮7_被单击<br /> .局部变量 sql6, 文本型, , , 语句存储<br /> .局部变量 临时存储, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 临时存储2, 文本型<br /> .局部变量 临时存储3, 文本型<br /> .局部变量 临时存储4, 文本型<br /> .局部变量 临时存储5, 文本型<br /> <br /> ' ____需要注意data2是表名↓<br /> sql6 ＝ “SELECT * FROM data2;”  ' 定义sql语句<br /> 记录集1.打开 (sql6, 1, )  ' 执行语句<br /> 记录集1.到首记录 ()  ' 去到第一行<br /> 超级列表框1.全部删除 ()  ' 清空列表内容防止二次点击溢出<br /> .判断循环首 (记录集1.尾记录后 ＝ 假)  ' 判断当前是否在最后一条<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )  ' 凭空插入一行记录内容为空<br /> <br />     记录集1.读文本 (“name”, 临时存储)  ' 读入name字段的内容，填入变量中 已下都一样<br />     记录集1.读文本 (“id”, 临时存储2)<br />     记录集1.读文本 (“age”, 临时存储3)<br />     记录集1.读文本 (“agel”, 临时存储4)<br />     记录集1.读文本 (“新字段测试”, 临时存储5)<br /> <br />     ' ↓将上面读到的内容在一个循环内加入到刚才插入的新行的指定位置<br />     超级列表框1.置标题 (索引, 1, 临时存储)<br />     超级列表框1.置标题 (索引, 0, 临时存储2)<br />     超级列表框1.置标题 (索引, 2, 临时存储3)<br />     超级列表框1.置标题 (索引, 3, 临时存储4)<br />     超级列表框1.置标题 (索引, 4, 临时存储5)<br />     ' ↓插入结束后下一行<br />     _启动窗口.记录集1.到下一条 ()<br /> .判断循环尾 ()<br /> <br /> 记录集1.关闭 ()<br /> <br /> <br /> .子程序 _按钮8_被单击<br /> .局部变量 SQL, 文本型<br /> <br /> .如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＝ “-1” 或 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＝ “”)  ' 防止其没有选择行就点删除<br />     返回 ()  ' 如果没有选择行就什么也不执行返回<br /> <br /> .如果真结束<br /> ' 如果选择了行就向下执行<br /> ' ___需要注意data2是表名↓<br /> SQL ＝ “DELETE FROM data2 WHERE ID = ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0) ＋ “;”  ' sql语句 使用ID作为搜索依据，删除想删除的行内容<br /> .如果 (_启动窗口.数据库连接1.执行SQL (SQL, ) ＝ 假)  ' 执行该语句后的结果判定<br />     信息框 (“删除数据失败！@”, 0, , )<br /> <br /> <br /> .否则<br /> <br /> <br />     信息框 (“删除数据成功”, 0, , )<br />     _按钮7_被单击 ()  ' 刷新超级列表<br /> <br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> <br /> 编辑框17.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)<br /> 编辑框18.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br /> 编辑框19.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br /> 编辑框20.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)<br /> 编辑框21.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 4)<br /> <br /> ' ↑点击表项取出表项内容放在下面的编辑框里<br /> <br /> .子程序 _按钮9_被单击<br /> .局部变量 sql9, 文本型<br /> <br /> ' 需要注意data2是表名↓<br /> sql9 ＝ “UPDATE data2 SET name = '” ＋ 编辑框18.内容 ＋ “', age = ” ＋ 编辑框19.内容 ＋ “, agel = '” ＋ 编辑框20.内容 ＋ “', 新字段测试 = '” ＋ 编辑框21.内容 ＋ “' WHERE ID = ” ＋ 编辑框17.内容 ＋ “;”<br /> .如果 (_启动窗口.数据库连接1.执行SQL (sql9, ) ＝ 假)<br /> <br />     信息框 (“更改数据失败”, 0, , )<br /> <br /> .否则<br /> <br /> <br />     信息框 (“更改数据成功！”, 0, )<br />     _按钮7_被单击 ()  ' 刷新超级列表<br /> .如果结束<br /> <br /> <br /> ' 单个值原始语句：<br /> ' UPDATE data2 SET name = '新值' WHERE ID = 特定的ID值;<br /> ' 多个值原始语句：<br /> ' UPDATE data2 SET name = '图图', age = 20, agel = '青年', 新字段测试 = '你好世界' WHERE ID = 10;<br /> <br /> .子程序 说明子程序<br /> <br /> ' 例程制作人：精易论坛KD飞飞<br /> ' QQ843814779<br /> ' 如需写软件可联系我，免费或少量收费均支持，主打人情世故

抽烟伤肺

感谢大佬分享

錆叫ωo红领巾℡

支持开源~！感谢分享

shiyang

感谢大佬分享

stevenjun

这写得很详细，下载下来试试、

ylghlzg

888888888888888888

ylghlzg

88888888888888888888

ylghlzg

8888888888888888888888888

ylghlzg

8888888888888888

a萧哥

感谢，正好学习了

ylghlzg

888888888888888888