|
发表于 2023-6-3 14:54:27
|
显示全部楼层
河北省唐山市
你好,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.取标题 (局_选中项, 0)
|
评分
-
查看全部评分
|