mdb

djmy2018

有个.mdb数据库，我想打开并cha询读取里面的内容，遍历搜索这些，请大佬出山

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
数据库	外部数据库
记录集	整数型
路径	文本型

路径 ＝ 取运行目录 () ＋ “\data.mdb”
如果真 (文件是否存在 (路径) ＝ 假)
调试输出 (“数据库文件不存在”)
返回 ()

数据库.打开 (“Driver={Microsoft Access Driver (*.mdb)};DBQ=” ＋ 路径)
记录集 ＝ 数据库.cha询 (“SELECT * FROM 信息 WHERE 标题 LIKE '%测试%'”)
如果真 (记录集 ≠ 0)
判断循环首 (数据库.尾记录后 (记录集) ＝ 假)
调试输出 (数据库.读 (记录集, “标题”), 数据库.读 (记录集, “内容”))
数据库.到后一记录 (记录集)
判断循环尾 ()
数据库.关闭记录集 (记录集)
数据库.关闭 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数据库, 外部数据库<br /> .局部变量 记录集, 整数型<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\data.mdb”<br /> .如果真 (文件是否存在 (路径) ＝ 假)<br />     调试输出 (“数据库文件不存在”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 数据库.打开 (“Driver={Microsoft Access Driver (*.mdb)};DBQ=” ＋ 路径)<br /> 记录集 ＝ 数据库.cha询 (“SELECT * FROM 信息 WHERE 标题 LIKE '%测试%'”)<br /> .如果真 (记录集 ≠ 0)<br />     .判断循环首 (数据库.尾记录后 (记录集) ＝ 假)<br />         调试输出 (数据库.读 (记录集, “标题”), 数据库.读 (记录集, “内容”))<br />         数据库.到后一记录 (记录集)<br />     .判断循环尾 ()<br />     数据库.关闭记录集 (记录集)<br /> .如果真结束<br /> 数据库.关闭 ()

djmy2018

Marvin 发表于 2026-7-2 10:06
[e=1].版本 2
.支持库 spec

指定窗口或窗口组件不存在或尚未载入

Marvin

djmy2018 发表于 2026-7-2 10:12
指定窗口或窗口组件不存在或尚未载入

不用模块哦，我这测试能打开，你的mdb发我测试下

djmy2018

Marvin 发表于 2026-7-2 10:13
不用模块哦，我这测试能打开，你的mdb发我测试下

1806464537 发你这个邮箱了

Marvin

djmy2018 发表于 2026-7-2 10:25
1806464537 发你这个邮箱了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
记录集	整数型
路径	文本型

路径 ＝ 取运行目录 () ＋ “\XGTD.mdb”
如果真 (文件是否存在 (路径) ＝ 假)
调试输出 (“数据库文件不存在”)
返回 ()

外部数据库1.打开 (“Driver={Microsoft Access Driver (*.mdb)};DBQ=” ＋ 路径)
记录集 ＝ 外部数据库1.cha询 (“SELECT * FROM 信息 WHERE 标题 LIKE '%测试%'”)
如果真 (记录集 ≠ 0)
判断循环首 (外部数据库1.尾记录后 (记录集) ＝ 假)
调试输出 (外部数据库1.读 (记录集, “标题”), 外部数据库1.读 (记录集, “内容”))
外部数据库1.到后一记录 (记录集)
判断循环尾 ()
外部数据库1.关闭记录集 (记录集)
外部数据库1.关闭 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 记录集, 整数型<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\XGTD.mdb”<br /> .如果真 (文件是否存在 (路径) ＝ 假)<br />     调试输出 (“数据库文件不存在”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 外部数据库1.打开 (“Driver={Microsoft Access Driver (*.mdb)};DBQ=” ＋ 路径)<br /> 记录集 ＝ 外部数据库1.cha询 (“SELECT * FROM 信息 WHERE 标题 LIKE '%测试%'”)<br /> .如果真 (记录集 ≠ 0)<br />     .判断循环首 (外部数据库1.尾记录后 (记录集) ＝ 假)<br />         调试输出 (外部数据库1.读 (记录集, “标题”), 外部数据库1.读 (记录集, “内容”))<br />         外部数据库1.到后一记录 (记录集)<br />     .判断循环尾 ()<br />     外部数据库1.关闭记录集 (记录集)<br /> .如果真结束<br /> 外部数据库1.关闭 ()

界面少了个控件，在启动界面添加个组件“外部数据库”名为“外部数据库1”，如果组件改名了，把代码里的 外部数据库1 换成你实际的名字即可

djmy2018

Marvin 发表于 2026-7-2 10:42
[e=1].版本 2
.支持库 spec

没有反应了

djmy2018

Marvin 发表于 2026-7-2 10:42
[e=1].版本 2
.支持库 spec

记录集显示 0

Marvin

djmy2018 发表于 2026-7-2 11:00
记录集显示 0

标题，测试，内容自己改下，根据mdb里面的表和字段改