如何存取PictureBox控件的图像

2000-01-25 04:14:00 342 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

细聊Oracle通过ODBC数据源连接SQL Server数据库类似文章搜索引擎上有很多，内容大致相同，今天所谓细聊是因为我在借鉴这些文章时候走了些弯路，所以写此文，为自己备忘，同时如果能为初涉此处知识点的小伙伴提供些帮助就更好了，废话不多说。我的应用场景：项目系统使用oracle数据库，与客户的第三方系统供应商实现资源共享，对方为sql server数据库；我的测试开发环境为64bitwin7PC机，本机上装有64位Oracl... 阅读详情

各位大虾，请教如何把控件PictureBox里的图像（比如*.ico、*.bmp、*.jpg等）存入数据库中（比如Access数据库），然后又怎么取出来？

...全文

cut&tag学习笔记上图是我得到的结果，下图是教程的结果，比对结果有一些差异，我也不知道具体原因是啥。谷歌了一下，发现原因可能是因为环境变量的问题，系统不知道picard的具体位置，需要设置全局环境变量，遂查了一下picard的位置。我发现我做出来的结果测序深度一致，但是比对的结果有一点差异，不知道是我的操作问题，还是参考基因组更新了导致比对结果出现了些许不同。上图是我得到的结果，下图是教程的结果，除了IgG_rep1外比对结果一致。上图是我的结果，下图是教程的结果，结果不太一致，不知道是具体的原因是什么。阅读详情

peacock

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

文米 2001-02-19

打赏
举报

使用VC怎样做？？？

ltp3 2000-01-26

打赏
举报

用控件直接绑定数据库不行吗？

littletao 2000-01-26

打赏
举报

上面的例子我没做过，不过在asp中显示图象我是做过的，如下：
sqlstring="select 照片 from table where 编号='"+loginid+"'"
Set rs1 = cn.Execute(sqlstring)
PicSize = rs1("照片").ActualSize
Pic = rs1("照片").GetChunk(PicSize)
Response.BinaryWrite Pic

希望能对你有些帮助

littletao 2000-01-26

打赏
举报

getchunk & appendchunk，以下是msdn的例子。

AppendChunk 和 GetChunk 方法范例
该范例使用 AppendChunk 和 GetChunk 方法用其他记录中的数据填写图像字段。

Public Sub AppendChunkX()

Dim cnn1 As ADODB.Connection
Dim rstPubInfo As ADODB.Recordset
Dim strCnn As String
Dim strPubID As String
Dim strPRInfo As String
Dim lngOffset As Long
Dim lngLogoSize As Long
Dim varLogo As Variant
Dim varChunk As Variant

Const conChunkSize = 100

' 打开连接
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

' 打开 pub_info 表。
Set rstPubInfo = New ADODB.Recordset
rstPubInfo.CursorType = adOpenKeyset
rstPubInfo.LockType = adLockOptimistic
rstPubInfo.Open "pub_info", cnn1, , , adCmdTable

' 提示复制徽标。
strMsg = "Available logos are : " & vbCr & vbCr
Do While Not rstPubInfo.EOF
strMsg = strMsg & rstPubInfo!pub_id & vbCr & _
Left(rstPubInfo!pr_info, InStr(rstPubInfo!pr_info, ",") - 1) & _
vbCr & vbCr
rstPubInfo.MoveNext
Loop
strMsg = strMsg & "Enter the ID of a logo to copy:"
strPubID = InputBox(strMsg)

' 将徽标复制到大块中的变量。
rstPubInfo.Filter = "pub_id = '" & strPubID & "'"
lngLogoSize = rstPubInfo!logo.ActualSize
Do While lngOffset < lngLogoSize
varChunk = rstPubInfo!logo.GetChunk(conChunkSize)
varLogo = varLogo & varChunk
lngOffset = lngOffset + conChunkSize
Loop

' 从用户得到数据。
strPubID = Trim(InputBox("Enter a new pub ID:"))
strPRInfo = Trim(InputBox("Enter descriptive text:"))

' 添加新记录，将徽标复制到大块中。
rstPubInfo.AddNew
rstPubInfo!pub_id = strPubID
rstPubInfo!pr_info = strPRInfo

lngOffset = 0 ' 重置位移。
Do While lngOffset < lngLogoSize
varChunk = LeftB(RightB(varLogo, lngLogoSize - lngOffset), _
conChunkSize)
rstPubInfo!logo.AppendChunk varChunk
lngOffset = lngOffset + conChunkSize
Loop
rstPubInfo.Update

' 显示新添加的数据。
MsgBox "New record: " & rstPubInfo!pub_id & vbCr & _
"Description: " & rstPubInfo!pr_info & vbCr & _
"Logo size: " & rstPubInfo!logo.ActualSize

' 删除新记录，因为这只是演示。
rstPubInfo.Requery
cnn1.Execute "DELETE FROM pub_info " & _
"WHERE pub_id = '" & strPubID & "'"

rstPubInfo.Close
cnn1.Close

End Sub

peacock 2000-01-25

打赏
举报

用Access数据库

rmh 2000-01-25

打赏
举报

同意Un1的观点，可以把PictureBox中的图像数据存到库中，
需设置数据源及绑定的字段。

peacock 2000-01-25

打赏
举报

Sooy!我问的是如何存取PictureBox的Picture的值，不是路径名

kxy 2000-01-25

打赏
举报

Pardox中可以这样,建一个blob类型的字段(用于存储二进制值)
Table.FieldByName('xx').Assign(picturebox.image);
picturebox.image.Assign(Table.FieldByName('xx'))

Un1 2000-01-25

打赏
举报

方法一：用控件直接绑定数据库。
方法二：用LongBytes字段存储Picture的存盘文件,文件用loadpicture或savepicture方法写入读出。

如何存取PictureBox控件的图像

相关推荐