access库，写入，读取，图片

108937101

access库，写入，读取，图片
有没有例子可能参考的。

u871

你好，access数据库库图片写入和读取的代码大概是这样的，你可以按照自己的想法进行修改，希望可以帮到你。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_SQL语句	文本型
集_图片编号	文本型

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

变量名	类 型	静态	数组	备 注
局_记录集句柄	整数型
局_索引	整数型

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\Database1.mdb”, , , , )
集_SQL语句 ＝ “select * from 表1”
局_记录集句柄 ＝ 外部数据库1.cha询 (集_SQL语句)
判断循环首 (外部数据库1.尾记录后 (局_记录集句柄) ＝ 假)
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引, 0, 外部数据库1.读 (局_记录集句柄, “图片编号”))
外部数据库1.到后一记录 (局_记录集句柄)
判断循环尾 ()
外部数据库1.关闭记录集 (局_记录集句柄)

子程序名	返回值类型	公开	备 注
_按钮_载入图片_被单击

通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.gif;*.bmp”
如果真 (通用对话框1.打开 ())
图片框1.图片 ＝ 读入文件 (通用对话框1.文件名)

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

变量名	类 型	静态	数组	备 注
局_索引	整数型

集_图片编号 ＝ 编辑框_图片编号.内容
如果真 (集_图片编号 ＝ “”)
集_图片编号 ＝ 到文本 (取现行时间 ())
集_SQL语句 ＝ “insert into 表1 (图片编号,图片1) values ('” ＋ 集_图片编号 ＋ “',?” ＋ “)”
外部数据库1.执行 (集_SQL语句, 图片框1.图片)
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引, 0, 集_图片编号)

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

变量名	类 型	静态	数组	备 注
局_记录集句柄	整数型

集_SQL语句 ＝ “select * from 表1 where 图片编号='” ＋ 集_图片编号 ＋ “'”
局_记录集句柄 ＝ 外部数据库1.cha询 (集_SQL语句)
图片框2.图片 ＝ 外部数据库1.读 (局_记录集句柄, “图片1”)
外部数据库1.关闭记录集 (局_记录集句柄)

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

变量名	类 型	静态	数组	备 注
局_选中项	整数型

局_选中项 ＝ 超级列表框1.现行选中项
如果真 (局_选中项 ＝ -1)
返回 ()
集_图片编号 ＝ 超级列表框1.取标题 (局_选中项, 0)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_SQL语句, 文本型<br /> .程序集变量 集_图片编号, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局_记录集句柄, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> 外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\Database1.mdb”, , , , )<br /> 集_SQL语句 ＝ “select * from 表1”<br /> 局_记录集句柄 ＝ 外部数据库1.cha询 (集_SQL语句)<br /> .判断循环首 (外部数据库1.尾记录后 (局_记录集句柄) ＝ 假)<br />     局_索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (局_索引, 0, 外部数据库1.读 (局_记录集句柄, “图片编号”))<br />     外部数据库1.到后一记录 (局_记录集句柄)<br /> .判断循环尾 ()<br /> 外部数据库1.关闭记录集 (局_记录集句柄)<br /> <br /> <br /> .子程序 _按钮_载入图片_被单击<br /> <br /> 通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.gif;*.bmp”<br /> .如果真 (通用对话框1.打开 ())<br />     图片框1.图片 ＝ 读入文件 (通用对话框1.文件名)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_保存_被单击<br /> .局部变量 局_索引, 整数型<br /> <br /> 集_图片编号 ＝ 编辑框_图片编号.内容<br /> .如果真 (集_图片编号 ＝ “”)<br />     集_图片编号 ＝ 到文本 (取现行时间 ())<br /> .如果真结束<br /> 集_SQL语句 ＝ “insert into 表1 (图片编号,图片1) values ('” ＋ 集_图片编号 ＋ “',?” ＋ “)”<br /> 外部数据库1.执行 (集_SQL语句, 图片框1.图片)<br /> 局_索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (局_索引, 0, 集_图片编号)<br /> <br /> <br /> .子程序 _按钮_读取_被单击<br /> .局部变量 局_记录集句柄, 整数型<br /> <br /> 集_SQL语句 ＝ “select * from 表1 where 图片编号='” ＋ 集_图片编号 ＋ “'”<br /> 局_记录集句柄 ＝ 外部数据库1.cha询 (集_SQL语句)<br /> 图片框2.图片 ＝ 外部数据库1.读 (局_记录集句柄, “图片1”)<br /> 外部数据库1.关闭记录集 (局_记录集句柄)<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 局_选中项, 整数型<br /> <br /> 局_选中项 ＝ 超级列表框1.现行选中项<br /> .如果真 (局_选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> 集_图片编号 ＝ 超级列表框1.取标题 (局_选中项, 0)

sinewtec

建议写到文件！不建议写入库中

补充内容 (2023-6-3 15:09):
非要写入 直接写入字节集

遗失的眼泪

写入语句：Insert into 表名  (字段1,字段2) values(字段1内容,字段2内容);
cha询语句：Select * FROM 表名  where 要cha询的字段=字段名字;
修改语句：update 表名 set 要修改的字段名=字段内容  where cha询的字段名=字段内容;

这几天正好在弄一个ACCESS的数据库也用到这些命令，分享给你了。

青舟

b64编码写入

108937101

遗失的眼泪 发表于 2023-6-3 15:10
写入语句：Insert into 表名  (字段1,字段2) values(字段1内容,字段2内容);
cha询语句：Select * FROM 表名 ...

这些语句，我知道。
图片格式的也能这样写入，读取？

afu45

  

数据库连接1.连接Access (, “”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“表1”, #数据表名, )
记录集1.添加 ()
记录集1.写字节集 (“img”, 读入文件 (“c:\1.png”))
记录集1.更新 ()
记录集1.关闭 ()
数据库连接1.关闭 ()

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> 数据库连接1.连接Access (, “”)<br /> 记录集1.置连接 (数据库连接1)<br /> 记录集1.打开 (“表1”, #数据表名, )<br /> 记录集1.添加 ()<br /> 记录集1.写字节集 (“img”, 读入文件 (“c:\1.png”))<br /> 记录集1.更新 ()<br /> 记录集1.关闭 ()<br /> 数据库连接1.关闭 ()

108937101

afu45 发表于 2023-6-3 21:05
[e=0].版本 2
.支持库 eDB

保存
读取
读

108937101

图片添加读取.zip (12.6 KB, 下载次数: 9)

2023-6-4 08:05 上传

点击文件名下载附件

108937101

u871 发表于 2023-6-4 19:28
你好，access数据库库图片写入和读取的代码大概是这样的，你可以按照自己的想法进行修改，希望可以帮到你。 ...

好的，我研究一下看看，谢谢