ACCESS怎么装图片?要结合VB的

来源：百度知道 编辑：UC知道 时间：2024/05/23 13:18:59
就是先把图片转成二进制码,放入表格中.然后用VB读出来

转成二进制码该如何操作?VB读的时候又要什么语句呢?(语句尽量简练)
也可以在表格中给出图片的路径,那该怎用VB读呢?

为什么要转二进制这么麻烦呢？从外部加载又方便又简单。

-----------------------------------------------------
Image1.Picture = LoadPicture(App.Path + "目录\文件名.jpg")
--------------------------------------------------------
用data打开数据库，用text连接指定路径的字段．
Image1.Picture = LoadPicture(text1.text)
上传如下：
Dim stm As ADODB.stream
Dim rs As ADODB.Recordset
Set stm = New ADODB.stream
stm.Type = adtypebinary
stm.open
stm.loadfromfile App.Path & "\test.jpg"
Set rs = New ADODB.Recordset
rs.open "select * from img", stm, 1, 3
rs.addnew
rs.fields("photo") = stm.read
rs.Update
rs.Close
stm.Close

读取如下：
Dim stm As ADODB.stream
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "select top1 * from img", iConc, adOpenKeyset, adLockReadOnly
Set stm = New ADODB.stream
stm.Mode = adModeReadWrite