图片文件被以binary字段存在sql server里，怎么用VB读出生成并保存成图片文件

2005-12-13 04:16:37 298 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MATLAB绘图中文乱码终极解决方案：从方框到清晰显示的全面指南本文提供了MATLAB绘图中文乱码的全面解决方案。针对中文显示为方框的问题，从单次绘图的临时字体设置，到通过修改默认配置实现一劳永逸，再到系统级字体排查与Java环境配置，给出了详细的步骤指南。文章还涵盖了字体名称指定、图像导出防丢失以及跨平台协作等高级技巧，帮助用户彻底解决中文乱码困扰。阅读详情

...全文

AI学习记录 - transformer的位置编码的理解先看三角函数为什么可以，我们看下三角函数的图像先提一个点：位置信息肯定是唯一的，或者是在很长的文字当中，起码重复度不会太高，x轴代表位置，y轴代表叠加上去的值1、假设只使用一个三角函数sin，我们将第2和第14两个位置输入到sin，他们的值很像，在神经网络的训练中，很容易把第2个位置和第14个位置当成是一个位置，不满足我们上面说到的要求位置唯一性。sin2sin14。阅读详情

ladofwind

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

hwshws123 2006-05-03

打赏
举报

ding

hglai 2005-12-17

打赏
举报

http://www.play78.com/blog/blogview.asp?logID=160&cateID=19

你看看这个现成的代码吧

kjlkjekjkd 2005-12-15

打赏
举报

好,帮顶

--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/

winehero 2005-12-13

打赏
举报

用ADO的Stream对象
或者
读Open文件后，使用ADO的Field对象的AppendChunk添加到数据库中
写Open文件后，使用ADO的Field对象的GetChunk读取数据库中字段数据，写入到文件中

faysky2 2005-12-13

打赏
举报

Dim StrPicTemp As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Private Sub Form_Load()
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=MyDataBase;Data Source=MyService"
rs.Open "planemsg", conn, 3, adLockOptimistic, adCmdTable
End Sub

Private Sub Command1_Click()
' On Error GoTo err
Dim StmPic As ADODB.Stream
'保存你所选择的图像
Set StmPic = New ADODB.Stream
StmPic.Type = adTypeBinary '指定流是二进制类型
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
StmPic.Open '将数据获取到Stream对象中
StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的StmPic中

rs.AddNew
rs("id") = "111" '连同id一起插入到表里
rs.Fields("img").Value = StmPic.Read '从StmPic对象中读取数据
rs.Update

StmPic.Close
Exit Sub
err:
MsgBox err.Description
End Sub

Private Sub Command2_Click()
Dim StmPic As ADODB.Stream
' On Error GoTo err
'读取显示数据库中id为111的图像
Set rs = conn.Execute("select img from planemsg where id='111'")
StrPicTemp = "c:\temp.jpeg"
Set StmPic = New ADODB.Stream
With StmPic
.Type = adTypeBinary
.Open
.Write rs.Fields("img") '写入数据库中的数据至Stream中
.SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture2.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
Exit Sub
err:
MsgBox err.Description
End Sub

图片文件被以binary字段存在sql server里，怎么用VB读出生成并保存成图片文件

相关推荐