精易论坛

标题: [Access操作模块] Mdb+Accdb数据简易操作模块 [打印本页]

---

作者: AfanPan    时间: 2024-5-12 12:24
标题: [Access操作模块] Mdb+Accdb数据简易操作模块
最近在冲浪中发现论坛里面提供Access调用的源码很多，但是大多数调用的是mdb文件，这一点十分痛苦，然后论坛上也有很多用户求助（如图1）然后我就开发了一个可以对mdb和accdb文件进行数据库操作的模块
压缩包里面有demo、模块源码，大家可以来参考使用


以下就是一些相关截图

1.png (169.34 KB, 下载次数: 7)

下载附件

2024-5-12 12:20 上传

图1

LZ7K0TURLYB5EYB7PBI_3.png (201.78 KB, 下载次数: 7)

下载附件

2024-5-12 12:23 上传

测试

T7DIN3U9IV0TT4ZHKNE.png (167.47 KB, 下载次数: 7)

下载附件

2024-5-12 12:23 上传

检验

Access.zip

2024-5-12 12:23 上传

点击文件名下载附件

下载积分: 精币 -2 枚

41.67 KB, 下载次数: 264, 下载积分: 精币 -2 枚

这是源码

---

作者: yuan71058    时间: 2024-5-12 12:54
支持开源~！感谢分享

---

作者: xf702    时间: 2024-5-12 13:40
很好，加油！！！

---

作者: bianyuan456    时间: 2024-5-12 13:53
已经顶贴，感谢您对论坛的支持！

---

作者: cqcc    时间: 2024-5-12 14:24
已经顶贴，感谢您对论坛的支持！

---

作者: AfanPan    时间: 2024-5-12 15:25
【注意】操作中的新增添加的并不是一格而是一整行，如下面代码所示会出先文本错乱：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Access	数据库操作_ACCDB

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

Access.打开 (数据库连接1, “D:\1.accdb”)
Access.新建表 (“Test”)
Access.新增字段 (“Test”, “Label”, )
Access.新增字段 (“Test”, “Label1”, )
Access.新增 (“Test”, “Label”, “文本1”)
Access.新增 (“Test”, “Label1”, “文本2”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Access, 数据库操作_ACCDB<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> Access.打开 (数据库连接1, “D:\1.accdb”)<br /> Access.新建表 (“Test”)<br /> Access.新增字段 (“Test”, “Label”, )<br /> Access.新增字段 (“Test”, “Label1”, )<br /> Access.新增 (“Test”, “Label”, “文本1”)<br /> Access.新增 (“Test”, “Label1”, “文本2”)

屏幕截图 2024-05-12 152431.png (45.77 KB, 下载次数: 6)

下载附件

2024-5-12 15:24 上传

代码结果

---

作者: AfanPan    时间: 2024-5-12 15:30

AfanPan 发表于 2024-5-12 15:25
【注意】操作中的新增添加的并不是一格而是一整行，如下面代码所示会出先文本错乱：

  

[/quote]
' 【解决方法】以下是解决此问题的可行解决方案：
[e=8].版本 2

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Access	数据库操作_ACCDB

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

Access.打开 (数据库连接1, “D:\1.accdb”)
Access.新建表 (“Test”)
Access.新增字段 (“Test”, “Label”, )
Access.新增字段 (“Test”, “Label1”, )
Access.新增 (“Test”, “Label”, “文本1”)
Access.更新 (“Test”, “Label1”, “文本2”, “Label='文本1'”)

.版本 2</blockquote></div><br /> '【解决方法】以下是解决此问题的可行解决方案：<br /> <br /> <br /> [e=8].版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Access, 数据库操作_ACCDB<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> Access.打开 (数据库连接1, “D:\1.accdb”)<br /> Access.新建表 (“Test”)<br /> Access.新增字段 (“Test”, “Label”, )<br /> Access.新增字段 (“Test”, “Label1”, )<br /> Access.新增 (“Test”, “Label”, “文本1”)<br /> Access.更新 (“Test”, “Label1”, “文本2”, “Label='文本1'”)

测试截图：

屏幕截图 2024-05-12 152953.png (46.09 KB, 下载次数: 3)

下载附件

2024-5-12 15:30 上传

---

作者: 网络注册网员    时间: 2024-5-12 15:44
支持楼主

---

作者: 一指温柔    时间: 2024-5-12 16:07
能不能Mdb转Accdb

---

作者: AfanPan    时间: 2024-5-12 16:10

一指温柔 发表于 2024-5-12 16:07
能不能Mdb转Accdb

这个只需要用access内置的另存为就可以了

---

作者: jysoft2022    时间: 2024-5-12 16:11
谢谢分享

---

作者: 一指温柔    时间: 2024-5-12 16:16

AfanPan 发表于 2024-5-12 16:10
这个只需要用access内置的另存为就可以了

打开mdb在另存吗   希望单使用易 不要打开其他软件了

---

作者: AfanPan    时间: 2024-5-12 16:57

一指温柔 发表于 2024-5-12 16:16
打开mdb在另存吗   希望单使用易 不要打开其他软件了

你这个问题不错，我可以研究一下然后再集成到模块里面去

---

作者: ZHuanR    时间: 2024-5-12 19:52
新技能已get√

---

作者: 小虎来了    时间: 2024-5-12 20:15
感谢分享，很给力！~

---

作者: hjinpwhe1    时间: 2024-5-12 20:15
签到天数: 12 天  1314  积分         0  主题         3  听众    UID631920好评0 点精币2301 枚荣誉0 点在线时间412 小时注册时间2020-10-18 VX认证勋章  收听TA发消息         14楼  发表于 22 分钟前 | 只看该作者   广东省揭阳市 新技能已get√

---

作者: ttggnn    时间: 2024-5-12 21:14
感谢分享

---

作者: pipicool    时间: 2024-5-12 22:06
学习一下

---

作者: 查过    时间: 2024-5-13 07:38
已经顶贴，感谢您对论坛的支持！

---

作者: 豆豆灰常开心    时间: 2024-5-13 07:43
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: year1970    时间: 2024-5-13 08:14
感谢分享，收藏了

---

作者: kyo9766    时间: 2024-5-13 09:07
Accdb的很少，感谢分享

---

作者: 396384183    时间: 2024-5-13 15:10

感谢分享

---

作者: 光影魔术    时间: 2024-5-14 14:22
感谢分享，正好需要

---

作者: bianyuan456    时间: 2024-5-14 14:25
已经顶贴，感谢您对论坛的支持！

---

作者: xmtian    时间: 2024-5-14 14:26
感谢分享。

---

作者: lxz159464    时间: 2024-5-18 03:48
感谢分享。

---

作者: guansidong    时间: 2024-5-18 04:34
感谢分享，很给力！~

---

作者: lqylbh    时间: 2024-5-19 18:38
感谢分享，很给力！~

---

作者: inmyheart    时间: 2024-5-20 09:33
感谢分享，很给力！~

---

作者: ctry78985    时间: 2024-5-20 20:29
谢谢分享

---

作者: zengyongtao    时间: 2024-5-22 07:39
感谢分享，很给力！~

---

作者: zengyongtao    时间: 2024-5-22 14:31
大佬，这个我下载了直接使用，就不能使用 ，都是现实为假， “[!] 数据库打开失败” * 假， 不知道是哪里有问题

---

作者: liduowu    时间: 2024-5-24 15:45
能不能完善下，打开ACCESS时调用用户密码使用的

---

作者: AfanPan    时间: 2024-5-25 06:19

liduowu 发表于 2024-5-24 15:45
能不能完善下，打开ACCESS时调用用户密码使用的

可以，等待下个版本

---

作者: jiajia0704    时间: 2024-6-2 11:22
支持下载

---

作者: guansidong    时间: 2024-6-4 11:26
感谢分享，很给力！~

---

作者: amwpygdx    时间: 2024-6-5 10:45
下来试试,看看有什么不同,感谢分享

---

作者: spy1987    时间: 2024-6-5 11:45
来自一个小白的膜拜

---

作者: hai023    时间: 2024-6-8 08:57
正好痛苦中，下载ing

---

作者: hai023    时间: 2024-6-8 11:27
楼主，这个更新的条件项怎么写，想更新其中一行，如把code = 999999  的 更新成 7777778

调试输出 (Access.新增 (“pland”, “code”, “999999”))
调试输出 (Access.新增 (“pland”, “code”, “888888”))
调试输出 (Access.更新 (“pland”, “code”, “7777778”, “999999”))
执行得到的结果是整列更新了 数组:12{“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”,“7777778”}   谢谢！

---

作者: AfanPan    时间: 2024-6-8 15:40

hai023 发表于 2024-6-8 11:27
楼主，这个更新的条件项怎么写，想更新其中一行，如把code = 999999  的 更新成 7777778

调试输出 (Access ...

条件写的是区分条件，例如你修改的这个数据的前面一个数据的字段名是啥，字段值是啥，写成"字段名='字段值'"的格式，具体看我发的7楼

---

作者: qinfeng0214    时间: 2024-6-15 15:17
如何知道某个表是否存在呢？不存在就创建表

---

作者: qinfeng0214    时间: 2024-6-15 18:18

zengyongtao 发表于 2024-5-22 14:31
大佬，这个我下载了直接使用，就不能使用 ，都是现实为假， “[!] 数据库打开失败” * 假， 不知道是哪里有 ...

我也是这样，不知道咋回事

---

作者: yiheaaa    时间: 2024-7-8 21:00
mdb不能打开带密码的

---

作者: 特权    时间: 2024-7-10 22:06
大佬，这个我下载了直接使用，就不能使用 ，都是现实为假， “[!] 数据库打开失败” * 假， 不知道是哪里有问题

---

作者: jianer    时间: 2024-8-1 16:50
下载下来直接调试都不行 什么都没改

---

作者: aa6536    时间: 2024-8-2 21:51
开源精神必须支持~

---

作者: cckj    时间: 2024-8-19 20:18
用不了呀！全部显示失败！...

---

作者: idmyl    时间: 2024-9-1 17:48
学习一下，感谢

---

作者: 天使与恶魔    时间: 2024-9-5 14:28
66666666666666666666

---

作者: wis98    时间: 2024-11-17 21:08
66666666666666666666

---

作者: f121809994    时间: 2025-3-2 00:26
KAKK怎么各一双

---

作者: f121809994    时间: 2025-3-2 00:30
共温柔风人遥远八月份

---

作者: h1003591791    时间: 2025-3-2 10:17
感谢分享

---

作者: 1300886755    时间: 2025-3-4 12:36
感谢分享

---

作者: kang10086    时间: 2025-3-8 00:30
6666666666666

---

作者: lgj5000    时间: 2025-3-9 09:33
666666666666

---

作者: xmeimei    时间: 2025-4-23 23:15
我要下载数据库

---

作者: a85698274    时间: 7 天前
开源精神必须支持~

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4