ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1167|回复: 4

[求助] vba Mysql blob类型存取图片出错问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-20 00:52 | 显示全部楼层 |阅读模式
本帖最后由 tangens 于 2020-2-20 01:01 编辑

用Mysqlr blob类型存储图片, Recordset.Update时错.
image.png
1.附件有三张图片, 草履虫.bmp这张可以上传,草履虫2.bmp这张上传就出错,图片是VBA自动导出Excel里图片的.图片没有问题,用Navicat数据库工具可以导入.另外.jpg上传也出错,jpg格式文件小,传jpg比较理想.
2.图片能存到数据库的有些图片变了,对比二进制文件发现有个别的数据变了.(左边是原图,右边是从数据库导出的)


存图片不多,图片也不大,所以用这种方案
改过几种数据库的字符集与排序规则都不行,搞了好几天没搞定,跪求各位大侠指点。

Mysql存取图片.zip

695.17 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-20 11:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-20 16:04 | 显示全部楼层
  1.    '导出图片相关代码
  2. Sub OutputPic()
  3.     Dim shap As Object, rng As Range, n$, P$, s$
  4.     P = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\图片"
  5.     If Dir(P, vbDirectory) = "" Then MkDir (P)
  6.         For Each shap In ActiveSheet.Shapes '遍历所有shapes
  7.             If shap.Type = 11 Or shap.Type = 13 Then '如果Shapes类型是图片
  8.                 Set rng = shap.TopLeftCell '返回图形对象所在的左上角单元格
  9.                 shap.Copy
  10.                 With ActiveSheet.ChartObjects.Add(0, 0, shap.Width, shap.Height + 5).Chart
  11.                     .ChartArea.Border.LineStyle = 0
  12.                     .Parent.Select
  13.                     .Paste
  14.                     .Export P & ".bmp", "BMP"
  15.                     .Parent.Delete
  16.                 End With
  17.             End If
  18.         Next
  19. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-21 23:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
没反应,自己顶一下

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-3-12 23:38 | 显示全部楼层
数据库存图片是个坑, 导致数据库打开慢, 批量下载也慢. 改成FTP方案挺好用的
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 19:36 , Processed in 0.044084 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表