如何把图存入数据库?

dczlxl 2002-08-15 07:13:08
如何把vb中picture控件画的图存入ACCESS数据库?请高手告之!!
...全文
121 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
feihong0233 2002-08-16
  • 打赏
  • 举报
回复
我给你的例子没有用临时文件~
不过是DAODC
dczlxl 2002-08-16
  • 打赏
  • 举报
回复
我不想用临时文件怎么办??
robin_xin_xin 2002-08-16
  • 打赏
  • 举报
回复
存:
Public Sub save_picture()
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
Dim bit() As Byte
dim varPath as string '图片的路径
varPath = "图片路径"
cnn.open "连接数据库的字符串"
sSql = "SELECT * FROM 表 WHERE 关键字='" & 关键值 & "'"
'选出要增加或修改图片记录的记录
rst.Open sSql, cnn, adOpenKeyset, adLockOptimistic

If Not (rst.EOF And rst.BOF) Then
If VarPath = "" Then
' 然后将字节数组的内容写入数据库即可
rst.Fields("图片") = ""
rst.UPDATE
Else
Open VarPath For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1
' 然后将字节数组的内容写入数据库即可
rst.Fields("图片").AppendChunk bit
rst.UPDATE
End If
End If
end sub

取:
Public Sub show_picture()
Dim REC As Recordset
Dim sSql As String
Dim I As Integer
Set REC = New Recordset
Dim bit1() As Byte
Dim sa As String
sSql = "SELECT * FROM 表 WHERE 关键字 ='" & 关键值 & "'"
REC.Open sSql, Conn, adOpenStatic, adLockOptimistic, adCmdText
If REC.EOF Or REC.BOF Then
Exit Sub
Else
Picture1.Picture = Nothing
If REC("图片").ActualSize > 0 Then
bit1 = REC.Fields("图片").GetChunk(REC("图片").ActualSize)
'然后将字节数组的内容拼装成文件即可
Open "c:\1.bmp" For Binary As #1

Put 1, 1, bit1
Close 1
Picture1.Picture = LoadPicture("c:\1.bmp")
kill ("c:\1.bmp")

End If
End If
rec.close
Set REC = Nothing
Exit Sub
Err:
MsgBox "读取图片出错!", OKOnly, "系统提示"
End Sub
dczlxl 2002-08-16
  • 打赏
  • 举报
回复
怎么给分呀!!
feihong0233 2002-08-16
  • 打赏
  • 举报
回复
http://feihong0233.myetang.com/picture.exe

一个自解压包,
小小的例子
dczlxl 2002-08-16
  • 打赏
  • 举报
回复
zzymouse(中原一点红) :
请讲具体点,好吗?
JERRY_LIU 2002-08-16
  • 打赏
  • 举报
回复
點窗口的右下角的管理按鈕再在要給分人的格子裡輸入分數
點給分就可以
不要忘記輸密碼噢
dczlxl 2002-08-16
  • 打赏
  • 举报
回复
怎么给分呢??
zzymouse 2002-08-15
  • 打赏
  • 举报
回复
在access 数据库里面建议1个picture数据项,设为ole类型,再把图片用二进制写入数据库,读入数据的时候再用二进制形式把它读出来
feihong0233 2002-08-15
  • 打赏
  • 举报
回复
使用DAODC直接绑定PictureBox就可以了,
ADO绑定的话好像只可以浏览不可以存储,
不过你可以使用文件来存到数据库里。
Access可以存图片。
tinafang 2002-08-15
  • 打赏
  • 举报
回复
好象不行吧,Access好象不支持二进制数据格式吧
用SQL Server吧,操作也很方便的。
还有一种方法就是用一个文本字段记录相对路径,再用FSO把图片拷到你的程序目录里,不过这样安全性好象就不行了。

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧