以下是引用李孝春在2017/11/7 13:09:00的发言：有点甜老师 在这里我不打算用二进制列了
就图片 备注型 然后列属性 图片
或者，你试试这样处理。
保存图片
Dim fs As New IO.FileStream("d:\test.jpg" , IO.FileMode.Open , IO.FileAccess.Read)
Dim br As New IO.BinaryReader(fs)
Dim bs() As Byte = br.ReadBytes(fs.Length)
Dim ImageString As String = Convert.ToBase64String(bs)
tables("表C").current("图片") = ImageString
读取图片
Dim ziByte() As Byte = Convert.FromBase64String(Tables("表c").current("图片"))
Dim ms As New IO.FileStream("d:\12345.jpg", IO.FileMode.Create)
ms.Write(ziByte, 0,ziByte.length)
ms.close
加好友 
发短信
Post By：2017/11/7 12:59:00 [显示全部帖子]
